VBAを用いて、ウェブからデータを取り込みたい

質問

エクセルＶＢＡでウェブからデータを取り込みたいと思い、いろいろ挑戦していますが、以下のやり方(1)と(2)は失敗中です。
取り込みたいのは、ウェブページ中に描かれてある「表」の部分のデータです。
アドバイスをお願いいたします。

◆◆◆◆◆失敗(1)◆◆◆◆◆

ActiveSheet.QueryTables.Add(Connection:="url;http://***省略***.htm", Destination:=Range("A1"))

の方法の場合、取得したデータをエクセルシートに張り付けた場合に生じる文字化けがなおらず挫折・・・

QueryTableは文字コードを指定して読み込めないので困難という結論に至りました。

ちなみに目的のウェブページはshift-JISでcharsetされてますが、取得したいデータ部分はＳＱＬサーバーでUTF-8で記述されていると思われます。

→http://okwave.jp/qa/q7864296.html

◆◆◆◆◆失敗(2)◆◆◆◆◆

ユーザーフォーム機能から、WEBブラウザーコントロールを用いて目的のウェブページを表示する方法では、表示したウェブページの情報をエクセルシートに転記する方法が分からず挫折・・・

url_report = "http://****省略.htm"
WebBrowser1.Navigate url_report 'ここから先、どうすればエクセルシートにデータ取得できる？

上記(1)や(2)以外で他のやり方も含め、経験者の方のアドバイスをお願いいたします。

ウェブページ中の表データをエクセルシートにＶＢＡで自動取得したいのですが・・・何か良い方法がありますでしょうか？　((+_+))

回答No.1

seastar3 · ベストアンサー

billborad-top100.net ブログのこの説明が参考になると思います。

http://billboardtop100.net/2011/03/excel-vba-ie-internet-explorer-table-copy-paste.html

つまり InternetExplorer.Application オブジェクトを使い、htmlテキストデータからtableに関するタグを見つけながら、セルに移していく操作です。

お礼

よくわかりました。心から御礼申し上げます。