人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルVBAの質問です。
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/インターネット&通信)
の、この部分だよ!というご指摘でもかまいません。

よろしくお願いいたします。

●質問者: clinejp
●カテゴリ:コンピュータ
✍キーワード:Excel URL VBA Web Windows95
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● ku__ra__ge
●40ポイント

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

◎質問者からの返答

ご丁寧にありがとうございました。

じっくり解析してみます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