Excel Macro that allows user to browse to select a folder

Question

Hi

I currently have a macro that includes code to ask the user what filename they want to assign and then after the user enters a filename, it saves that filename in a specific place on the company network. (such as X:\Projects)

=======

file = InputBox("what do you want to call your file")

    ActiveWorkbook.SaveAs Filename:="X:\Projects" & file, FileFormat:= _

        xlCSV, CreateBackup:=False

======

Question: What code can I use to allow the user during the macro run to browse the company network and select a specific folder so the file, after they give it a name, is then saved in whatever folder they select (and not always to X:\Projects)??

Thanks very much

Craig

Answer 1

You can use this...

Application.GetSaveAsFilename

to get the filename which you can then use in your save routine. Look GetSaveAsFilename up in the help files as there are optional arguments you might want to set.

---

NOTE: Please mark the message or messages (yes, you can mark more than one) that answer your question as the "Answer" so that others will know your question has been resolved.

Answer 2

Thank you!! I will try that...most helpful...thanks.

Answer 3

Use

Sub GetFolder()

Dim strFolder as String

Set fd = Application.FileDialog(msoFileDialogFolderPicker)

With fd

    .Title = "Select the folder into which the documents will be saved."

    If .Show = -1 Then

        strFolder = .SelectedItems(1) & ""

    Else

        MsgBox "The documents will be saved in the default document file location."

        strFolder = ""

    End If

End With

End Sub

-- Hope this helps.

Doug Robbins - Word MVP,

dkr[atsymbol]mvps[dot]org

Posted via the Community Bridge

"CraigBr1" wrote in message news:*** Email address is removed for privacy ***...

Hi

I currently have a macro that includes code to ask the user what filename they want to assign and then after the user enters a filename, it saves that filename in a specific place on the company network. (such as X:\Projects)

=======

    file = InputBox("what do you want to call your file")

    ActiveWorkbook.SaveAs Filename:="X:\Projects" & file, FileFormat:= _

        xlCSV, CreateBackup:=False

======

Question: What code can I use to allow the user during the macro run to browse the company network and select a specific folder so the file, after they give it a name, is then saved in whatever folder they select (and not always to X:\Projects)??

Thanks very much

Craig

---

Doug Robbins - Word MVP dkr[atsymbol]mvps[dot]org

Answer 4

Thanks Doug