-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 から始まるセルに入力するだけです。ただし、「End With」ビットの後に含めるのに十分なほど簡単な書式設定はありません。

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 に答える