如何将重点放在msgbox上? [英] How do I bring focus to a msgbox?

问题描述

Private Sub CommandButton1_Click()
Dim i As Long
Dim xreply As Integer
Dim names As Long

Dim IE As Object

i = ActiveSheet.Range("D1").Value

While Not IsEmpty(ActiveSheet.Range("A" & i).Value)

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "WEBSITENAME" & ActiveSheet.Range("A" & i).Value 

'wait for webpage to load
Do
    DoEvents
Loop Until IE.READYSTATE = 4

'pagedown to the info
Application.SendKeys "{PGDN}", True
Application.SendKeys "{PGDN}", True

xreply = MsgBox("Is this page for women? Record:" & i, vbYesNo, "Checker")
Application.Visible = True
AppActivate ("Checker")

If xreply = vbYes Then
    ActiveSheet.Range("B" & i).Value = "Yes"
    Else
    ActiveSheet.Range("B" & i).Value = "No"
End If

'quit IE
IE.Quit
i = i + 1
ActiveSheet.Range("D1").Value = i
Wend

End Sub

以上是我的代码.我正在尝试将msgbox带到最前面，但是我无法通过AppActivate这样做.

Above is my code. I am trying to bring the msgbox to the front, yet I can not get AppActivate to do so.

当我离开AppActivate("Checker")时，我得到: 运行时错误"5": 无效的过程调用参数，有帮助吗?

When I leave AppActivate("Checker") I get: Run-Time error '5': Invalid procedure call argument, help?

推荐答案

尝试一下:

...
AppActivate ("Microsoft excel")
xreply = MsgBox("Is this page for women? Record:" & i, vbYesNo, "Checker")
...

这篇关于如何将重点放在msgbox上?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！