网页上下载的excel文件,用记事本打开显示如下:
用pandas.read_excel读取的话,提示
XLRDError: Unsupported format, or corrupt file: Expected BOF record; found b'<html x'
假如用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
Open with vbs and save as EXCEL, then read
Why do you use text to open this file in excel format? You can just download it and read it directly in panda