excel宏搜索网站并提取结果答案

【问题标题】：excel macro to search a website and extract resultsexcel宏搜索网站并提取结果
【发布时间】：2012-11-20 21:11:07
【问题描述】：

我在工作表 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

【问题讨论】：

Automate Excel to fetch data from web url的可能重复
谢谢。就像我说的那样，我见过很多这样的东西，但是我没有成功修改代码。我不声称自己是一名程序员——如果我是的话，我一开始就不会问这个问题——尽管我会为那些提问的人提供帮助。这是我第一次使用 HELP 论坛，因为我了解代码的基础知识 - 并且能够修改我用于其他项目的其他代码，但这项任务是我无法完成的（尽管付出了很多努力）。如果您无法提供帮助，请不要费心回复 - 只需转到下一个帖子，因为它对寻求帮助的人没有任何价值。

标签： excel extract webpage vba

【解决方案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

【讨论】：