ウェブサイトからExcelにデータをインポートするには？

サブRetrieve_Click()'Create InternetExplorerSet IE=CreateObject("InternetExplorer.アプリケーション"）"のは、ブラウザのウィンドウを見てみましょう。Visible=False'web pageIEを開きます。"http://www.austrade.gov.au/SupplierDetails.aspx?ORGID=ORG8160044431&folderid=1736"に移動し、IEがロードされている間待機します。readyState<>4またはIE。Busy=True DoEvents Loop'会社名、電子メールアドレス&連絡先情報セットcontactobj=IEを取得します。文書。getElementsByClassName("contact-details block dark")htext=contactobj(0).innerHTML MsgBox htext If InStr(htext,"<p>Company Name:")Thisworkbook.ワークシート(1)Cells(1,1)=Split(Split(htext,"<p>会社名: ")(1), "<br")(0)End If If InStr(htext,"mailto:")Thisworkbook.ワークシート(1)セル(2,1)=Split(Split(htext,"mailto:")(1),Chr(34) & ">")(0) End If If InStr(htext,"<p>Name:")Thisworkbook.ワークシート(1)Cells(3,1)=Split(Split(htext,"<p>Name: ")(1), "<br")(0)このワークブックの場合は終了します。ワークシート(1)セル(4,1)=IE.LocationURL ThisWorkbook.Save SET IE=Nothing Set contactobj=Nothing End Sub

'hyperlinkThisWorkbookを追加します。ワークシート(1)ハイパーリンク。このワークブックを追加します。ワークシート(1)セル(4,1),ThisWorkbook.ワークシート(1)細胞(4, 1)

サブretrieve()'Create InternetExplorerSet IE=CreateObject("InternetExplorer.アプリケーション"）"のブラウザウィンドウを見てみましょう。Visible=True'web pageIEを開きます。"http://www.austrade.gov.au/international/buy#"'IEがロードされている間待つIEがロードされている間待機します。忙しいアプリケーション。DateAdd("s",1,Now)ループアプリケーションを待ちます。待って(今+TimeValue("00:00:10")) 'パート1-ドロップダウンリストを選択し、1つのoptionSet selectobj=IEを選択した後にイベントをトリガーします。文書。getElementsByTagName("select")m=IE.文書。getElementsByTagName("オプション")。長さ-1selectobj(0).selectedIndex=1selectobj(0).FireEvent("onchange")'IEがロードされている間待つieがロードされている間に待機します。readyState<>4またはIE。Busy=真のアプリケーション。DateAdd("s",1,Now)ループアプリケーションを待ちます。待って(今+TimeValue("00:00:10")) 終了サブ

'パート2-会社名を選択してください。文書。getElementsByClassName("Name")searchobj(0)."IEが読み込まれている間に待つ"をクリックします。readyState<>4またはIE。Busy=True DoEventsループ

サブRetrieve()'Create InternetExplorerSet IE=CreateObject("InternetExplorer.アプリケーション"）"のブラウザウィンドウを見てみましょう。Visible=True'web pageIEを開きます。"http://www.austrade.gov.au/international/buy#"'IEがロードされている間待つIEがロードされている間待機します。忙しいアプリケーション。DateAdd("s",1,Now)ループアプリケーションを待ちます。待って(今+TimeValue("00:00:10")) 'パート1-ドロップダウンリストを選択し、1つのoptionSet selectobj=IEを選択した後にイベントをトリガーします。文書。getElementsByTagName("select")m=IE.文書。getElementsByTagName("オプション")。長さ-1selectobj(0).selectedIndex=1selectobj(0).FireEvent("onchange")'IEがロードされている間待つieがロードされている間に待機します。readyState<>4またはIE。Busy=真のアプリケーション。DateAdd("s",1,Now)ループアプリケーションを待ちます。待って(今+TimeValue("00:00:10")) 'パート2-会社名を選択してください。文書。getElementsByClassName("Name")searchobj(0)."IEが読み込まれている間に待つ"をクリックします。readyState<>4またはIE。Busy=True DoEvents Loop'パート3-会社名、電子メールアドレス&連絡先情報を取得するcontactobj=IEを設定します。文書。getElementsByClassName("contact-details block dark")htext=contactobj(0).innerHTML If InStr(htext,"<p>Company Name:")その後、ThisWorkbook.ワークシート(1)Cells(1,1)=Split(Split(htext,"<p>会社名: ")(1), "<br")(0)End If If InStr(htext,"mailto:")Thisworkbook.ワークシート(1)セル(2,1)=Split(Split(htext,"mailto:")(1),Chr(34) & ">")(0) End If If InStr(htext,"<p>Name:")Thisworkbook.ワークシート(1)Cells(3,1)=Split(Split(htext,"<p>Name: ")(1), "<br")(0)このワークブックの場合は終了します。ワークシート(1)セル(4,1)=IE.LocationURL'hyperlinkThisWorkbookを追加します。ワークシート(1)ハイパーリンク。このワークブックを追加します。ワークシート(1)セル(4,1),ThisWorkbook.ワークシート(1)セル(4,1)エンドサブ

