http://www.vector.co.jp/soft/win95/net/se221214.html
EXCEL Web巡回ツール(Windows95/98/Me/インターネット&通信)
にとても感動したのですが、自分でも勉強かたがた書きの2点に絞って、似たようなものを作りたいと思っています。
1、エクセルからWEBにアクセスしてタグをそぎ落とした上で、テキスト表示する
2、1の拡張版として、リンクの階層を指定して(1で指定したURLの何番目まで取り込むか)情報を取れるようにする
上記1、2に絞ったサンプルスクリプトをお示しいただくか、参考サイトを教えてください。
また、例としてあげたEXCEL Web巡回ツール(Windows95/98/Me/インターネット&通信)
の、この部分だよ!というご指摘でもかまいません。
よろしくお願いいたします。
http://www.microsoft.com/japan/developer/library/jpisdk/dhtml/do...
MSDN Online Japan : File Not Found
「1」に関してのみですが、以下のVBAでWebの文書をエクセルに取得することが出来ます。
キモは、IE.documentの扱い方なので、上記のURLを参照に頑張ってみてください。
Dim IE As Object
Dim RegExp As Object
Sub タグそぎ落とし表示()
Dim sHTML As String
’初期設定
Set IE = CreateObject(”InternetExplorer.Application”)
Set RegExp = CreateObject(”VBScript.RegExp”)
RegExp.IgnoreCase = True
RegExp.Global = True
’HTML取得
Call IE.Navigate(”http://onisci.com/614.html”)
Call WaitIE
sHTML = IE.document.body.innerHtml
’HTML編集
’
-> 改行
RegExp.Pattern = vbCr: sHTML = RegExp.Replace(sHTML, ””)
RegExp.Pattern = vbLf: sHTML = RegExp.Replace(sHTML, ””)
RegExp.Pattern = ”
”: sHTML = RegExp.Replace(sHTML, vbLf)
’タグを全消し
RegExp.Pattern = ”<[^>]+>”: sHTML = RegExp.Replace(sHTML, ””)
’HTML表示
Range(”A1”).Value = sHTML
End Sub
Sub WaitIE()
’待ち
While (IE.busy): Wend
While (IE.document.readyState <> ”complete”): Wend
End Sub
ご丁寧にありがとうございました。
じっくり解析してみます。