小仙同学不得不承认，懒是本小仙进步的最大动力（虽然有的时候花费大把时间找捷径失败，但真正能找到的时候，那个feel倍爽?）！
今天给大家介绍一个批量转csv的方法。这个方法就是基于Excel软件中的VBA。
Step1. 将要转换的Excel文件放在同一个文件夹里，新建一个空白的Excel文件，右击左下角的Sheet 1，点击查看代码
Step2. 在出现的框里填上以下代码，选中之后点击运“运行”
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:=xlCSV
End If
If myfile <> t Then ActiveWorkbook.Close
myfile = Dir
Loop
Application.DisplayAlerts = True
End Sub
(声明一下哦，这个VBA代码不是本小仙写的，时间太久找不到出处，欢迎原作者来认领)
Step3.
是不是还在等待下一步，哈哈，已经好啦，没有Step3了。
今天的这个技巧是不是很简单，快去试试吧!
