Question

Excel VBA 生成CSV文件

本人VBA根本不会，如果要短时间将excel中指定的表格中的数据生成一个CSV文件的话应该怎么做？

Answer 1

以下代码可以一次保存所有选定的表格。产生的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

追问

可是我想把一个sheet中选定的单元格中的值生成csv啊，不是sheet中所有的。这个改怎么做？

Answer 2

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

Answer 3

另存为就可以了