ダイアログボックスをクリックしたい 削除
| Message#10 2020年11月12日(木)18時16分 From: Ao |
| 初めまして。ご教授いただければと思います。 Webページにログインし、「全施設一括調整」をクリックするとポップアップが表示されます。 OKを押下したいのですが、素人ながら下記のコードではOKを押下することができません。 どのようにしたらいいでしょうか？ Sub IE2() Dim objIE As InternetExplorer Set objIE = New InternetExplorer objIE.Visible = True objIE.navigate "https://〜" Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE DoEvents Loop Dim htmlDoc As HTMLDocument Set htmlDoc = objIE.document With htmlDoc .getElementById("txtCmpCd").Value = Worksheets("Sheet1").Range("C3") .getElementById("txtUserCd").Value = Worksheets("Sheet1").Range("C4") .getElementById("txtPassWd").Value = Worksheets("Sheet1").Range("C5") .getElementById("cmdLgn").Click End With Set htmlDoc = Nothing 'ログインページのHTMLをいったん破棄 Call WaitIE(objIE) '画面遷移の待機 Set htmlDoc = objIE.document 'ログイン後のページのHTMLを読み込む '預託在庫照会をクリック Dim obj As Variant For Each obj In htmlDoc.getElementsByTagName("a") If obj.innerText = "預託在庫照会" Then obj.Click Exit For End If Next Call WaitIE(objIE) '画面遷移の待機 '全施設一括調整ボタンクリック With htmlDoc .getElementById("ctl00$Content$cmdAllAdj").Click End With Call WaitIE(objIE) '画面遷移の待機 'メッセージの確認 hWindow = FindWindow("#32770", "Webページからのメッセージ") 'FindWindowでシステムダイアログのウィンドウを探します。 PostMessage hWindow, WM_COMMAND, vbOK, 0& 'システムダイアログのOKボタンを押す End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
