将本地.html文件导入Excel的宏

Question

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

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

我需要什么帮助：

1. 按下按钮，然后选择本地存储的.HTML文件
2. 将其转换为xlsx
3. 自动将新的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