Excel VBA質問箱 IV

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

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


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

5397 / 76735

←次へ　｜　前へ→


	【76951】iframe内でのＩＥ制御（ＰＨＰ？）

ハゲブルー

- 15/4/19(日) 20:44 -


	引用なし

	パスワード

現在、下記のサイトの「詳細情報を見る」というところをクリックする
マクロを作成しております。
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

0 hits

▼

【76951】iframe内でのＩＥ制御（ＰＨＰ？） ハゲブルー 15/4/19(日) 20:44