Excel VBA質問箱 IV

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

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


5397 / 76735 ←次へ | 前へ→

【76951】iframe内でのIE制御(PHP?)
質問  ハゲブルー E-MAIL  - 15/4/19(日) 20:44 -

引用なし
パスワード
   現在、下記のサイトの「詳細情報を見る」というところをクリックする
マクロを作成しております。
kaigokensaku.jp/13/index.php?action_kouhyou_pref_search_list_list=true&PrefCd=13

ただ、iframeタグのname="resultListFrame"のsrcがAjaxで管理されているようで
うまく操作できません。
「詳細情報を見る」をクリックするためにはどうすればよろしいでしょうか?

よろしければご助力の程よろしくお願いいたします。

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内でのIE制御(PHP?) ハゲブルー 15/4/19(日) 20:44 質問[未読]
【76952】Re:iframe内でのIE制御(PHP?) ハゲブルー 15/4/19(日) 20:47 回答[未読]
【76953】Re:iframe内でのIE制御(PHP?) 独覚 15/4/20(月) 9:14 発言[未読]
【76954】Re:iframe内でのIE制御(PHP?) 独覚 15/4/20(月) 9:29 発言[未読]

5397 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free