Web-Abfrage
Mathias
ich habe eine Frage:
Ich möchte von dieser Seite, zu der ich einen Zugang besitze, eine Webabfrage unter meinem Accout starten lassen.
Ich habe aus dem Forum bisher heraus gefunden
Dim MeineSeite As Object
Dim Quelltext As String
Dim wks As Worksheet
Set MeineSeite = CreateObject("InternetExplorer.Application")
Set wks = ThisWorkbook.Worksheets("Tabelle2")
MeineSeite.Visible = True
MeineSeite.Navigate2 "http://www.boerse-frankfurt.de/DE/index.aspx?pageID=1"
Do
Do While MeineSeite.busy
DoEvents
Application.StatusBar = "Suche Website..."
Exit Do
Loop
Loop Until MeineSeite.busy = False
Application.StatusBar = False
'Die ist ein Test...Frage siehe unten
MeineSeite.Document.all("j_id49:password").Value = "passwort"
MeineSeite.Document.all("j_id49:j_id54").Click
Ich suche nun die ID's, zur Login-ID, dem Passwort und Click-Ereignis, mit der die Daten abgesendet werden.
Ich hab es schon mit einem Überwachungsausdruck versucht, allerdings habe ich da keinen Überblick.
Vielen Dank für eure Hilfe.
Danke
Mathias