VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Automatische Passworteingabe in Internet-Formular

Gruppe

Extern

Bereich

Internet

Thema

Automatische Passworteingabe in Internet-Formular

Problem

Über den IExplorer-Dialog soll eine automatische Passworteingabe erfolgen.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: Modul1

Sub CallSearch()
   frmSuche.Show
End Sub
ClassModule: frmSuche

Private Sub cmdBack_Click()
   WebBrowser1.Navigate "https://www.herber.de/form_test1.html"
   cmdBack.Enabled = False
   cmdOK.Enabled = True
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   WebBrowser1.Document.all("username").innertext = "Hans W. Herber"
   WebBrowser1.Document.all("password").innertext = "Herbers Passwort"
   WebBrowser1.Document.Forms(0).Item("Submit").Click
   cmdOK.Enabled = False
End Sub

Private Sub UserForm_Initialize()
   WebBrowser1.Navigate "https://www.herber.de/form_test1.html"
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Internet