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了。

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

(公众号：生信了)