ソースコードを文字列として抽出する

vba access

まずは設定をします。
ブラウザのロード時間を待つ為に以下の一文を入れる

Option Compare Database
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

1.原理としてはIEを開いて指定したURLを開きます。
2.開いたページのURLを取得して文字列として返します。
3.処理が終わればIEを終了します。

1000件とか10000件を一気に取得するときに、僕はIEを終了させるのを忘れ
とんでもない量のメモリを使用しオートメーションエラーが発生した。
しっかり終了させ、オブジェクトも空にすれば大丈夫！

'IEオブジェクトを生成します
Set objIE = CreateObject("InternetExplorer.Application")

'ここに読み込むURLを取得する
w_URL = "読み込むURL"

'インターネットエクスプローラは非表示にする
objIE.Visible = False

'指定したURLをセットします
objIE.Navigate w_URL

'ページの読み込みが終わるまで待機する
Do Until objIE.Busy = False
    Sleep 200
Loop

'BodyのHTMLを取得する
strHtml = objIE.Document.Body.InnerHtml

'役目が終わったらIEを必ず閉じます
objIE.Quit

'もちろんオブジェクトもNothingに
Set objIE = Nothing