假如用excel打开再另存为excel，读取当然可以，但是有很多excel文件这样处理就很繁琐，有没有什么方法么

VBS处理代码

Function GetPath() Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "Select a folder:", OPTIONS) If objFolder Is Nothing Then Wscript.Quit End If Set objFolderItem = objFolder.Self GetPath = objFolderItem.Path End Function Function SaveToExcel(src_file,dest_file) csv_format = 1 '6另存为csv,1另存为xls Set objFSO = CreateObject("Scripting.FileSystemObject") Dim oExcel Set oExcel = CreateObject("Excel.Application") oExcel.DisplayAlerts=false Dim oBook Set oBook = oExcel.Workbooks.Open(src_file) oBook.Worksheets(1).Activate oBook.SaveAs dest_file, csv_format oBook.Close False oExcel.Quit End Function Dim i : i=0 Set oFso = CreateObject("Scripting.FileSystemObject") Set oFolder = oFso.GetFolder(GetPath()) Set oFiles = oFolder.Files For Each oFile In oFiles If Right(oFile.Path,3)="xls" or Right(oFile.Path,4)="xlsx" Then SaveToExcel oFile.Path,oFile.Path i=i+1 End If Next MsgBox "总共处理了"&i&"个EXCEL文件" Wscript.Quit