Excel转换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
页:
[1]