|
↓でソースが取得できます。
サンプルでは、MsgBoxに表示するようにしてあります。
>MsgBox Mybody 'ソースの中身
の部分を改造すればセルに書き出せます。
が、セルに書き出すより、テキストボックスなどに
書き出したほうがいいように思います。
なお、このコードは過去ログなどを参考にしています。
私のオリジナルではありません。
'参照設定:Microsoft HTML Object Library
'参照設定:Microfoft Internet Controls
Sub shouyu()
Dim Mybody As Variant
Dim myIE As New SHDocVw.InternetExplorer
Dim MyDoc As MSHTML.HTMLDocument
Const myurl As String = "http://www.vbalab.net/vbaqa/c-board.cgi?cmd=tpc;id=excel"
'MyIE.Visible = True
myIE.navigate myurl
Do
DoEvents
Loop Until (Not myIE.Busy) And (myIE.readyState = READYSTATE_COMPLETE)
Set MyDoc = myIE.document
Mybody = MyDoc.body.innerHTML
myIE.Quit
MsgBox Mybody 'ソースの中身
End Sub
|
|