Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema Label | |
|---|---|
 Screenshot zu Label |
Label-Seite mit Beispielarbeitsmappe aufrufen |
| Informationen und Beispiele zum Thema TextBox | |
|---|---|
 Screenshot zu TextBox |
TextBox-Seite mit Beispielarbeitsmappe aufrufen |
Mit Excel in Webseite anmelden | Herbers Excel-Forum
- Mit Excel in Webseite anmelden von Mister B vom 04.02.2010 09:19:37
- dreifach .. Gruss Mike (owT) - von Mike am 04.02.2010 09:25:16
Betrifft: Mit Excel in Webseite anmelden
von: Mister B
Geschrieben am: 04.02.2010 09:19:37
Guten Morgen,
ich versuche vergeblich aus Excel heraus eine Webseite zu öffnen und mich dort automatisch anzumelden. Folgendes Beispiel habe ich gefunden aber leider nicht zu Laufen gebracht:
Sub Zeiterfassung()
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.application")
On Error Resume Next
'False ist unsichtbar True ist Sichtbar
appIE.Visible = True
appIE.Navigate "http://jvceap01/webaspx/"
Call ShowWindow(appIE.hwnd, SW_MAXIMIZE)
Do While appIE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
appIE.Document.all.LoginUserControl__passwordLabel.Value = Sheets("PersDaten").Range("P1")
appIE.Document.all.LoginUserControl__passwordTextBox.Value = Sheets("PersDaten").Range("Q1")
appIE.Document.all.LoginUserControl__connectButton.Click
''Webseite schliesen
'appIE.Quit
Set appIE = Nothing
End Sub
Der Quellcode ist beigefügt. Kann mir jemand bitte helfen?
https://www.herber.de/bbs/user/67745.txt
Gruß
Martin
Betrifft: dreifach .. Gruss Mike (owT)
von: Mike
Geschrieben am: 04.02.2010 09:25:16
.