Inhalte von Web-Tabelle auslesen

Hallo zusammen,
hatte schon mal folgendes diese Woche im Forum eingestellt, jedoch noch keine Rückmeldung erhalten :-( Wäre echt super, wenn von den VBA-Spezialisten hier jemand eine Idee hätte.
Danke&vieleGrüße
Chris
_________________
Hallo zusammen,
ich hänge schon seit längerem an einem Problem. Ich verwalte Aktien von einem Club im Portal "Finanztreff.de" und importiere sie in Excel.
Mit der Standardfunktion von Excel "Externe Daten importieren / Webabfrage funktioniert das schon ganz gut. Allerdings muss ich mich hierzu jedesmal in Finanztreff anmelden und das öfters am Tag, da das Token bei Finanztreff verfällt.
Jetzt möchte ich gerne eine Lösung, die mich automatisch beim Öffnen von Excel bei Finanztreff anmeldet und mir eine bestimmte Webseite (Watchlist mit Aktien) automatisch ausliest. Wiederholungsfrequenz 1x pro Minute.
Wenn von Excel ein Fehler geworfen wird, dass die Webabfrage keine Daten zurückgibt (= Token verloren = Neuanmeldung notwendig), soll das System sich wieder bei Finanztreff automatisch anmelden.
Ich hoffe, ich konnte mein Problem einigermaßen gut erläutern und würde mich über einen
Lösungsvorschlag von der Comunity hier sehr freuen.
Für Eure Unterstützung und Lösungsvorschläge bereits jetzt vielen Dank.
Viele Grüße
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
versuch es mal so:


Option Explicit
'Ausgangslösung siehe:
'https://www.herber.de/forum/archiv/1296to1300/1298426_vba__post_methode_im_internet_explorer. _
html
Sub Anmldg_www_Finanztest_de()
'Benötigt keine Verweise
Dim IEApp As Object, frage As String
Dim I As Integer, IEDoc As Object
Dim ding
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "http://www.finanztreff.de/anmeldung.htn" '"http://www.finanztreff.de/"
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.Document.readyState = "complete"
'IEApp.Visible = True
'MsgBox 123
Set IEDoc = IEApp.Document
'Formularelement für Anmeldename ermitteln
On Error Resume Next
For Each ding In IEDoc.all
Debug.Print ding.Name
If ding.Type = "text" And ding.Name = "lg" Then
If Err = 0 Then
'Anmeldename hier anpassen
ding.Value = "MrBrot"
On Error GoTo 0
Err.Clear
Exit For
Else:
Err.Clear
End If
End If
Next
'Formularelement für Paßword ermitteln
On Error Resume Next
For Each ding In IEDoc.all
If ding.Type = "password" And ding.Name = "pw" Then
If Err = 0 Then
'Paßwort hier anpassen
ding.Value = "Raufasertapetet"
On Error GoTo 0
Err.Clear
Exit For
Else:
Err.Clear
End If
End If
Next
IEApp.Visible = True
'Userlogin starten
IEDoc.frmLogin.submit
Do: Loop Until IEDoc.readyState = "complete"
Set IEApp = Nothing
Set ding = Nothing
End Sub

Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalte von Web-Tabelle auslesen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread