Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1080to1084
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel und Html

Excel und Html
23.06.2009 00:10:52
Uwe
Hallo an Alle,
möchte gerne aus Excel in ein HTML Formular übertragen.
Mit dem Code habe ich es auf anderen Seite auch schon geschafft......
https://www.herber.de/bbs/user/62655.xls
..... vielleicht kann sich mal einer den Quellcode der Seite anschauen und mir sagen wie die Zeile in dem Code richtig aussehen muß. Leider ist mein Wissen da viel zu bescheiden. Mit der Recherche komm ich auch nicht weiter.
Hoffe mir kann da einer weiter helfen!
Vorab schon mal vielen Dank!!!
LG Uwe

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel und Html
23.06.2009 16:59:46
Anton
Hallo Uwe,
probier's so:

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  

mfg Anton
Anzeige
AW: Excel und Html
25.06.2009 10:20:46
Uwe
Guten Morgen Anton,
leider konnte ich erst jetzt wieder an die Geschichte dran.
Und es funktioniert natürlich prima!!!!!!!
Hab wochenlang hin und her probiert.
Vielen lieben Dank dafür!!!!!!!
Gruß Uwe
AW: Excel und Html
29.06.2009 05:34:56
Hans
sorry, test
hans
AW: Excel und Html
29.06.2009 05:45:50
Hans
sorry, test
AW: Excel und Html
29.06.2009 05:52:11
Hans
sorry, test

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige