Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Mit Excel in Webseite anmelden | Herbers Excel-Forum


Betrifft: Mit Excel in Webseite anmelden von: Mister B
Geschrieben am: 04.02.2010 09:21:33

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:26

.


Beiträge aus den Excel-Beispielen zum Thema "Mit Excel in Webseite anmelden"