VBAでのHTMLDocument

Question

after_333sec

26

24もっと見る

100pt

コンピュータウェブ制作

VBAでのHTMLDocument

VBAでHTMLの解析をしたいと思っています。
ですが解析対象のページに行くまでログイン処理だったりと辿り着くのが面倒です。

ですからHTMLをコピペして対処しようと思っております。

URL先のHTMLを読み込むのは
Dim doc As HTMLDocument
Set doc = oHTML.createDocumentFromUrl(url, vbNullString)
で出来ましたが、

doc = "<html>...</html>"
のようにString型を代入するにはどうしたらよいのでしょうか。

よろしくお願いします。

回答の条件

1人5回まで

登録：2012/01/11 22:44:55
終了：2012/01/12 18:32:30

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

No.1

きゃづみぃ1353911982012/01/11 23:35:33

10pt

http://mt-soft.sakura.ne.jp/web_dl/vb-parts/get_http2/

こちらを参考にしてみてください。

URL先のHTMLを読み込むだけですね。
そうではなくString型を代入したいのです。

やりたいことはフォームにHTMLを入力し、それを処理させることなので、これを実現するための方法を教えてください。

2012/01/11 23:53:38

まず
Set doc = oHTML.createDocumentFromUrl(url, vbNullString)
とやったときに読み込みが完了するまで待つ必要があります。

読み込めれば
Doc.body.innerHTML
に HTMLが入っているはずです。
それは Stringですよ。

それらが回答内のURLのホームページにかかれてますけど、違うことが知りたいのでしょうか？

2012/01/12 09:08:31

No.2

a-kuma3497421542012/01/12 00:10:40

MSHTML は、参照設定してある、ってことですよね。
こんな感じで、できるんじゃないかな、と。

Dim doc As HTMLDocument
Set doc = New HTMLDocument
doc.write "<html>...</html>"

No.3

taroe10991322012/01/12 07:09:17

10pt

Dim doc As HTMLDocument
Set doc = oHTML.createDocumentFromUrl(url, vbNullString)

String htmlString = doc.getElementsByTagName("html");

これで、HTMLタグで囲まれている部分が文字列として取得できます。

No.4

TransFreeBSD6682682012/01/12 10:54:54

30pt

doc.write使えなかった。.NetだとOpenNewが必要だとあるけれど、vbaにはOpenNewない。でもそれが原因かはわからない。
http://msdn.microsoft.com/ja-jp/library/system.windows.forms.htmldocument.write.aspx
innerHtmlに書けばいいかなと思ったけど、html要素、head要素共に書くとエラーになる。
なのでBodyに書いてみた。htmlタグとかheadタグあっても無視されるけれどbody内はちゃんと反映される。
もし、head要素も反映させたいという場合はファイルに書いてそれを読ませるという手がある。

Option Explicit

Sub Macro1()
    Dim doc As HTMLDocument
    Set doc = New HTMLDocument
    'doc.write "<html><head><title>test</title></head><body><p>test</p></body></html>"
    'MsgBox doc.FirstChild.FirstChild.outerHTML
    'doc.FirstChild.FirstChild.innerHTML = "<title>test</title>"
    'doc.FirstChild.FirstChild.innerHTML = ""
    doc.Body.innerHTML = "<html><head><title>test</title></head><body><p>test</p></body></html>"
    MsgBox doc.FirstChild.outerHTML
End Sub

Sub Macro2()
    Open "D:\example\q1326289490\tmp.html" For Output As #1
        Print #1, "<html><head><title>test</title></head><body><p>test</p></body></html>"
    Close #1
    Dim doc As HTMLDocument
    Dim doc2 As HTMLDocument
    Set doc = New HTMLDocument
    Set doc2 = doc.createDocumentFromUrl("file:///d:/example/q1326289490/tmp.html", vbNullString)
    DoEvents
    MsgBox doc2.FirstChild.outerHTML
End Sub

コメントはまだありません

ken3memo (三流君) - CreateObject("htmlfile") で HTMLDocumentを作成可能。※IHTMLDocumentじゃなかった・・・ 2012-01-12 23:53:31

CreateObject(”htmlfile”) で HTMLDocumentを作成可能。※IHTMLDocumentじゃなかった・・・ 2012/01/12 追記人力検索の回答に似たような処理があったので、先に http://q.hatena.ne.jp/1326289490#a1127039 ↑こちら
ken3memo (三流君) - MSHTMLを参照設定後、As HTMLDocument と.createDocumentFromUrlで文章を読み込み使うテスト 2012-01-12 23:55:43

