Excel转换csv的方法

时光流逝

这个方法是基于Excel软件中的VBA。

Step1. 将要转换的Excel文件放在同一个文件夹里，新建一个空白的Excel文件，右击左下角的Sheet 1，点击查看代码

Step2. 在出现的框里填上以下代码，选中之后点击运“运行”

1. Sub xls2csv()
   
2. 
   
3.    Application.DisplayAlerts = False
   
4. 
   
5.    t = ActiveWorkbook.Name
   
6. 
   
7.    mypath = ActiveWorkbook.Path & ""
   
8. 
   
9.    myfile = Dir(mypath & "*.xls")
   
10. 
    
11.    Do Until Len(myfile) = 0
    
12. 
    
13.        If myfile <> t Then
    
14. 
    
15.             Workbooks.Open Filename:=mypath& myfile
    
16. 
    
17.             ActiveWorkbook.SaveAs Filename:=mypath &Left(myfile, InStr(myfile, ".") - 1) & ".csv",FileFormat:=xlCSV
    
18. 
    
19.        End If
    
20. 
    
21.        If myfile <> t Then ActiveWorkbook.Close
    
22. 
    
23.        myfile = Dir
    
24. 
    
25.    Loop
    
26. 
    
27.    Application.DisplayAlerts = True
    
28. 
    
29. End Sub

复制代码