Question

我在Sheet 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

Answer 1

经过一些修修补补后，我设法让它发挥作用。这只是在网站上搜索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

excel宏搜索网站并提取结果

1 个答案: