用于搜索网站并提取结果的 Excel 宏

我在工作表 1 的 A1 中有一个值。它可以是企业名称，或其关联的企业编号（当网站按编号或名称搜索时）。输入需要详细信息的公司名称（或编号）后，我希望能够单击“搜索”按钮并将搜索结果显示在包含 2 列的表格中（例如工作表 1） ，A5:B9)，标签位于表的左列，结果位于右列。 我需要搜索的网站是http://www.abr.business.gov.au/ http://www.abr.business.gov.au/例如。如果我搜索企业号码 31701562618，这些是我得到的结果（以及我需要如何在 Excel 中显示）：

      Column A                       Column B
5   Entity name:                  AMBROSE, BENJAMIN STEPHEN
6   ABN status:                   Active from 05 Apr 2000
7   Entity type:                  Individual/Sole Trader
8   Goods & Services Tax (GST):   Registered from 01 Jul 2000
9   Main business location:       QLD 4310

经过一番修补后，我设法让它发挥作用。这只是在站点中搜索 A1 中的值，获取结果数据并将其放入从 A5 开始的单元格中。没有格式，但是很容易包含在“结尾为”位之后。

Sub URL_Get_ABN_Query()
strSearch = Range("a1")
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.abr.business.gov.au/SearchByABN.aspx?SearchText=" & strSearch & "&safe=active", _
Destination:=Range("a5"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub