Excel 宏 - 将工作表导出到 Windows 逗号分隔的 CSV

Question

我已经完成了这项工作，但我需要生成的文件专门是一个“Windows 逗号分隔的 CSV”文件。任何想法如何指定这个？

Sub asdf()
    Dim ws As Worksheet, newWb As Workbook

    Application.ScreenUpdating = False
    For Each ws In Sheets(Array("sheet1", "sheet2"))
       ws.Copy
       Set newWb = ActiveWorkbook
       With newWb
          .SaveAs ws.Name & ".csv", xlCSV
          .Close (False)
       End With
    Next ws
    Application.ScreenUpdating = True
End Sub

Answer 1

应该像将FileFormat 指定为CSVWindows 一样简单

.SaveAs ws.Name & ".csv", xlCSVWindows