Excel VBA 生成CSV文件

以下代码可以一次保存所有选定的表格。产生的csv文件在C:\TEMP文件夹中。
Option Explicit
Sub ExportSelectionToCSV()
Dim wks As Worksheet
Dim newWks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
wks.Copy 'to a new workbook
Set newWks = ActiveSheet
With newWks
Application.DisplayAlerts = False
.Parent.SaveAs Filename:="C:\TEMP\" & .Name, _
FileFormat:=xlCSV
Application.DisplayAlerts = True
.Parent.Close savechanges:=False
End With
Next wks
End Sub

直接选择指定区域，拷贝或新建一个工作簿，在菜单上另存为就可以了，不用VBA编程。

另存为就可以了