idex=2から18のサブRetrieve()'Create InternetExplorerSet IE=CreateObject("InternetExplorer.アプリケーション"）"のブラウザウィンドウを見てみましょう。Visible=False'web pageIEを開きます。"http://www.austrade.gov.au/international/buy#"'IEがロードされている間待つIEがロードされている間待機します。忙しいアプリケーション。DateAdd("s",1,Now)ループアプリケーションを待ちます。待って(今+TimeValue("00:00:10")) idexn=idex-1'パート1-ドロップダウンセットselectobj=IEを選択します。文書。getElementsByTagName("select")m=IE.文書。getElementsByTagName("オプション")。長さ-1selectobj(0).selectedIndex=idexn selectobj(0).FireEvent("onchange")'IEがロードされている間待つieがロードされている間に待機します。readyState<>4またはIE。Busy=真のアプリケーション。DateAdd("s",1,Now)ループアプリケーションを待ちます。待って(今+TimeValue("00:00:10")) wurl=IE.LocationURL tot=IE.文書。getElementsByClassName("SearchTotal")(0).innerHTML pg=Int(tot/25)+1Max=(Tot Mod25)-1'Part2-Select Class="Name"a=2For j=1to pg If j=1Then IE.ナビゲーション（wurl）他のIE。Navigate(wurl&"&pg="&j)IE中に行う場合は終了します。忙しいアプリケーション。Wait DateAdd("s",1,Now)ループif j<>pg then For I=1To24Set searchobj=IE.文書。getElementsByClassName("Name")searchobj(i)."IEが読み込まれている間に待つ"をクリックします。readyState<>4またはIE。Busy=True DoEvents Loop'パート3-会社名、電子メールアドレス&連絡先情報を取得するcontactobj=IEを設定します。文書。getElementsByClassName("contact-details block dark")htext=contactobj(0).innerHTMLこのワークブック。（アイデックス）のワークシートです。Cells(a,1)=j ThisWorkbook.（アイデックス）のワークシートです。Cells(a,2)=a-1If InStr(htext,"<p>Company Name:")ThisWorkbook.（アイデックス）のワークシートです。Cells(a,3)=Split(Split(htext,"<p>会社名: ")(1), "<br")(0)End If If InStr(htext,"mailto:")Thisworkbook.（アイデックス）のワークシートです。セル(a,4)=Split(Split(htext,"mailto:")(1),Chr(34) & ">")(0) End If If InStr(htext,"<p>Name:")Thisworkbook.（アイデックス）のワークシートです。Cells(a,5)=Split(Split(htext,"<p>Name: ")(1), "<br")(0)このワークブックの場合は終了します。（アイデックス）のワークシートです。セル（a、6）=IE。所在地：東京都千代田区GoBackは、IEながら行います。忙しいアプリケーション。待ってDateAdd("s",1,Now)ループa=a+1次のi Else for I=0To Max Set searchobj=IE.文書。getElementsByClassName("Name")searchobj(i)."IEが読み込まれている間に待つ"をクリックします。readyState<>4またはIE。Busy=True DoEvents Loop'パート3-会社名、電子メールアドレス&連絡先情報を取得するcontactobj=IEを設定します。文書。getElementsByClassName("contact-details block dark")htext=contactobj(0).innerHTMLこのワークブック。（アイデックス）のワークシートです。Cells(a,1)=j ThisWorkbook.（アイデックス）のワークシートです。Cells(a,2)=a-1If InStr(htext,"<p>Company Name:")ThisWorkbook.（アイデックス）のワークシートです。Cells(a,3)=Split(Split(htext,"<p>会社名: ")(1), "<br")(0)End If If InStr(htext,"mailto:")Thisworkbook.（アイデックス）のワークシートです。セル(a,4)=Split(Split(htext,"mailto:")(1),Chr(34) & ">")(0) End If If InStr(htext,"<p>Name:")Thisworkbook.（アイデックス）のワークシートです。Cells(a,5)=Split(Split(htext,"<p>Name: ")(1), "<br")(0)このワークブックの場合は終了します。（アイデックス）のワークシートです。セル（a、6）=IE。LocationURL ThisWorkbook.（アイデックス）のワークシートです。ハイパーリンク。このワークブックを追加します。（アイデックス）のワークシートです。セル(a,6),ThisWorkbook.（アイデックス）のワークシートです。細胞（a、6）すなわち。GoBackは、IEながら行います。忙しいアプリケーション。待機DateAdd("s",1,Now)ループa=a+1次にThisWorkbookの場合に終了します。次のjを保存するSET IE=Nothing Set contactobj=Nothing Next idex End Sub