Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2306 / 76734

←次へ　｜　前へ→


	【80072】iframe内の情報を取得

こうせつ - 18/7/21(土) 11:44 -


	引用なし

	パスワード

はじめて投稿をします。
介護事業所検索のiframe内に表示される情報を取得し、
Excelに貼付けをしていきたいと考えています。

ｗｗｗ。kaigokensaku.mhlw.go.jp/27/index.php?action_kouhyou_pref_search_list_list=true&PrefCd=27&JigyosyoCd=276&p_sort_name=24

質問は以下２点です。
1.表示数の変更方法
ブラウザからですと、p_count内のValue値を直接書き換えることで、
表示される項目数を変更することが出来ました。
同じようにVBAでも可能でしょうか。
またはURLで制御できるでしょうか。
（p_sort_name欄はValue値をURLに記載することでselectedIndexの初期値を変えることができましたが、p_countは上手くいかず）

2.iframe内の情報を取得することが出来ません。
いくつかのサイトを参考に書いた（コピペした）のですが、
取得したいサイトへ落とし込みが出来ていません。

Sub test()

　　Dim a As Object
　　Dim 貼付 As Worksheet
　　Dim objIE As InternetExplorer
　　Dim objITEM As Object
　　Set objIE = CreateObject("Internetexplorer.Application")

　　objIE.Visible = True
　　objIE.navigate "　kaigokensaku.mhlw.go.jp/27/index.php?action_kouhyou_pref_search_list_list=true&PrefCd=27&JigyosyoCd=276&p_sort_name=24"

　　Do While objIE.Busy = True Or objIE.readyState < 4
　　　　DoEvents '処理待ち
　　Loop
　　
　　Application.Wait Now + TimeValue("0:00:03") 'HTMLの読み込み待ち
　　
　　
　　Dim objFRAME As Object
　　Set objFRAME = objIE.document.frames　
　　MsgBox objFRAME(0).document.Title
'↑↑↑まずここで取得出来ていないので、何かが間違っている
　　

'名前を取得して貼り付けたい　　
　　For Each objITEM In objFRAME.getElementsByClassName("listSubDataTable")
　　　　貼付.Cells(a, 1) = Replace(objITEM.innerText, vbCrLf, "")
　　　　a = a + 1
　　Next
　　
End Sub

不明点あれば、ご指摘ください。
よろしくお願いします。

5 hits

▼

【80072】iframe内の情報を取得 こうせつ 18/7/21(土) 11:44