MSHTMLを参照設定後、As HTMLDocument と.createDocumentFromUrlで文章を読み込み使うテスト 2012/01/12 追記人力検索の回答に似たような処理があったので、先に http://q.hatena.ne.jp/1326289490#a1127039 ↑こちら

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

a-kuma3 · Accepted Answer · 2012-01-12T11:48:19+09:00

by TransFreeBSD
doc.write使えなかった。.NetだとOpenNewが必要だとあるけれど、vbaにはOpenNewない。でもそれが原因かはわからない。

たしかに、「コンパイルエラー関数またはインターフェイスが予約されているか、またはVisual Basicでサポートされていないオートメーションタイプが関数で使用されています」というエラーが出てしまうようです。

こんな感じで動作するようになりました。

Sub Macro1()

    Dim doc As Object
    Set doc = CreateObject("htmlfile")
    doc.write ("<html><head><title>test</title></head><body><p>test</p></body></html>")

    ' 確認っ！
    MsgBox doc.FirstChild.outerHTML

End Sub

MSHTML への参照設定も必要なさそうです。

こんなんでもイケました。

    Dim doc As Object
    Set doc = New HTMLDocument
    doc.write "<html><head><title>test</title></head><body><p>test</p></body></html>"

こっちは、MSHTML への参照設定が必要です。

【追記】
型を Object にすると動くので、As HTMLDocument がマズいんだろうなあ、と試行錯誤。

Sub Macro1()

    Dim doc As IHTMLDocument        '※ これっ！
    Set doc = New HTMLDocument
    doc.write "<html><head><title>test</title></head><body><p>test</p></body></html>"

    ' 確認っ！
    MsgBox doc.FirstChild.outerHTML

End Sub

http://msdn.microsoft.com/en-us/library/aa752574%28v=VS.85%29.aspx
write メソッドを規定しているのは、IHTMLDocument2 インターフェースにもかかわらず、
型を IHTMLDocument2 にしても駄目で、IHTMLDocument にすると動くという不思議。

オブジェクトブラウザで確認しても、write を持っているのは、HTMLDocument だったり、IHTMLDocument2 だったりするのだけれど。

a-kuma3 · Accepted Answer · 2012-01-12T11:48:19+09:00

by TransFreeBSD
doc.write使えなかった。.NetだとOpenNewが必要だとあるけれど、vbaにはOpenNewない。でもそれが原因かはわからない。

たしかに、「コンパイルエラー関数またはインターフェイスが予約されているか、またはVisual Basicでサポートされていないオートメーションタイプが関数で使用されています」というエラーが出てしまうようです。

こんな感じで動作するようになりました。

Sub Macro1()

    Dim doc As Object
    Set doc = CreateObject("htmlfile")
    doc.write ("<html><head><title>test</title></head><body><p>test</p></body></html>")

    ' 確認っ！
    MsgBox doc.FirstChild.outerHTML

End Sub

MSHTML への参照設定も必要なさそうです。

こんなんでもイケました。

    Dim doc As Object
    Set doc = New HTMLDocument
    doc.write "<html><head><title>test</title></head><body><p>test</p></body></html>"

こっちは、MSHTML への参照設定が必要です。

【追記】
型を Object にすると動くので、As HTMLDocument がマズいんだろうなあ、と試行錯誤。

Sub Macro1()

    Dim doc As IHTMLDocument        '※ これっ！
    Set doc = New HTMLDocument
    doc.write "<html><head><title>test</title></head><body><p>test</p></body></html>"

    ' 確認っ！
    MsgBox doc.FirstChild.outerHTML

End Sub

http://msdn.microsoft.com/en-us/library/aa752574%28v=VS.85%29.aspx
write メソッドを規定しているのは、IHTMLDocument2 インターフェースにもかかわらず、
型を IHTMLDocument2 にしても駄目で、IHTMLDocument にすると動くという不思議。

オブジェクトブラウザで確認しても、write を持っているのは、HTMLDocument だったり、IHTMLDocument2 だったりするのだけれど。

VBAでのHTMLDocument

ベストアンサー

a-kuma3497421542012/01/12 11:48:19

その他の回答（4件）

きゃづみぃ1353911982012/01/11 23:35:33

a-kuma3497421542012/01/12 00:10:40

taroe10991322012/01/12 07:09:17

TransFreeBSD6682682012/01/12 10:54:54

a-kuma3497421542012/01/12 11:48:19ここでベストアンサー

コメント（0件)

この質問への反応（ブックマークコメント）

トラックバック