vba - 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