Web Formular automatisch ausfüllen

Erik · 2018-01-27T09:26:20+00:00

Hallo zusammen, habe folgenden Code gefunden und wollte diesen auf mein Formular abändern. Bekomme es aber nicht hin. Was muß ich ändern, damit die Felder korrekt ausgefüllt und der Login Button betätigt wird ? Gruß Erik Sub anmelden_bei_eParts() Dim IEApp As Object Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Visible = True IEApp.Navigate "http://unirent.info/epart/index.html" Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False With IEApp.Document Do: Loop Until .ReadyState = "complete" .getelementbyid("txtLogin").Value = "Benutzername" .getelementbyid("txtPassword").Value = "Passwort" .getelementbyid("frmLogin:_id21").Click End With Set IEApp = Nothing End Sub

Hallo Erik,
für das Fernsteuern von Webseiten muss man immer einen individuellen Code verwenden. Du kannst also nicht einfach ein Makro nehmen, das Anton mal für eine ganz andere Seite geschrieben hat. Da ich jetzt nicht viel Zeit habe und anhand Deiner herangehensweise auch nicht sicher bin, ob Du (ohne Dir zu nahe treten zu wollen), meine Erklärungen nachvollziehen könntest, nur folgendes.
Die von Dir angegebene URL http://unirent.info/epart/index.html läd ein Frameset aus drei Frames. Im mittleren wird angezeigt, was Du steuern möchtest. Deshalb muss man direkt auf den Inhalt dieses Frames zugreifen. Das geht am einfachsten, wenn man ihn direkt läd. Das geht über die URL http://test65.aciweb.de/eparts/1p840/startmain.php.
In dem dann vorliegenden HTML Code liegen die Input-Elemente, die Du steuern willst. Da sie die ersten drei auf der Seite sind, lassen sie sich nun sehr leicht ansprechen. Man bildet mit getElementsByTagName("input") ein Array, dessen erste drei Elemente, bestimmt durch die HTML-Struktur, Deine Felder für den Benutzernamen (Element 0), das Passwort (Element 1) und den Submit Button (Element 2) sind.
Folgendes Makro loggt Dich automatisch ein, nachdem Du Deine richtigen Benutzerdaten eingetragen hast. Allerdings weiß ich nicht, wie die Seite nach dem Einloggen aussehen wird. Falls es weiterhin drei Frames sein sollen, kann es sein, dass das Layout nun etwas in die Breite gezogen wirkt:


Sub anmelden_bei_eParts()
Dim IEApp As Object
Dim knotenAst As Object
Dim url As String
'url = "http://unirent.info/epart/index.html"
url = "http://test65.aciweb.de/eparts/1p840/startmain.php"
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate url
Do Until IEApp.ReadyState = 4: DoEvents: Loop
Set knotenAst = IEApp.Document.getElementsByTagName("input")
If Not knotenAst Is Nothing Then
knotenAst(0).Value = "Benutzername"
knotenAst(1).Value = "Passwort"
knotenAst(2).Click
Else
MsgBox "Kein Formular gefunden."
End If
Set IEApp = Nothing
Set knotenAst = Nothing
End Sub

Viele Grüße,
Zwenn

Hallo Erik,
das mit dem Hochladen der CSV-Datei funktioniert nicht, soweit ich es feststellen konnte. Das ist aber (vermutlich) nicht so wild. Ich habe Dir hier eine XLSM-Datei hochgeladen, in der eine Tabelle "Daten" und ein fertiges Makro hinterlegt sind.
Das Makro loggt Dich auf der Seite ein (war ja schon fertig) und dann gehe ich davon aus, dass Du auf der Bestellformularseite bist. Falls nicht, muss da noch eingebaut werden, dass das Makro auf dem Bestellformular landet.
Vor dem Aufrufen der Seite prüft das Makro, ob in der Daten-Tabelle mehr als 200 Positionen eingetragen sind. Falls ja, wird das Makro abgebrochen. Nach dem Einloggen wird das Bestellformular auf 200 mögliche Bestellpositionen erweitert. Anschließend werden die Daten aus der Daten-Tabelle in das Bestellformular übertragen.
Im Makro ist auch schon der Code hinterlegt, um den Bestell-Button auszulösen. Den Teil habe ich aber auskommentiert. So kannst Du erstmal testen, ob das Makro sich korrekt einloggt und die Daten korrekt einträgt. Da ich nicht weiß, wie schnell das System die automatisch zu ergänzenden Daten holt, ist vor dem Bestell-Button noch eine Pause eingebaut. Wie lang die sein muss, musst Du aber selber rausfinden. Ich habe das mal auf 5 Sekunden voreingestellt.
Falls das Nachladen der genannten Zusatzinfos durch den Button "Artikelinfo" ausgelöst werden muss, muss das noch ins Makro eingebaut werden.
Folgende Dinge konnte ich nicht testen:

Ob das Bestellformular nach dem Einloggen direkt zur Verfügung steht

Ob das Formular wirklich auf 200 Positionen erweitert wird

Ob die onClick-Ereignisse der Buttons "Bestätigen" und "Bestellung" korrekt ausgelöst werden

Ob die Zusatzinfos wirklich automatisch nachgeladen werden

Wenn das so funktioniert, bist Du die CSV-Datei los. Das Makro ist so programmiert, dass Du es von einer beliebigen Tabelle aus starten kannst. Es wird in jedem Fall korrekt auf die Daten-Tabelle zugegriffen. Auf welche Weise Du diese befüllst, spielt keine Rolle. Die Platzhalter brauchst Du natürlich so auch nicht mehr. Die drei vorhandenen Spalten sollten ausreichen. Ich habe eine Kopfzeile zugefügt, weil es so übersichtlicher ist (finde ich).
Ok, teste jetzt erstmal, ob das soweit funktioniert oder ob das alles Grütze ist ;-)
https://www.herber.de/bbs/user/119425.xlsm
Viele Grüße,
Zwenn

Web Formular automatisch ausfüllen

Forumthread: Web Formular automatisch ausfüllen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial