VBA实现保存Excel多个工作表中的选择区域为CSV文件

经常需要将Excel工作表转换成CSV文件，而使用另存为的功能只能对一个工作表进行操作，同时保存的总是整个工作表，而对于有多个工作表的文件特别是还有许多不需要保存到CSV文件中的内容，这样的处理方式就会显得很麻烦，因此采用VBA实现保存Excel多个工作表中的选择区域为CSV文件。首先在Excel选择需要导出的工作表(选择的方法是：点击选择第一个工作表，然后按下ctrl同时再点击其它工作表)，选择之后，运行下面的VBA宏，宏代码如下：

view sourceprint?01.Option Explicit
02.Sub ExportSelectionToCSV()
03.
Dim wks As Worksheet
04.
Dim newWks As Worksheet
05.
For Each wks In ActiveWindow.SelectedSheets
06.
wks.Copy 'to a new workbook
07.
Set newWks = ActiveSheet
08.
With newWks
09.
Application.DisplayAlerts = False
10.
.Parent.SaveAs Filename:="C:/TEMP/" & .Name, _
11.
FileFormat:=xlCSV
12.
Application.DisplayAlerts = True
13.
.Parent.Close savechanges:=False
14.
End With
15.
Next wks
16.End Sub
上面的VBA函数将把Excel工作表中的保存到文件夹C:/temp (必须已经存在此文件夹)下，并且使用工作表的名称作为文件名，同时会覆盖同名文件(如果有同名文件的存在)。

CSV即Comma Separate Value，这种文件格式经常用来作为不同程序之间的数据交互的格式。

原创文章如转载，请注明：
转载自水文工具集 [ http://www.cnhup.com ]