VBA另存为xlsm特定的名称与位置提示

我正在尝试创build一个新的工作簿，然后将其以xlsm格式保存在提示的位置 ，文件名为：

"Combined ALC Depot Reports " & Format(Date, "MM.DD.YY") 

我的代码如下。 目前它会提示您input位置，但不填写文件名称。

 Sub NewWb() Dim Aname As String Dim fileToSaveAs As Variant Aname = "Combined ALC Depot Reports " & Format(Date, "MM.DD.YY") Workbooks.Add ChDir "C:/temp/" 'Change to initial path fileToSaveAs = Application.GetSaveAsFilename(InitialFileName:=Aname, FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") If fileToSaveAs <> False Then ActiveWorkbook.SaveAs FileName:=fileToSaveAs, FileFormat:=52 End If End Sub 

任何帮助，将不胜感激！ 谢谢！

Answer 1

忘记chdir并将path包含到Aname中。 下面的代码工作完美，打开TEMP文件夹中的默认名称TEST：

 Sub NewWb() Dim Aname As String Dim fileToSaveAs As Variant Aname = "c:\temp\test" Workbooks.Add ChDir "C:\" '--->no effect fileToSaveAs = Application.GetSaveAsFilename(InitialFileName:=Aname, FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") If fileToSaveAs <> False Then ActiveWorkbook.SaveAs Filename:=fileToSaveAs, FileFormat:=52 End If End Sub