Folder picker and save file

[Muralikrishnan]

Dear All,

I need VBA coding to coose a folder and same my file over there by using filderpicker.

Please help.

Thank you,
Murali.

 

[Muralikrishnan]

Dear All,

I am able to use the below codes to save the file.
code/
Dim Myfolder As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Select a folder..."
.Show
Myfolder = .SelectedItems(1) & "\"
End With

However, the file is saving one step up of the folder.
Please help.
Regards,
M

 

[b.downey]

The code you provides allows you to return the folder path in the varible "MyFolder", but it does not actually save a file.

You need to use the "SaveAs" function to save the file.

The following code uses your existing code and adds the saveas function.

Option Explicit
Sub Macro1()
    Dim FName As String
    Dim MyFolder As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Select a folder..."
        .Show
        MyFolder = .SelectedItems(1) & "\"
    End With
  
    FName = MyFolder & ThisWorkbook.Name
    ThisWorkbook.SaveAs Filename:=FName
End Sub

 

[mikerickson]

Application.GetSaveAsFileName will do that nicely.

Sub triall()
   Dim pathToFolder As String, uiFilePath As String
   
   uiFilePath = Application.GetSaveAsFilename
   If uiFilePath = "False" Then Exit Sub: Rem canceled
   
   pathToFolder = Left(uiFilePath, InStrRev(uiFilePath, Application.PathSeparator))
   
   ThisWorkbook.SaveCopyAs uiFilePath
End Sub

 

[Muralikrishnan]

Hi All,

Thank you so much for your help.

Regards,
Murali