HTMLテキストを取るには Sub test01() Set obj = CreateObject("InternetExplorer.Application.1") 'IEを新規オブジェクトとして宣言 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)