Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9299 / 76732 ←次へ | 前へ→

【72996】Re:別ドメインのフレーム内データの取得
回答  ウッシ  - 12/10/20(土) 1:23 -

引用なし
パスワード
   こんばんは

クチコミはメインページを更新するたびに表示される内容が変わりますね。

>ページの情報を大本のページを表示してフレーム内に収まっている状態で取得したい

どう取得したいのか分からないので外れかもと思いますけど、

Sub test()
  Dim ObjIE1 As Object
  'アドレスの前にh t t p : / / を追加して実行して下さい。
  Const MyURL1 As String = "www.jalan.net/kankou/"
  Const MyURL2 As String = "www.jalan.net/jalan/doc/kankou/lank_spot_all.html"
  Const MyURL3 As String = "www.jalan.net/ou/oup1000/ouw1003.do"
  Worksheets("Sheet1").UsedRange.Delete
  Set ObjIE1 = CreateObject("InternetExplorer.Application")
  With ObjIE1
    .Visible = True
    .Navigate MyURL1
    Do While .Busy = True
      DoEvents
    Loop
    Call Webクエリ(MyURL2, Worksheets("Sheet1").Range("A1"))
    Call Webクエリ(MyURL3, Worksheets("Sheet1").Range("B1"))
    Do While .ReadyState <> 4
    Loop
  End With
End Sub

Sub Webクエリ(url As String, r As Range)
  With ActiveSheet.QueryTables.Add( _
    Connection:="URL;" & url, _
    Destination:=r)
    .Name = "lank_area_all"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
  End With
End Sub

一旦シート上にWEBクエリを設定してしまえば、Excelメニューのデータ更新でクチコミは次から次へと内容が変わります。
1 hits

【72944】別ドメインのフレーム内データの取得 こだまプラット 12/10/14(日) 22:22 質問
【72947】Re:別ドメインのフレーム内データの取得 ウッシ 12/10/15(月) 10:36 発言
【72949】Re:別ドメインのフレーム内データの取得 こだまプラット 12/10/15(月) 21:42 発言
【72950】Re:別ドメインのフレーム内データの取得 ウッシ 12/10/15(月) 23:40 回答
【72995】Re:別ドメインのフレーム内データの取得 こだまプラット 12/10/19(金) 21:32 発言
【72996】Re:別ドメインのフレーム内データの取得 ウッシ 12/10/20(土) 1:23 回答
【73032】Re:別ドメインのフレーム内データの取得 こだまプラット 12/10/26(金) 0:37 お礼

9299 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free