-1

我在工作表 1，A1 中有一个值。它可以是企业名称，也可以是与其关联的企业编号（当网站按编号或名称搜索时）。输入需要详细信息的企业名称（或编号）后，我希望能够单击“搜索”按钮并将搜索结果显示在具有 2 列的表格中（例如表 1 , A5:B9)，标签在表的左列，结果在右列。我需要搜索的网站是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
4

1 回答 1

3

经过更多的修补，我设法让它工作。这只是在站点中搜索 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
于 2012-12-05T20:03:12.807 回答