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 -
引用なし
パスワード
   ご返信ありがとうございます

観光ガイドじゃらんさんのＨＰですが
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

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


▼こだまプラット さん：
>ご返信ありがとうございます
>
>観光ガイドじゃらんさんのＨＰですが
>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
>
>で取れる情報とは違うのですか？
>
>
>▼こだまプラット さん：
>>ご返信ありがとうございます
>>
>>観光ガイドじゃらんさんのＨＰですが
>>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

一旦シート上にＷＥＢクエリを設定してしまえば、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
>
>一旦シート上にＷＥＢクエリを設定してしまえば、Excelメニューのデータ更新でクチコミは次から次へと内容が変わります。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1629 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free