Kursabfrage
20.10.2020 14:41:43
michax
meine Anfrage bezieht sich auf ein Thema, was wir vor einiger Zeit super gelöst hatten. (https://www.herber.de/forum/archiv/1732to1736/1732523_Abfrage_via_Excel_moeglich.html#1732523)
Hier hatte ich Wechselkursabfrage aus dem Internet per Script gemacht. Da ist jetzt aber etwas geändert worden. Die ID-s im Onlineformular ändern sich ständig, so dass sich der submit nicht auslösen lässt. Die Id lässt sich ja ermitteln, erzeugt aber beim Einfügen eine Fehlermeldung. Ich hänge den Code mal an. Zwischen den Pfeilen liegt meine Problemstelle.
Option Explicit
Sub KreditKartenWechselKurse()
Dim browser As Object
Dim url As String
Dim htmlZeile As Long
Dim zeile As Long
Dim startZeile As Long
Dim spalte As Long
Dim startSpalte As Long
Dim spalteWaehrung As Long
Dim datum As String
Dim jahr As String
Dim monat As String
Dim tag As String
Dim knotenInput As Object
Dim knotenDropdown As Object
Dim knotenEven As Object
Dim knotenAlleZellen As Object
Dim knotenEineZelle As Object
Dim id As String
'Datumsabfrage aus Tabelle + falsche Daten korrigiert
If ActiveSheet.Cells(1, 3).Value >= Date Then
datum = CStr(Date - 1)
Cells(1, 9).Value = 1 'Endlosschleife verhindern, da Makro bei Änderung A3 ausgelöst _
_
wird
Cells(1, 3).Value = datum
ElseIf ActiveSheet.Cells(1, 3).Value
id = browser.Document.getelementsbyname("submitButton")(0).id
'id zum Test in der Tabelle ausgegeben - das funktioniert auch
ActiveSheet.Cells(8, 1).Value = id
'alt - hat mit fester id funktioniert
'browser.Document.getelementbyid("id1").submit
'hier kommt jetzt der Fehler
browser.Document.getelementbyid(id).submit
'