1、首选我们把需要导出为CVS的Excel文件整理集中到一个文件夹中。然后新建一个文件夹用来保存CSV文件的。支持Xlsx、xls格式。
3、如果菜单栏上没有开发工具，则在选项中添加。点击文件，弹出菜单选择选项。在EXCEL选项中，点击自定义功能区，右边勾选开发工具，然后点击确定。这样开发工具就会显示在菜单栏上。
5、在代码窗口中输入下面代码，其中有两行（图片红框位置）需要自己修改为实际文件来源路径和保存路径。就是开头说到的那两个文件夹位置。后面再解释。Sub SaveToCSVs() Dim fD足毂忍珩ir As String Dim wB As Workbook Dim wS As Worksheet Dim fPath As String Dim sPath As String fPath = "C:\Users\qiany\Desktop\文件\" sPath = "C:\Users\qiany\Desktop\csv保存位置\" fDir = Dir(fPath) Do While (fDir <> "") If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then On Error Resume Next Set wB = Workbooks.Open(fPath & fDir) 'MsgBox (wB.Name) For Each wS In wB.Sheets wS.SaveAs sPath & wB.Name & ".csv", xlCSV Next wS wB.Close False Set wB = Nothing End If fDir = Dir On Error GoTo 0 LoopEnd Sub
8、弹出一个对话框，点击运行。
10、在步骤9的图片中CSV的文件明显多于刚才步骤1中的文件，为什么会这样呢？因为原来的苇质缵爨Excel的单个工作簿中有多个工作表，所以才会出现这么多的潮贾篡绐CSV文件。简单的说，就是所有工作簿中的每个工作表都保存为一个CSV文件。
