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

Question

I've got this working, except I need the resulting files to be specifically a 'windows comma separated CSV' file. Any ideas how to specify this?

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指定为FileFormat一样CSVWindows

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