Help with msoFileDialogSaveAs

[chirayu]

Hi All,

My Save As loads but clicking the save button does nothing

Dim MyFileType As Variant
Dim savemyfile As FileDialog

Set savemyfile = Application.FileDialog(msoFileDialogSaveAs)
MyFileType = "CSV (Comma delimited)"

For i = 1 To savemyfile.Filters.Count
    If savemyfile.Filters(i).Description = MyFileType Then
        savemyfile.AllowMultiSelect = False
        savemyfile.Title = "Choose Save Location"
        savemyfile.InitialFileName = "TEST*.csv"
        savemyfile.FilterIndex = i
        savemyfile.Show
        Exit For
    Else
        i = i + 1
    End If
Next i

Same issue with the simpler version I made

Dim savemyfile As FileDialog

With savemyfile
    .AllowMultiSelect = False
    .Title = "Choose Save Location"
    .InitialFileName = "TEST*.CSV"
    .FilterIndex = 15
    .Show
End With

 

[Luke M]

Try this way:

Sub test()
Dim fName As String
fName = Application.GetSaveAsFilename(InitialFileName:="TEST*.csv", FileFilter:="CSV (Comma delimited) (*.csv), *.csv", Title:="Choose Save Location")
If fName = False Then
    'User cancelled
Else
    ActiveWorkbook.SaveAs Filename:=fName
End If
End Sub

 

[chirayu]

Thanks Luke. But same issue. Doesn't matter how many times I click the save option on the popup. It doesn't close & doesn't save. Is it because all my macros in in my personal macro workbook? so it doesn't recognize my file

 

[Luke M]

It should at least be closing...
The Else part of the If statement is where the actual Save occurs. Even with your earlier setup, the FileDialog only retrieves a list of strings, it doesn't do anything by itself. Can you step through the code I provide using F8, and see what's going on? That fact that the Dialog appears indicates that it shouldn't be a problem with your Personal workbook.

One final question, just because it's happened before with some posters...did you copy what I posted before exactly, or make modifications? If the latter, can you post what you have?

 

[chirayu]

I think I know the issue. Its the "*" bit of the filename as Naming convention cant have symbols like that. Seems my code works but I'm an idiot lol for adding the "*"

Edit: my thing still wouldn't save. Just closed the popup. I had an error with yours so I changed the fName= False bit to fName = "False"

 

[Luke M]

Ah, I see what you mean. Asterisk kept box from closing, and then need to compare to string "False". Did/does this work?

Sub Save_CSV()
Dim fName As String
fName = Application.GetSaveAsFilename(InitialFileName:="TEST.csv", FileFilter:="CSV (Comma delimited) (*.csv), *.csv", Title:="Choose Save Location")
If fName = "False" Then
    'User cancelled
Else
    ActiveWorkbook.SaveAs Filename:=fName
End If
End Sub

 

[chirayu]

Yeah that's what I did