Internet Explorer - Eingabefeld mit Textmaske füllen mit VBA
guten Nachmittag
Ich versuche, ein Makro auszuführen, das eine Website öffnet, mich anmeldet, eine Option im Menü auswählt, ein Textfeld ausfüllt und auf eine andere Schaltfläche klickt.
Bisher kann ich die Website öffnen, mich anmelden, die Option im Menü auswählen, aber ich kann das Textfeld auf keinen Fall ausfüllen. Dieses Textfeld hat eine Textmaske:
Format: 00000-000 Typ: Numerisch Max. Zeichen: 8 Min. Zeichen: 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
Die Eingabe, die ich ausfüllen muss, sieht folgendermaßen aus:
<input name="pCepNr" id="pCepNr" type="text" class="st_cxt_01" style="height: 20px; width: 85px; background-color: #FFEEDD; color: #913A1A;">