表示上ページが移動しているにも関わらず、移動後のページエレメントが読めない 削除
| Message#5 2017年6月4日(日)10時27分 From: NMC |
| プログラムをよく見ると私の指摘は全くピント外れでした。 buttonクリックなのですね。 そうであれば、クリック後の最新ウインドを取得する以下ではどうですか。 'ここまで略 'ログインボタンを選択、管理一覧ページへ移動 Call tagClick(objIE, "button", "ログイン") 'ここでobjIEを喪失していると想像 Sleep 2000 '十分な待機時間（例えば２秒）を確保（ＡＰＩのSleep関数） Set objIE = 最新画面 '最新のオブジェクトを取得する If objIE Is Nothing Then MsgBox "異常発生": Exit Sub '念のため Call ieCheck(objIE) '念のため For Each objLink In objIE.document.Links '以下略 Function 最新画面() As Object Dim objShell As Object, n As Long Set objShell = CreateObject("Shell.Application") For n = objShell.Windows.Count To 1 Step -1 '最新のウインドから探す If TypeName(objShell.Windows(n - 1).document) = "HTMLDocument" Then Set 最新画面 = objShell.Windows(n - 1) '最新のHTMLDocumentを取得 Exit For End If Next n 'Debug.Print 最新画面.document.Title Set objShell = Nothing End Function |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
