Excel VBA質問箱 IV

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

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


9263 / 76732 ←次へ | 前へ→

【73032】Re:別ドメインのフレーム内データの取得
お礼  こだまプラット  - 12/10/26(金) 0:37 -

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

ありがとうございます
無事に目的のデータを取り出すことが出来ました


▼ウッシ さん:
>こんばんは
>
>クチコミはメインページを更新するたびに表示される内容が変わりますね。
>
>>ページの情報を大本のページを表示してフレーム内に収まっている状態で取得したい
>
>どう取得したいのか分からないので外れかもと思いますけど、
>
>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メニューのデータ更新でクチコミは次から次へと内容が変わります。

0 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 お礼

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