Excel批量转化CSV （转载）

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