Hallo zusammen,
bei mir soll durch einen Klick in Excel eine Interseite geöffnet werden und sich dann dort eingeloggt werden.. soweit passt es auch noch... allerdings hab ich noch ein kleines Problem. Nach dem Einloggen will ich einen bestimmten Bereich "Schnellzugriff" anklicken - dahinter verbirgt sich eine Tabelle die dann komplett ins Excel kopiert werden soll (vom Prinzip das was man sonst manuell über "Daten - Aus dem Web" machen kann).
Wie muss ich das Makro erweitern um das genau dies passiert???
Public Sub loggen()
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.navigate "http://193.84.28.179/bergrettung/login.asp"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.document
Do: Loop Until IEDocument.ReadyState <> 4
IEDocument.getElementByID("Nachname").Value = "Mustermann"
IEDocument.getElementByID("Passwort").Value = "12345"
IEDocument.getElementByID("OK").Click
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.document
Do: Loop Until IEDocument.ReadyState <> 4
End Sub
|