Webformular

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Webformular

27.12.2019 14:43:17

Hajo_Zi

AW: Webformular

27.12.2019 14:49:33

Marco

AW: Webformular

27.12.2019 14:44:50

Marco

AW: Webformular

27.12.2019 15:35:08

ChrisL

AW: Webformular

27.12.2019 16:18:55

Marco

AW: Webformular

27.12.2019 17:04:14

ChrisL

AW: Webformular

27.12.2019 17:19:53

Marco

Hallo Marco,
Du bist im falschen Forum. Bildbearbeitung ist ein anderes.
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Schau mal hier
Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese hoch.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms)
Das ist nur meine Meinung zu dem Thema.

Hi Marco
Die Aufgabe kann leider schnell komplex werden u.a. weil du den HTML-Code (mittels Konsole vom Webbrowser) analysieren müsstest und dir die Feldnamen raussuchen musst. Hier mal bis und mit ListBox...

Sub FormFill()
Dim IEApp As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "https://www.avp24.de/anzeigen/kleinanzeige/avp-am-mittwoch.html"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
With IEApp.Document
Do: Loop Until .ReadyState = "complete"
.getElementsByClassName("input")(0).Value = "Ein Titel"
.getElementById("katext").Value = "Ein Text"
.getElementById("rubrik").Value = "Entlaufen"
.getElementsByClassName("muiltipleselect")(0).Options(1).Selected = True
.getElementsByClassName("muiltipleselect")(0).Options(5).Selected = True
End With
Set IEApp = Nothing
End Sub

Dass sich manche Objekte nicht mittels ID (wäre meine bevorzugte Variante gewesen) ansprechen lassen, hängt m.E. damit zusammen, dass identische ID's in unterschiedlichen Bereichen verwendet wurden. ClassName bildet eine Umgehungslösung. Ansonsten hätte man auf eine saubere DOM-Lösung (im Archiv siehe diverse Beiträge von "Zwenn") ausweichen müssen.
cu
Chris

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Webformular

7 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)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread