Webimport

Hi,
Ich steh wieder mal auf'n Schlauch und brauch etwas Hilfe bezüglich Datenimport von einer I-Netseite.
Da bei uns die entsprechende Seite umfunktioniert wurde funktioniert die normale interne Excel Webabfrage nicht mehr, da auf der entsprechenden Seite ein Dropdownmenü einbaut wurde und der eingentliche Datensatz erst erscheint wenn in diesen Menü das entsprechende Kriterium ausgewählt wurde.
Jetzt versuche ich ich über ein Umweg daran zu kommen, aber iwi komm ich nicht weiter (Fehler: Das aufgerufene Objekt wurde von den Clients getrennt)
Ich habe mich auch hier schon durchs Forum gewühlt find aber nicht das richtige.
Ich hab auch schon mehrere verschiedene Codes probiert
wie z.B.
Do While IEApp.Busy: DoEvents: Loop
Do While IEApp.ReadyState 4: DoEvents: Loop
With IEApp.document
With .getElementById("Spaßmobile").selectedindex = 4
End With
.getElementById("Submit").Click
End With
der VB Code der I-Net Seite sieht so aus (Achtung: Namen geändert):
form id="filter-form" name="filter-form" action="Detail.action" method="post"
label for="selectReportTypeField" class="label">Select Report Type
select id="Modelle" class="elementSelect" name="Spaßmobile"
option value=""> option
option value="Motorrad">Motorrad option
option value="Auto">Auto option
option value="Fahrrad">Fahrard option
.
.
.
/select
input id="filter-form_Submit" name="Submit" value="Submit" onclick="return validateForm();" type="submit"
Ich bedanke mich schon mal im voraus
Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Webimport

25.05.2016 11:42:56

Zwenn

AW: Webimport

25.05.2016 12:34:40

Zwenn

Sorry, 'post' überlesen

25.05.2016 12:36:31

Zwenn

AW: Sorry, 'post' überlesen

25.05.2016 17:06:38

Reaper

AW: Webimport

26.05.2016 18:18:08

Michael

AW: Webimport

27.05.2016 17:23:12

Reaper

AW: Webimport

01.06.2016 08:05:46

Reaper

Hi zusammen,
ich habe mal einen Server (easyphp) aufgesetzt und herumgebastelt.
Die POST-SendenHTM.htm sieht so aus:

<html>
<!--
http://php.net/manual/de/tutorial.forms. _
php
https://wiki.selfhtml.org/wiki/HTML/Formulare/Auswahllisten
-->
<body>
Bitte Formular ausfuellen<br>
<form action="POST-Lesen.php" method="post">
<p>Ihr Name: <input type="text" name="name"/></p>
<p>Ihr Alter: <input type="text" name="alter" /></p>
<p><select name="Pizza" size="5" onchange="alert(this.value)">
<option value="Napoli">Pizza Napoli</option>
<option value="Funghi">Pizza Funghi</option>
<option value="Mare">Pizza Mare</option>
<option value="Tonno">Pizza Tonno</option>
<option value="Mexicana">Pizza Mexicana</option>
</select></p>
<p><input type="submit" name="machen" /></p>
</form>
</body>
</ht

Die POST-Lesen.php so:

<html>
<!-- http://php.net/manual/de/tutorial. _
forms.php
-->
<body>
Erhaltene Daten:<br>
Hallo <?php echo $_POST['name']; ?>.      <br>
Du bist <?php echo $_POST['alter']; ?> Jahre alt<br>
und liebst Pizza <?php echo $_POST['Pizza']; ?>.<br>
Alles klar?
</body>
</html>

Das Makro

Option Explicit
Sub POST_Form_Senden()
'Quellen:
'https://www.herber.de/forum/archiv/1120to1124/1121764_WEB_Formular_ausfuellen.html
'http://vbanet.blogspot.de/2012/07/internetexplorer-formular-ausfullen.html
Dim IEApp As Object
Dim IEDoc As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "http://127.0.0.1/POST-SendenHTM.htm"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
With IEApp.Document
Do: Loop Until .ReadyState = "complete"
.Forms(0).elements("name").Value = "Mustermann"
.Forms(0).elements("alter").Value = "22"
.Forms(0).elements("Pizza").Value = "Tonno"
.Forms(0).elements("machen").Click
'    .getelementbyid("?").Value = "Mustermann"
'    .getelementbyid("?").Click
End With
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Stop
With IEApp.Document
Do: Loop Until .ReadyState = "complete"
End With
MsgBox IEApp.Document.body.outertext
MsgBox IEApp.Document.body.innertext
MsgBox "jetzt kannste den IE schließen"
Set IEApp = Nothing
End Sub

schreibt die Daten ins Formular und sendet es ab, womit die zweite Datei geladen wird und die Sachen brav anzeigt.
Die msgbox ganz unten liest sich sehr nett, aber mir ist es irgendwie nicht gelungen, mit IEApp.Document.xyz den AKTUELLEN, nachgeladenen Inhalt zu bekommen: da fällt hoffentlich Zwenn was ein, ich mache so Zeug nicht laufend...
Halt, halt, ich hatte die erste Datei zunächst als .php abgespeichert, wenn die .htm ist und .php nachgeladen wird, paßt es:
Makro mit F8 zeilenweise bis VOR der Zeile mit dem .Click:
Userbild

ein paar Zeilen weiter ...
Userbild

und dann in Excel:
Userbild

Schöne Grüße,
Michael
P.S.: Der Knackpunkt ist wohl, daß man bei Option die Angabe hinter dem value übergibt und NICHT das, was zwischen den Tags steht.

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)

Webimport

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread