Мне нужно сохранить как лист в виде файла 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-файл с именем и местоположением, указанными пользователем. Я многого не прошу:)