使用VBA和“对话盒”另存为CSV结果

时间:2019-02-07 13:42:52

标签: excel vba export-to-csv save-as

我正在尝试将Excel文件导出为csv。但是,我不需要逗号分隔的文件。

当我使用“另存为”对话框将文件另存为.csv时,我有以下要求;

enter image description here

当我对记录宏执行相同的过程时,我有以下代码;

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

由于我没有触摸代码中的文件格式设置,因此我希望具有相同的输出文件,但是,它会创建一个逗号分隔的文件,如下所示;

enter image description here

任何帮助将不胜感激。

最好的问候,

1 个答案:

答案 0 :(得分:1)

尝试一下:

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