另存为CSV以不同的结果与VBA和对话盒

Question

我想一个excel文件导出为CSV。但是我不想要一个逗号分隔的文件。

当我使用另存为对话框，将文件保存为.csv我有我想要的东西如下：

当我做录制宏相同的程序，我有以下代码;

ActiveWorkbook.SaveAs Filename:="C:\...path...\Kitap20.csv", _
    FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close

因为我想在文件名中的日期记录我做了如下代码修改（工作正常的文件名部分）;

ActiveWorkbook.SaveAs Filename:=strDesktopPath & "\my_file_" & DateF & 
".csv", _
    FileFormat:=xlCSV, CreateBackup:=False

因为我没有在代码中触摸文件格式设置，我希望有相同的输出文件，但是，它会创建一个逗号分隔的文件如下：

任何帮助将不胜感激。

最好的祝福，

Answer 1

尝试这个：

ActiveWorkbook.SaveAs Filename:=strDesktopPath & "\my_file_" & DateF & 
".csv", _
    FileFormat:=xlCSV, CreateBackup:=False, Local:=True