動画で三流解説
動画の簡単な説明
データ読み込み後、Document.all(0)が空白なら、Document.all(1)をセットしてみました。
※でも、できなかったんだけど・・・
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Me.txtHTML_SRC.Text = Me.WebBrowser1.Document.all(0).OuterHTML If Len(Trim(Me.txtHTML_SRC.Text)) = 0 Then Me.txtHTML_SRC.Text = Me.WebBrowser1.Document.all(1).OuterHTML End If Me.txtURL.Text = Me.WebBrowser1.Document.URL Me.Caption = Me.WebBrowser1.Document.Title 'タイトルをフォームに Debug.Print "DocumentComplete set----"
End Sub
←の詳細は http://ie.vba-ken3.jp/sample/001/2009-03-07.html
を見てください。
動画解説やテスト結果
www.youtube.com動画元: 03/08 Document.all(0)が空白なら - YouTube