我需要将另存为工作表另存为CSV文件，并允许在VBA中更改默认文件名和位置

Question

我有代码将工作表另存为CSV到现有路径。我需要另存为CSV，并允许用户更改默认文件名和路径。

我尝试过

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

它提供了CSV文件，但无法获取“消息”框，因此用户无法更改文件名和位置。

我尝试过：

fileSaveName = Application.GetSaveAsFilename(InitialFileName:=strFile, _
                     fileFilter:="csv Files (*.csv), *.csv", _
                     Title:="Save with this file name or Create a new name")

但是该代码无法创建格式正确的CSV文件。

我一直在尝试这段代码，但只得到一个excel格式的文件。

fileSaveName = Application.GetSaveAsFilename(InitialFileName:=strFile, _
                  fileFilter:="CSV (Comma delimited) (*.csv), *.csv", _
                 Title:="Save with this file name or Create a new name")

If fileSaveName <> False Then
  ActiveWorkbook.SaveAs Filename:=fileSaveName
End If

我或者得到的文件不是CSV文件，名为“ Book＃”的文件，或者是在错误位置的一些奇怪文件。

我想要具有默认名称和位置的格式正确的CSV文件，或者具有用户指定的名称和位置的CSV文件。我要求不高：）