Excel VBA質問箱 IV

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

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


1629 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【72944】別ドメインのフレーム内データの取得
質問  こだまプラット  - 12/10/14(日) 22:22 -

引用なし
パスワード
   ページAにフレームが2つあり、それぞれ別ドメインの場合、そのフレーム内のデータを取得することはできるでしょうか?

自力で調べたところでは、
・IE4.0以降ではセキュリティの関係上出来ない
・InternetSecurityManagerを使えば出来るかも?

という感じでした

【72947】Re:別ドメインのフレーム内データの取得
発言  ウッシ  - 12/10/15(月) 10:36 -

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

例となる URL は何かありますか?


▼こだまプラット さん:
>ページAにフレームが2つあり、それぞれ別ドメインの場合、そのフレーム内のデータを取得することはできるでしょうか?
>
>自力で調べたところでは、
>・IE4.0以降ではセキュリティの関係上出来ない
>・InternetSecurityManagerを使えば出来るかも?
>
>という感じでした

【72949】Re:別ドメインのフレーム内データの取得
発言  こだまプラット  - 12/10/15(月) 21:42 -

引用なし
パスワード
   ご返信ありがとうございます

観光ガイドじゃらんさんのHPですが
www.jalan.net/kankou/
がメインで、新着投稿クチコミや観光スポットランキングのフレームが
メインとは異なっております

IEでメインのページを表示しつつ、VBAで新着投稿クチコミ等のフレーム内要素を取得したいと思っています


▼ウッシ さん:
>こんにちは
>
>例となる URL は何かありますか?
>
>
>▼こだまプラット さん:
>>ページAにフレームが2つあり、それぞれ別ドメインの場合、そのフレーム内のデータを取得することはできるでしょうか?
>>
>>自力で調べたところでは、
>>・IE4.0以降ではセキュリティの関係上出来ない
>>・InternetSecurityManagerを使えば出来るかも?
>>
>>という感じでした

【72950】Re:別ドメインのフレーム内データの取得
回答  ウッシ  - 12/10/15(月) 23:40 -

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

www.jalan.net/jalan/doc/kankou/lank_area_all.html

www.jalan.net/ou/oup1000/ouw1003.do

で取れる情報とは違うのですか?


▼こだまプラット さん:
>ご返信ありがとうございます
>
>観光ガイドじゃらんさんのHPですが
>www.jalan.net/kankou/
>がメインで、新着投稿クチコミや観光スポットランキングのフレームが
>メインとは異なっております
>
>IEでメインのページを表示しつつ、VBAで新着投稿クチコミ等のフレーム内要素を取得したいと思っています
>
>
>▼ウッシ さん:
>>こんにちは
>>
>>例となる URL は何かありますか?
>>
>>
>>▼こだまプラット さん:
>>>ページAにフレームが2つあり、それぞれ別ドメインの場合、そのフレーム内のデータを取得することはできるでしょうか?
>>>
>>>自力で調べたところでは、
>>>・IE4.0以降ではセキュリティの関係上出来ない
>>>・InternetSecurityManagerを使えば出来るかも?
>>>
>>>という感じでした

【72995】Re:別ドメインのフレーム内データの取得
発言  こだまプラット  - 12/10/19(金) 21:32 -

引用なし
パスワード
   返信が遅くなってしまい申し訳ございません

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

ちょっと分かりづらいことを言っているかもしれません


>こんばんは
>
>www.jalan.net/jalan/doc/kankou/lank_area_all.html
>
>www.jalan.net/ou/oup1000/ouw1003.do
>
>で取れる情報とは違うのですか?
>
>
>▼こだまプラット さん:
>>ご返信ありがとうございます
>>
>>観光ガイドじゃらんさんのHPですが
>>www.jalan.net/kankou/
>>がメインで、新着投稿クチコミや観光スポットランキングのフレームが
>>メインとは異なっております
>>
>>IEでメインのページを表示しつつ、VBAで新着投稿クチコミ等のフレーム内要素を取得したいと思っています
>>
>>
>>▼ウッシ さん:
>>>こんにちは
>>>
>>>例となる URL は何かありますか?
>>>
>>>
>>>▼こだまプラット さん:
>>>>ページAにフレームが2つあり、それぞれ別ドメインの場合、そのフレーム内のデータを取得することはできるでしょうか?
>>>>
>>>>自力で調べたところでは、
>>>>・IE4.0以降ではセキュリティの関係上出来ない
>>>>・InternetSecurityManagerを使えば出来るかも?
>>>>
>>>>という感じでした

【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メニューのデータ更新でクチコミは次から次へと内容が変わります。

【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メニューのデータ更新でクチコミは次から次へと内容が変わります。

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