Internet Explorer - 使用VBA用文本掩码填充输入框

Question

下午好！

我试图运行一个宏来打开一个网站，登录，在菜单中选择一个选项，填充一个文本框，然后点击另一个按钮。

到目前为止，我可以打开网站，登录，选择菜单中的选项，但是我无法通过任何方式填充文本框。该输入框有一个文本掩码：

格式：00000-000类型：数字最大字符。： 8分钟字符。： 8

Sub SAVE()


    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.StatusBar = "Searching"


Sheets("WEB").Visible = True

    Dim IE As New InternetExplorer
    Dim WshShell As Object
    Dim dtInicio As Date
    Dim objIE As New DataObject



    Sheets("SAVE").Select
    Sheets("SAVE").Cells.Clear


S = 2
V = 2

SALVA = 0
Do While Sheets("Adress").Cells(V, 2) <> ""
    IE.Visible = True

    Sheets("WEB").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Select
    Sheets(Sheets.Count).Name = "WEB"


'OPEN URL
    IE.navigate "URL HERE"

    While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
        Sleep (1000)
        DoEvents
    Wend



    IE.Document.forms(0).pUsrLg.Value = "user"
    IE.Document.forms(0).pUsrSn.Value = "password"
    IE.Document.parentWindow.execScript "login();"

    While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
    Sleep (1000)
    DoEvents
    Wend

    IE.Document.parentWindow.execScript "enviaPage('mod_pesquisa/DisponibilidadeNaoClientes.asp', 'GET', 'True', 'dv_pagina', 'pUsrId=0000050007', 'True', 389, 892);"

    While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
    Sleep (1000)
    DoEvents
    Wend

我必须填写的输入如下所示：

<input name="pCepNr" id="pCepNr" type="text" class="st_cxt_01" style="height: 20px; width: 85px; background-color: #FFEEDD; color: #913A1A;">

Answer 1

因为方法IE.Document.getelementbyid（“pCepNr”）。值返回错误代码91（对象未设置），我怀疑。getElementById无法找到具有id=“pCepNr”的HTML元素

请在您的代码中尝试这样做来确认这一点:

' snip ...
IE.Document.parentWindow.execScript "enviaPage('mod_pesquisa/DisponibilidadeNaoClientes.asp', 'GET', 'True', 'dv_pagina', 'pUsrId=0000050007', 'True', 389, 892);"

While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
    Sleep (1000)
    DoEvents
Wend

Dim problemTextBox as Object
Set problemTextBox = IE.Document.getelementbyid("pCepNr")

我怀疑它会抛出同样的错误。（编辑 有关睡眠例程，请参阅此问题。

除非您查找的元素id错误，否则当您尝试访问该元素时，该元素根本不存在。

如果您正在运行的这个脚本，

IE.Document.parentWindow.execScript "enviaPage('mod_pesquisa/DisponibilidadeNaoClientes.asp', 'GET', 'True', 'dv_pagina', 'pUsrId=0000050007', 'True', 389, 892);"

是加载元素的原因，而在此之前元素不存在，那么您的等待循环无法等待足够长的时间来加载它。

我注意到对于. asp页面IE. Busy或IE.readyState并不总是有效。您可以通过使用调试器逐步减速并在知道输入框已加载后访问输入框来测试它，或者通过强制大量（10秒）睡眠来测试它。

如果只是在加载元素之前退出等待循环，那么您将需要更好的等待例程。这是我用过的一个，部分来自SE上的其他问题。

Public Function ElementExists(document as Object, id As String) As Boolean

    Dim el As Object
    Set el = Nothing

    On Error Resume Next
    Set el = document.getElementById(id)

    On Error GoTo 0
    ElementExists = Not (el Is Nothing)

End Function
Public Function WaitForElement(document as Object, ByVal id As String, Optional ByVal timeout As Integer = 3) As Boolean

    Dim start_time As Single
    start_time = Timer

    Do While Not (ElementExists(document, id)) And start_time + timeout > Timer
        DoEvents
    Loop
    WaitForElement = ElementExists(document, id)

End Function

调用WaitForElement（IE.Document，“pCepNr”）将等待元素加载不超过3秒，并返回元素是否可访问（true|false）。3秒是可选的，您可以根据需要增加或减少，例如（WaitForElement（IE.Document，“pCepNr”，timeout:=10）。