标签：
在需要转换的csv或者xls同目录新建一个xls文件，alt+f11打开VBA project，然后将代码贴入，点击运行即可。
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
Sub xls2csv() Application.DisplayAlerts = False t = ActiveWorkbook.Name mypath = ActiveWorkbook.Path & "\" myfile = Dir(mypath & "*.csv") Do Until Len(myfile) = 0 If myfile <> t Then Workbooks.Open Filename:=mypath & myfile ActiveWorkbook.SaveAs Filename:=mypath & Left(myfile, InStr(myfile, ".") - 1) & ".xls", FileFormat:=xlExcel8 End If If myfile <> t Then ActiveWorkbook.Close myfile = Dir Loop Application.DisplayAlerts = True End Sub
如有疑问，请留言。
标签：
原文地址：http://www.cnblogs.com/cise/p/5603149.html
