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)以外で他のやり方も含め、経験者の方のアドバイスをお願いいたします。
ウェブページ中の表データをエクセルシートにＶＢＡで自動取得したいのですが・・・何か良い方法がありますでしょうか？ ((+_+))
お礼
そうなんですか。いままで使ったことなかったので。ありがとうございます。