EXCEL「VBA」によるIE制御 削除
Message#1 2015年9月7日(月)06時51分 From: vibasa |
Excel VBA IE操作 ポップアップウィンドウを閉じる Excel2010 IE11 IEからデータを取得し、Excelで処理をするために、Excel VBA からIEを操作し、ポップアップウィンドウを閉じたいです。 Excel2010 IE11の環境で以下のコードを書きました。 objIEのBusyプロパティが取得できていないようです。 Excel VBAで「WEBページからのメッセージ」を閉じるにはどうしたらいいですか? 詳しい方教えてください。お願いします。 Public Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) Sub ポップアップウィンドウを閉じる() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "**URL**" Do While objIE.Busy ’ページが表示されるまで待機 Sleep 100 Loop ’aタグの中身を取得しmenuのものをクリックさせる For Each obj In objIE.document.getElementsByTagName("a") If obj.ID = "menu" Then obj.Click 'ここをクリックをした後に「WEBページからのメッセージ」で「OK」「キャンセル」選択できるようになる。 Exit For End If Next Do While objIE.Busy Sleep 100 SendKeys "{ENTER}", True 'SendKeysでOKボタンを押させたい。 Loop End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。