将本地 .html 文件导入到 excel 的宏

Question

我有一个 Excel 电子表格，它比较 TXT 文件和 UDL 文件中的数据。这些格式可以轻松导入到我的电子表格中。

然后我尝试通过宏按钮将本地存储的 .html 文件导入到此电子表格中，我自己编写代码也没有成功，也没有在互联网上找到正确的代码。

我需要什么帮助：

按下按钮和 select 本地存储的 .HTML 文件
将其转换为 xlsx
自动将新的 xlsx 文件添加到原始电子表格的选项卡中。

我的 .HTML 文件使用以下代码完美转换为 xlsx：

Sub Open_HTML_Save_XLSX()

Workbooks.Open Filename:="C:\Temp\Example.html"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Temp\Example.xlsx", FileFormat:= _
        xlOpenXMLWorkbook

End Sub

Answer 1

感谢 Alok Singh 的意见。我设法自己回答了我的问题，对于给您带来的不便深表歉意:)。在下面张贴我的答案

Sub Button_click()
Range("A1:s1000").Clear
Dim OpenFileName As String
Dim wb As Workbook

OpenFileName = Application.GetOpenFilename("Your .HTML file ,*.html")
If OpenFileName = "False" Then Exit Sub
Set wb = Workbooks.Open(OpenFileName)

ThisWorkbook.Sheets(1).Range("a1:s1000").Value = wb.Sheets(1).Range("a1:s1000").Value


End Sub

将本地 .html 文件导入到 excel 的宏

Macro to import local .html file to excel

html

excel

vba

excel-2016