【学习笔记】一键批量转换xlsx文件为CSV文件

众所周知，在处理大量数据的时候，CSV文档的处理复杂度远远低于Excel文档，所以当手上有大量Excel数据需要处理的时候，可以先把Excel转换为CSV文件，一个个转换又太麻烦，下面介绍一种一键批量转换的方法。

第一步：新建一个Excel文档，在sheet1上右键，点“查看代码”

第二步：复制粘贴以下代码到Excel代码窗口处：

Sub SaveToCSVs()Dim fDir As StringDim wB As WorkbookDim wS As WorksheetDim fPath As StringDim sPath As StringfPath = "D:\Desktop\Rwork\cylinder stress files\-12-10\BC5465CB4772\"sPath = "D:\Desktop\Rwork\cylinder stress files\-12-10\CSV保存文件夹\"fDir = Dir(fPath)Do While (fDir <> "")If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" ThenOn Error Resume NextSet wB = Workbooks.Open(fPath & fDir)'MsgBox (wB.Name)For Each wS In wB.SheetswS.SaveAs sPath & wB.Name & ".csv", xlCSVNext wSwB.Close FalseSet wB = NothingEnd IffDir = DirOn Error GoTo 0LoopEnd Sub

红色框框里面为目标Excel文件位置和需要存放CSV文件位置。

第三步：点击运行，等待所有Excel文档转换为CSV文档。