excel宏来搜索一个网站和提取结果

-1

我在Sheet 1，A1中有一个值。它可以是商业名称，也可以是其关联的商业号码（因为该网站通过号码或名称进行搜索）。一旦我输入了公司的业务名称（或编号），我需要详细信息，我希望能够单击“搜索”按钮并将搜索结果显示在一个包含2列的表格中（例如，表单1 ，A5：B9）和表格左栏中的标签，结果在右边。我需要搜索的网站是http://www.abr.business.gov.au/ 例如。如果我搜索业务号码31701562618这是结果我得到（我需要如何在Excel中显示：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

来源

2012-12-03 user1872463

可能重复来从网络数据url]（http://stackoverflow.com/questions/9576542/automate-excel-to-fetch-data-from-web-url） –

谢谢。就像我说过的，我已经看到很多像这样的事情，但我有没有成功修改代码。我不自称是程序员 - 如果是我，我首先不会问这个问题 - 尽管我会为那些要求的人提供帮助。这是我第一次使用HELP论坛，因为我知道代码的基础知识 - 并且能够修改我用于其他项目的其他代码，但这个任务是一个（尽管付出了很多努力），我无法做到。如果你不能帮助，那么不要打扰回复 - 只要转到下一篇文章，因为它不会帮助那些寻求帮助的人。 – user1872463

一些修修补补我设法得到这个工作后，这只是搜索网站的价值在A1，抓住所述结果数据，并将它置于细胞开始在A5。NO格式化然而这是很容易包括后的“末端用”位。

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的

来源

2012-12-05 20:03:12 user1872463

excel宏来搜索一个网站和提取结果

回答

相关问题