ActiveWorkbook.SaveAs中的“需要”对话框，但对话框未打开

Question

我需要允许用户更改要保存的文件的路径和名称，或使用默认名称保存。我无法使用ActiveWorkbook.SaveAs打开“另存为”对话框。

尝试使用Application.GetSaveAsFilename，但是需要另存为* .csv文件，而我无法通过Filefilter将文件另存为* .csv。 ActiveWorkbook.SaveAs可以创建一个* .csv文件。

strFile = QuoteNo & " - CSV file"  'this comes out Quote #12345 - CSV File
strPathFile = strPath & strFile    'This gives path and file name

ActiveWorkbook.SaveAs Filename:=strPathFile, FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close

我希望ActiveWorkbook.SaveAs打开一个对话框，其中的路径，文件名和文件格式为默认值。然后，用户可以接受默认设置并保存文件，或更改默认设置以满足他们的需要。