| |
現在、下記のサイトの「詳細情報を見る」というところをクリックする
マクロを作成しております。
kaigokensaku.jp/13/index.php?action_kouhyou_pref_search_list_list=true&PrefCd=13
ただ、iframeタグのname="resultListFrame"のsrcがＡｊａｘで管理されているようで
うまく操作できません。
「詳細情報を見る」をクリックするためにはどうすればよろしいでしょうか？
よろしければご助力の程よろしくお願いいたします。
Sub tesutesu()
Dim objIE As Object
Dim objin As Object
Dim ie As Object
'オブジェクトを格納する変数
Dim objShell As Object, objWindow As Object
'シェルのオブジェクトを作成する
Set objShell = CreateObject("Shell.Application")
'ウインドウの数だけまわすぞ
For Each objWindow In objShell.Windows
'TypeNameでオブジェクト変数のタイプを表示する
MsgBox "タイプは:" & TypeName(objWindow.Document)
Debug.Print "タイプは:" & TypeName(objWindow.Document)
'HTMLDocumentだったら
If TypeName(objWindow.Document) = "HTMLDocument" Then
'URLとタイトルを表示する
Debug.Print "URL:" & objWindow.Document.url
Set objIE = objWindow
MsgBox "方法1. : " & objIE.Document.url
Set objin = objIE.Document.getElementById("resultListFrame")
If objin Is Nothing Then
MsgBox "ありません"
End If
Set objA = objin.Document.getElementsByTagName("a")
For n = 0 To objA.Length - 1
'※ HTMLのalt=ログインを探したいので、.InnerTextでもなく.Valueでもなく .OuterHTMLを使用
If InStr(objA(n).OuterHTML, "詳細情報") > 0 Then 'HTML文字列の中から見つけたら
objA(n).Click '見つけたINPUTタグのオブジェクトをクリック
WScript.Sleep 1000 '1秒待つ 1000で1秒
Exit For
End If
Next
End If
Next
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 15/4/19(日) 20:44 -
