VBAについて質問です。


VBAでサイトのHTML情報を取得したいと考えています。

現在、VBAでサイトへログインして、その後にURL移動をする事が出来るようになったのですが、
URLへ移動後、移動したURLのHTMLを保存したいと考えています。

URLを保存するにはどういった関数を使用すればいいのでしょうか?

わかるかたおりましたらよろしくお願いいたします。

回答の条件
  • 1人2回まで
  • 登録:
  • 終了:2009/12/11 19:04:41
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ベストアンサー

id:azuco1975 No.1

回答回数613ベストアンサー獲得回数16

ポイント60pt

http://www2s.biglobe.ne.jp/~iryo/vba/IE/index01.html

ここにまとまって載ってます

id:aiomock

ご回答ありがとうございます。

2009/12/11 19:04:30
  • id:aiomock
    現在作成しているコードになります。

    Sub Macro()

    Const BASE_URL As String = "http://{0}.auctions.yahoo.co.jp/show/contact_detail?aID={1}&target={2}&no=3&.crumb={3}"

    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True

    Range("A1").Select
    Do Until ActiveCell.Value = ""
    Dim url As String
    url = Replace(BASE_URL, "{0}", "page9") 'page9とかpage1とか
    url = Replace(url, "{1}", ActiveCell.Value)
    url = Replace(url, "{2}", ActiveCell.Offset(0, 1).Value)
    url = Replace(url, "{3}", ActiveCell.Offset(0, 2).Value)
    ActiveCell.Offset(1, 0).Activate
    objIE.Navigate2 url
    While objIE.ReadyState <> READYSTATE_COMPLETE Or objIE.Busy = True
    Sleep 200
    Wend

    ★★ここに移動したURL先のHTMLを取得できるようにしたいと考えています。

    Loop

    End Sub
  • id:aiomock
    HTMLを読み取った後に、正規表現を考えています。
  • id:aiomock
    Myhtml = objIE.Document.Body.innerHTML

    で出来るのがわかりました。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません