將本地.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