将多个 HTML 文件作为单独的工作表导入 Excel

Question

我有许多 HTML 文件需要打开或导入到单个 Excel 工作簿中，然后简单地保存工作簿。每个 HTML 文件都应位于 Workbook 内自己的 Worksheet 上。

我现有的代码不起作用，它在workbook.Open(html) 行崩溃，并且可能会在以下行崩溃。我无法在网络上搜索特定于该主题的任何内容。

import win32com.client as win32
import pathlib as path


def save_html_files_to_worksheets(read_directory):
    read_path = path.Path(read_directory)
    save_path = read_path.joinpath('Single_Workbook_Containing_HTML_Files.xlsx')

    excel_app = win32.gencache.EnsureDispatch('Excel.Application')
    workbook = excel_app.Workbooks.Add()  # create a new excel workbook

    indx = 1  # used to add new worksheets dependent on number of html files
    for html in read_path.glob('*.html'):  # loop through directory getting html files
        workbook.Open(html)  # open the html in the newly created workbook - this doesn't work though
        worksheet = workbook.Worksheets(indx)  # each iteration in loop add new worksheet
        worksheet.Name = 'Test' + str(indx)  # name added worksheets
        indx += 1
    workbook.SaveAs(str(save_path), 51)  # win32com requires string like path, 51 is xlsx extension
    excel_app.Application.Quit()


save_html_files_to_worksheets(r'C:\Users\<UserName>\Desktop\HTML_FOLDER')

如果有帮助，以下代码可以满足我的一半需求。它将每个 HTML 文件转换为单独的 Excel 文件。我需要一个带有多个工作表的 Excel 文件中的每个 HTML 文件。

import win32com.client as win32
import pathlib as path

def save_as_xlsx(read_directory):
    read_path = path.Path(read_directory)
    excel_app = win32.gencache.EnsureDispatch('Excel.Application')

    for html in read_path.glob('*.html'):
        save_path = read_path.joinpath(html.stem + '.xlsx')
        wb = excel_app.Workbooks.Open(html)
        wb.SaveAs(str(save_path), 51)
    excel_app.Application.Quit()


save_as_xlsx(r'C:\Users\<UserName>\Desktop\HTML_FOLDER')

这里是一个可以使用的示例 HTML 文件的链接，文件中的数据不是真实的：HTML Download Link

Answer 1

一种解决方案是将 HTML 文件打开到临时工作簿中，然后将工作表从那里复制到包含所有这些文件的工作簿中：

workbook = excel_app.Application.Workbooks.Add()
sheet = workbook.Sheets(1)
for path in read_path.glob('*.html'):
    workbook_tmp = excel_app.Application.Workbooks.Open(path)
    workbook_tmp.Sheets(1).Copy(Before=sheet)
    workbook_tmp.Close()
# Remove the redundant 'Sheet1'
excel_app.Application.ShowAlerts = False    
sheet.Delete()
excel_app.Application.ShowAlerts = True

Answer 2

我相信pandas 会让你的工作更轻松。

pip install pandas

这是一个示例，说明如何从 wikipedia html 获取多个表并将其输入到 Pandas DataFrame 中并将其保存到磁盘。

import pandas as pd
url = "https://en.wikipedia.org/wiki/List_of_American_films_of_2017"
wikitables = pd.read_html(url, header=0, attrs={"class":"wikitable"})
for idx,df in enumerate(wikitables):
    df.to_csv('{}.csv'.format(idx),index=False)

对于您的用例，这样的事情应该可以工作：

import pathlib as path
import pandas as pd

def save_as_xlsx(read_directory):
    read_path = path.Path(read_directory)

    for html in read_path.glob('*.html'):
        save_path = read_path.joinpath(html.stem + '.xlsx')
        dfs_from_html = pd.read_html(html, header=0,)
        for idx, df in enumerate(dfs_from_html):
            df.to_excel('{}.xlsx'.format(idx),index=False)

** 确保在pd.read_html 函数中设置正确的html 属性。

Answer 3

这个怎么样？

Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
    Dim xWb As Workbook
    Dim xSWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    Set xSWb = ThisWorkbook
    xCount = 1
    xFile = Dir(xStrPath & "\*.xml")
    Do While xFile <> ""
        Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
        xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
        xWb.Close False
        xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
        xFile = Dir()
    Loop
    Application.ScreenUpdating = True
    xSWb.Save
    Exit Sub
ErrHandler:
    MsgBox "no files xml", , "Kutools for Excel"
End Sub