Filename inludes " " around name when saving

**Apel** · 07-25-2009, 08:03 AM

I am saving a .csv to a .xls and regardless of what method I use to save it in a macro there are quote marks around the filename in the dialog box. This only appears to happen if I start with a .csv as I have tested it with a .xls and there is no issue. I have tried using the following code so far.

Application.Dialogs(xlDialogSaveAs).Show (WkbkName)

FileSaveName = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")

**Andy Pope** · 07-25-2009, 09:58 AM

specify the InitilaFilename rather than let it default to workbook name

Sub X()

    Dim strNewName As String
    Dim vntFileSaveName As Variant
    
    strNewName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1) & ".xls"
    vntFileSaveName = Application.GetSaveAsFilename(strNewName, "Excel Files (*.xls), *.xls")

End Sub

**Apel** · 07-26-2009, 01:11 AM

That did the trick. I understand the code but not necessarily the logic that created the " " marks other than speculations. Would you briefly be able to explain it?

**Andy Pope** · 07-26-2009, 07:01 AM

Sorry, no idea why the default is to add quotes to the dialog as they are not used when the value is returned.

**Apel** · 07-27-2009, 08:41 AM

Okay. I will chalk it up some sort of Excel wierdness. The only legitimate idea I had was because it was a delimited file the "" could be used as a delimiter and this was transferring over. But that is just a wild guess. Thanks for your help.