Create Excel File Through File Browser

[kdbailey]

I am trying to create the ability to basically do the same thing as when you save an excel file by using the "Save As..." function. Your default browser appears, you can select your directories and type in the file name you wish to create.



I am trying to basically transfer a querydef to a spreadsheet, but don't want the name/location to be automatic, as numerous people will create their own files using this function.

I have experience using Office.FileDialog but I believe that function's purpose is solely to select files, not create new paths.

Anybody have any ideas?

[CJ_London]

I have experience using Office.FileDialog but I believe that function's purpose is solely to select files, not create new paths.

incorrect, you have an option within filedialog to set what you want to do see this link

https://msdn.microsoft.com/en-us/lib.../ff865284.aspx

whilst the filedialog is active you can add new folders or navigate to an existing folder

[kdbailey]

How do I pull the file path from the filedialog after the path is chosen?

The one way I know is to go through each selecteditem...

for each filenm in fd.selecteditems
     filestr = filenm
next filenm

Is there a more direct method?

[CJ_London]

don't understand your question - filedialog returns the path the user has selected

Google 'access vba filedialog' to find many links on the subject

[mrmmickle1]

This may prove useful:

http://www.mrexcel.com/forum/microso...ions-code.html

This is another option:

Function GetFolder()As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title ="Select a Folder"
        .AllowMultiSelect =False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then Go To NextCode
        sItem =.SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    Set fldr =Nothing
End Function

[kdbailey]

That's what I was looking for, thanks mr mickle!

Thanks for the assistance guys, it is much appreciated.

[mrmmickle1]

Your welcome!! Glad to help.