Excel转换csv的方法

小仙同学不得不承认，懒是本小仙进步的最大动力（虽然有的时候花费大把时间找捷径失败，但真正能找到的时候，那个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了。

今天的这个技巧是不是很简单，快去试试吧!