Question

我正在尝试使用SendKeys导航和播放使用Internet Explorer输入数据。代码的第一部分有一个循环，在此循环期间，网页（以.php结尾）刷新自己以获取条目。由于我在浏览器打开后使用SendKeys，我正在寻找一种方法暂停脚本，直到页面加载并准备好接收输入。我目前正在使用3秒的小时间延迟，但是如果浏览器滞后，一切都会变得混乱。

那么，是否有任何可以促进这一点或至少允许我使用GetObject命令将Internet Explorer的当前实例设置为对象。

    AppActivate "Explorer"
    Dim CCount As Integer
    Dim DCount As Integer
    Dim LCount As Integer
    LCount = 1
    CCount = 2
    DCount = ActiveSheet.Range("O2").Value
    Dim LoopP As Integer
    LoopP = 1
    For LoopP = 1 To DCount


    SendKeys ActiveSheet.Range("A" & CCount).Value, True
    SendKeys "{Tab}", True
    SendKeys Format(ActiveSheet.Range("C" & CCount).Value, "#,###"), True
    SendKeys "{Tab}", True

' Breakdown IF
    If ActiveSheet.Range("K" & CCount).Value = 1 Then
    SendKeys ActiveSheet.Range("D" & CCount).Value, True
    Else
    End If

    SendKeys "{Tab}"

' Remark IF
    If ActiveSheet.Range("L" & CCount).Value = 1 Then
    SendKeys ActiveSheet.Range("E" & CCount).Value, True
    Else
    End If


    SendKeys "{Tab}", True
    SendKeys "{Enter}", True
    CCount = CCount + 1

'    While IE.Busy Or IE.readyState <> 4: DoEvents: Wend
'    While IE.readyState <> 4 Or IE.Busy: DoEvents: Wend
'    Do While IE.readyState <> 4: WScript.Sleep 100: Loop
     Application.Wait (Now + TimeValue("0:00:01"))
    Next LoopP

使用Internet Explorer的当前Internet Explorer实例

0 个答案: