Excel Daten in HTML Formular übertragen
21.08.2008 13:48:00
Johannes
ich bin über einen Thread in einem anderen Forum auf dieses Forum und zwei Threads gestoßen worden, bei denen sich besonders der User Tino als Super-Hilfe herauskristalisiert hat (und dafür ziemlich angeblafft wurde...), weshalb ich mir erhoffe hier bzgl. meines Problems Hilfe zu erhalten *zutinoschiel ;)*
Zunächst die genannten Threads:
Mein erster Thread im MS-Office-Forum
http://www.ms-office-forum.net/forum/showthread.php?t=237086
Text aus Zelle in Internet Seite
https://www.herber.de/forum/archiv/996to1000/t999890.htm
IE Schaltfläche
https://www.herber.de/forum/messages/1002352.html
Mittlerweile bin ich durch die oben genannten Threads auch schon recht weit gekommen. (und an dieser Stelle kopiere ich aus meinem anderen Thread. Es sei mir verziehen bitte :)) Sprich: Die entsprechende Seite wird angerufen und die Zeilen auch ausgefüllt. Nun habe ich jedoch folgendes Problem: Die sachen müssen variabel sein. D.h.: Es sollen immer die Inhalte der ausgewählten Zeile eingetragen werden. Leider kann ich kein VBA. Dafür aber ein wenig PHP. Ich habe also gedacht, dass ich das über Variablen machen muss. Der Anfang geht auch schonmal, sodass Daten aus einer von mir angegebenen Zelle rüberkopiert werden. Doch wie lass ich das Skript die Daten aus einer von mir markierten Zeile (mit der Maus) als Variable übernehmen?
Ich habe darüber hinaus noch das Problem, dass die Zeile ,,Adresse" sowohl Strasse, als auch Hausnummer enthält. Das ist bei dem Online-Formular nicht der Fall. Dort sind die beiden Sachen aufgesplittet. Kann mir jemand erklären, wie ich das in VBA parse und in zwei Variablen aufsplitte?
Mein Code bisher:
Sub WebseiteAusfüllen()
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.application")
appIE.Visible = True
appIE.Navigate "https://www.xxx.de"
While Not appIE.ReadyState = 4 'Warte auf Webseite
DoEvents
Wend
Dim name$
name = ActiveSheet.Cells(1, 1).Value
Dim surname$
surname = ActiveSheet.Cells(1, 2).Value
appIE.Document.all.ContentPanel_tbx_firstname.Value = name
appIE.Document.all.ContentPanel_tbx_surname.Value = surname
appIE.Document.all.ContentPanel_tbx_addition.Value = "C1"
appIE.Document.all.ContentPanel_tbx_street.Value = "Strasse"
appIE.Document.all.ContentPanel_tbx_housenumber.Value = "23"
appIE.Document.all.ContentPanel_tbx_zipcode.Value = "54813"
appIE.Document.all.ContentPanel_tbx_town.Value = "Stadt"
appIE.Document.all.ContentPanel_tbx_cellphone.Value = "017056465456"
appIE.Document.all.ContentPanel_tbx_landphone.Value = "045612344"
Set appIE = Nothing
End Sub
Anzeige