我写了一个宏来将文件保存为csv。工作表有一列(G),其中包含数字。我想在文件中正常保留逗号(例如:1,234),但对于导出的csv文件,我希望保存的数字不带逗号(例如:1234)。
我尝试过使用.NumberFormat =“常规”方法,但导出的csv文件仍保留逗号。我必须打开文件并再次更改数字格式,然后保存。
Sub Save_csv()
Dim wbkExport as Workbook
Dim shtToExport as Worksheet
Set shtToExport = ThisWorkbook.Worksheets("Government Data")
Set wbkExport = Application.Workbooks.Add
shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Columns("G:G").NumberFormat = "General"
Application.DisplayAlerts = False
wbkExport.SaveAs Filename:="filepath.example.csv", FileFormat:=xlCSV
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False
End Sub