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 |