| |
はじめて投稿をします。
介護事業所検索の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
不明点あれば、ご指摘ください。
よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
