|
|
| [ＶＢ＆ＶＢＡ][WEB フォーム上のブラウザ内容をテキスト形式で取得する] |
| | |
Private Sub UserForm_Initialize()
'Microsoft HTML Object Library を参照設定すること。
Dim URL As String
URL = "http://www.jp-ia.com/index2.htm"
Me.WebBrowser1.Navigate URL
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As MSHTML.HTMLDocument
Set doc = Me.WebBrowser1.Document
Me.TextBox1.Text = doc.body.innerText
Set doc = Nothing
End Sub
|
|
|
