EXCEL「VBA」によるIE制御

最近の書き込み件数：今日 0件、昨日 0件
未読分：3件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#3 2015年9月8日(火)09時46分
From: vibasa

返事削除変更

> 処理を見るとクリック処理をされていますが、クリック処理ではなくnavigate メソッドを利用してそのURLを読み込めばポップアップ画面が表示されずに処理ができるかと思います。

クリック処理をせずに読み込めばよかったんですね！
やってみたらポップアップ画面が表示されずに対応することができました。
本当にありがとうございます！

Message#2 2015年9月7日(月)16時49分
From: VBAマスター

返事削除変更

おそらく　targetにblankが設定されているのでしょう。

処理を見るとクリック処理をされていますが、クリック処理ではなくnavigate メソッドを利用してそのURLを読み込めばポップアップ画面が表示されずに処理ができるかと思います。

objIE.navigate "**URL**"

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