xlsx批量转utf8-csv

前言：数据处理时，往往需要将xlsx表格数据转化为更易读、易操作的utf8编码的csv数据。面对多个xlsx需要逐一转为utf8-csv的需求，可通过代码进行批量操作。

第一步：在要转换的xlsx源文件的目录下新建excel表格

第二步：右击左下角工作簿，点击查看代码

第三步：复制粘贴以下代码

Sub xls2csv()
     Application.DisplayAlerts = False
     t = ActiveWorkbook.Name
     mypath = ActiveWorkbook.Path & "\"
     myfile = Dir(mypath & "*.xls")
     Do Until Len(myfile) = 0
           If myfile <> t Then
              Workbooks.Open Filename:=mypath & myfile
              ActiveWorkbook.SaveAs Filename:=mypath & Left(myfile, InStr(myfile, ".") -    1) & ".csv", FileFormat:= xlCSVUTF8
     End If
     If myfile <> t Then ActiveWorkbook.Close
     myfile = Dir
 Loop
 Application.DisplayAlerts = True
End Sub

 第四步：点击运行上述代码

 最终效果：电脑会自动逐一打开要转换的xlsx文件，闪烁停止后即运行完毕，转换后的csv文件将会出现在源xlsx文件的同一目录下