众所周知,在处理大量数据的时候,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 =