Excel und Html
Uwe
mitte letzten Jahres hatte mir der Code von Anton sehr geholfen Daten von Excel nach einem Html zu übertragen.
Leider haben die Betreiber ihre Seite überarbeitet und der tolle Code von Anton funktioniert leider nicht mehr.
Sub VersAbfr()
Dim IEApp As Object
Dim myUrl As String
myUrl = "https://services.gdv-dl.de/zawebrequest/kennzeichensuche.aspx"
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Navigate myUrl
IEApp.Visible = True
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
With IEApp.Document
Do: Loop Until .ReadyState = "complete"
'Angaben Anfrager
.getelementbyid("txt_Injured_Name").Value = "Name" 'Worksheets("Tabelle1").Range("A1"). _
Text
.getelementbyid("txt_Injured_Street").Value = "Strasse"
.getelementbyid("txt_Injured_Zip_Code_City").Value = "PLZ"
.getelementbyid("txt_Injured_City").Value = "Ort"
.getelementbyid("txt_Injured_Telephone_No").Value = "Telefon"
.getelementbyid("txt_Injured_Fax_No").Value = "Fax"
.getelementbyid("txt_Injured_E_Mail").Value = "E-Mail"
.getelementbyid("txt_Injured_Registration_No").Value = "Amtl. Kennzeichen"
.getelementbyid("txt_Injured_Reference").Value = "Ihr Zeichen"
'Angaben Schadenfall
.getelementbyid("txt_Owner_Registration_No").Value = "Amtl. Kennzeichen des Unfallgegners"
.getelementbyid("txt_Accident_Date").Value = "Schadentag"
.getelementbyid("txt_Owner_Name").Value = "Name des Halters"
.getelementbyid("txt_Owner_Street").Value = "Strasse des Halters"
.getelementbyid("txt_Owner_Zip_Code_City").Value = "PLZ"
.getelementbyid("txt_Owner_City").Value = "Ort des Halters"
'Anfrage starten
'.getelementbyid("btn_Submit").Click
End With
Set IEApp = Nothing
End Sub
... meinem laienhaften Verständnis nach liegt es an dem ".getelementbyid"hab da jetzt versucht es zu ändern, hat aber bisher nicht funktioniert.
Hoffe mir kann da nochmal einer unter die Arme greifen!
Mit bestem Dank im Voraus.
Uwe