VBAからhttpを呼びソースを取得

HTMLテキストを取るには

Sub test01()
Set obj = CreateObject("InternetExplorer.Application.1") 'ＩＥを新規オブジェクトとして宣言
obj.Visible = True
targetURL = "http://okweb.jp/kotaeru.php3?qid=1044759"

obj.Navigate (targetURL) '指定アドレスに飛ばす
'時間待ち(objが動作中であれば）
Do While obj.busy
Loop

'表示
obj.Visible = True
For n = 0 To obj.Document.All.Length - 1
If UCase(Trim(obj.Document.All(n).tagname)) = "HTML" Then
s = obj.Document.All(n).outerhtml 'HTMLのテキスト
Cells(n + 1, 1) = s 'エクセルONLY用
End If
Next
End Sub
2,3のＷＥＢに載ってたものの寄せ集めですが。
なかなか載って無いものですね。
ｓが文字列です。エクセルなどでは、長さ制約あり。
ＷＳＨやＢＡＳＰ２１やWEBBROWSERなど使う方法があるようですが、不勉強で全体を見渡せていないので取りあえず。

同様の質問をしたことがあるので・・・^_^;

BASP21コンポーネントのW3get関数を利用する方法があります。文字列で「受け取る」ことはできませんが。

参考URL：http://www.hi-ho.ne.jp/babaq/basp21.html