**動作環境: **
OS: Windows7 32bit
開発環境: Access2010 VBA
操作対象:IE11
質問内容:
いつもお世話になっております。
IE操作後の実行ボタンで、確認ウィンドウが表示されますが、それを押せずに困っています。
(ウィンドウタイトル:Webページからのメッセージ 表示内容:~印刷画面を表示します。 ボタン OK キャンセル)
参考になりそうなサイトページは参照していますが、解決にまで至っていません。
アドバイスいただけると助かります。
【サンプルコード】
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) sub test() Dim IE As InternetExplorer Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate "https://~/OpenContentList?NO=11025411" Do While IE.Busy Or IE.ReadyState < 4 DoEvents Loop With IE.Document Set button = .getElementById("allCheck") '画面操作1(ボタン操作) button.Click .all("commandSelected")(4).Selected = True '画面操作2(コンボボックス選択) Set button = .getElementById("executeButton") button.Click '←この実行ボタン押下後、確認ウィンドウ表示[ここで止まる] sleep 1000 Sendkeys "{ENTER}", True end with Exit Sub
【サンプル参照先HTML】
$("#executeButton").click(function() { var cmSelected = $("#commandSelected option:selected").val(); var checkedDocumentIdValue = []; var checkedPrItemsValue = []; $("input[id=processItems]:checkbox:checked").prev("input[id=processItemsvalue]").each(function(){ checkedPrItemsValue.push(this.value); }); $("input[id=processItems]:checkbox:checked").prev("input[id=processItemsvalue]").prev("input[id=documentIdItems]").each(function(){ checkedDocumentIdValue.push(this.value); }); var checkItemCount = checkedPrItemsValue.length; if(checkItemCount == 0){ alert("ドキュメントを選択してください。"); return false; } if(cmSelected =="" ){ alert("コマンドを選択してください。"); return false; }else if(cmSelected =="View" ){ //画面操作2 のコンボボックス選択で処理分岐のため 該当部分のみ抜粋 }else if(cmSelected =="Print" ){ if(confirm('~印刷画面を表示します。')) { var queryStr = ""; $.each(checkedPrItemsValue,function(i,k){ if(i > 0){ queryStr = queryStr.concat(",", "", k); }else{ queryStr = queryStr.concat("&", "id=", k); } }) var urls= "/adter".concat('/common/multiViewOne?approval=false&mode=print',queryStr); window.showModelessDialog(urls, this, "dialogWidth:800px; dialogHeight:900px; resizable:yes; scroll:no;maximize:yes;minimize:yes"); } var urls= "/adter".concat('/common/multiViewOne?approval=false&mode=view',queryStr); window.showModelessDialog(urls, this, "dialogWidth:800px; dialogHeight:900px;resizable:yes; scroll:no;maximize:yes;minimize:yes"); // }
あなたの回答
tips
プレビュー