简体中文(ZH-CN) English(EN) 繁体中文(ZH-TW) 日本語(JA) 한국어(KO) Melayu(MS) Français(FR) Deutsch(DE)
python - pandas html格式的excel文件
PHPz
PHPz 2017-04-18 10:19:39
0
2
795

网页上下载的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
PHPz
PHPz

学习是最好的投资！

모든 응답(2)
Ty80
Ty802017-04-18 10:21:39 2층

vbs로 열고 EXCEL로 저장한 뒤 읽어보세요

좋다 +0
답글 추가
巴扎黑
巴扎黑2017-04-18 10:21:39 1층

이 파일을 Excel 형식으로 열 때 왜 텍스트를 사용합니까? 그냥 다운로드하여 팬더에서 직접 읽을 수 있습니다

좋다 +0
답글 추가
인기 주제
더>
인기 기사
인기 튜토리얼
더>
관련 튜토리얼
인기 추천
최신 강좌
최신 다운로드
더>
웹 효과
웹사이트 소스 코드
웹사이트 자료
프론트엔드 템플릿
회사 소개 부인 성명 Sitemap
PHP 중국어 웹사이트：공공복지 온라인 PHP 교육，PHP 학습자의 빠른 성장을 도와주세요！