| 【学习笔记】一键批量转换xlsx文件为CSV文件 | 您所在的位置：网站首页 › csv文件转xlsx › 【学习笔记】一键批量转换xlsx文件为CSV文件 |
【学习笔记】一键批量转换xlsx文件为CSV文件
|
众所周知，在处理大量数据的时候，CSV文档的处理复杂度远远低于Excel文档，所以当手上有大量Excel数据需要处理的时候，可以先把Excel转换为CSV文件，一个个转换又太麻烦，下面介绍一种一键批量转换的方法。 第一步：新建一个Excel文档，在sheet1上右键，点“查看代码”
第二步：复制粘贴以下代码到Excel代码窗口处： Sub SaveToCSVs() Dim fDir As String Dim wB As Workbook Dim wS As Worksheet Dim fPath As String Dim sPath As String fPath = "D:\Desktop\Rwork\cylinder stress files\2021-12-10\BC5465CB4772\" sPath = "D:\Desktop\Rwork\cylinder stress files\2021-12-10\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 Loop End Sub 红色框框里面为目标Excel文件位置和需要存放CSV文件位置。 第三步：点击运行，等待所有Excel文档转换为CSV文档。
|
【本文地址】
公司简介
联系我们