excel-makro zum suchen einer website extrahieren und Ergebnisse

Ich habe einen Wert in Blatt 1, A1. Es ist entweder ein business-name, oder mit Ihr verbundener Unternehmen Anzahl (wie die Website-Suche nach Nummer oder name). Sobald ich in die business-name (oder die Nummer) des Unternehmens muss ich die details auf, ich will in der Lage sein, um Sie auf eine Schaltfläche "suchen" und die Ergebnisse der Suche angezeigt in einer Tabelle mit 2 Spalten (sagen wir Blatt 1, A5:B9) mit den Bezeichnungen in der linken Spalte der Tabelle und die Ergebnisse in der rechten.
die Seite, die ich Suche ist http://www.abr.business.gov.au/
zB. Wenn ich die Suche für die business-Reihe 31701562618 diese sind die Ergebnisse, die ich bekomme (und wie muss ich das in excel angezeigt:

      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

mögliche Duplikate von Automatisieren der Excel-Funktion zum abrufen von Daten aus web-url
Danke. Wie gesagt, ich habe viel gesehen, wie diese, aber ich habe nicht erfolgreich gewesen bei der änderung von code. Ich nicht Anspruch, ein Programmierer zu sein - Wenn ich war würde ich nicht die Frage an Erster Stelle - obwohl ich wäre die Bereitstellung von Hilfe für diejenigen, die Fragen. Dies ist das erste mal, dass ich je benutzt habe, ein forum ist für HILFE da kenne ich die Grundlagen von code - und in der Lage, um die änderung anderer code, den ich für andere Projekte noch dieser Aufgabe ist es, eine (trotz viel Aufwand) ich bin nicht in der Lage. Wenn Sie nicht helfen können, dann kümmern Sie sich nicht beantworten - nur bewegen Sie auf den nächsten Beitrag, wie es fügt keinen Wert für diejenigen, die Hilfe suchen.

InformationsquelleAutor user1872463 | 2012-12-03

Nach etwas mehr tüfteln habe ich es geschafft, diese zu arbeiten. Dieser sucht nur die Seite für den Wert in A1, packt die Ergebnisse und bringt es in die Zelle, beginnend bei A5. KEINE Formatierung, aber das ist leicht genug, um zu zählen, das nach dem 'Ende Mit' bit.

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

InformationsquelleAutor user1872463

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.