单击使用vba excel在浏览器中弹出窗口

Question

我正在尝试自动登录，然后在我的办公室内部应用程序中选择日期范围，以节省使用VBA excel 2013脚本的时间。我成功地能够登录并将字段传递给日期和时间。 点击提交后，会弹出一个弹出对话框。

我无法点击＆＃34;是＆＃34;在浏览器中生成弹出窗口。

在此之前，以下vba代码工作正常。

Sub automaticformfilling()
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")

With ie
    .Visible = True
    .navigate "http://abcd/default.asp"
Do While .busy
    DoEvents
Loop

Do While .readystate <> 4
    DoEvents
Loop
End With

Set fname = ie.document.getelementbyid("txtEmpId")
fname.Value = "abc"

Set pass = ie.document.getelementbyid("txtPassword")
pass.Value = "abc2017"

ie.document.getelementbyid("image1").Click

Set fdate1 = ie.document.getelementsbyname("fmSLADt")(0)
fdate1.Value = "12/08/2017"
Set ftime1 = ie.document.getelementsbyname("fmSLATm")(0)
ftime1.Value = "00:00:00"

ie.document.getElementsByTagName("img")(11).Click

在这部分之后，我需要点击＆＃34;是＆＃34;在弹出框中继续。

Answer 1

其他人也有大量相同问题的例子。

情侣链接让您入门：

• VBA Express：Handling dialog boxes in IE automation

• Stack Overflow：Click on an IE Window without SendKeys or MouseEvent

• Google：vba internet explorer dialog click OK