VBA:如何使用IE等待弹出窗口

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")

IE.Navigate "https://www.example.com"

Do While IE.Busy Or IE.ReadyState <> 4
    DoEvents
Loop

Do Until IE.Document.getElementById("popup").Style.display = "block"
    DoEvents
Loop

' 获取弹出窗口对象
Dim popup As Object
Set popup = IE.Document.getElementById("popup")

' 在弹出窗口中执行操作
popup.Document.getElementById("button").Click