WEB-Import

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Martin,
danke für die Antwort.
es geht nicht darum, WIE werden Daten aus dem Inet importiert. Das kann ich problemlos. Importiere z Bsp gespeicherte eBay-Beobachtungen, dessen Termineinträge vollautomatisch ins Outlook übertragen werden. Is für mich ne sehr große Erleichterung.
Es geht darum, dass ich noch nicht verstehe, wieso bei einem WEB-Import nur ein Teil der Daten nach Excel übertragen wird - und natürlich der Teil, der für mich uninteressant ist.
Ja, du hast recht, ich hätte im Archiv suchen sollen. Zum Zeitpunkt meiner Fragestellung hatte ich andere Stellen des Inets nach Lösungen "abgegrast". Mein Kopf war dann nicht mehr aufnahmefähig - deswegen ja meine Frage um Hilfe - hoffe, du verzeihst mir, dass ich das Archiv vernachlässigt hatte.
Ich hatte gerad eben im Archiv gesucht, aber leider auch noch nichts Hilfreiches für mich gefunden.
Deinen Vorschlag mit Datenimport via MS IE werde ich mal verfolgen.
Ich finds zwar nicht soooo gut, extra n IE-Objekt einzubinden, aber wenns gar nicht anders geht, und ich damit Erfolg habe, dann ok.
Ja, und mehr Infos werde ich leider auch nicht liefern können.
Ich bin ja selbst ein Beschreier, wenns darum geht, dass Bsp-Dateien fehlen.
Würde ich gern liefern.
Da es sich aber um unser Firmen-Intranet handelt, würdest du eh nix sehen können, wenn ich dir den Link zeigen würde.
Ich freue mich trotzdem über weitere Ideen von jedem.
Danke + Tschüss
Thorsten

Hallo Thorsten,
ehrlich gesagt finde ich eine Quellcode-Auswertung besonders gut und schnell. Ich persönlich bevorzuge dazu sogar eine ganz spezielle Variante ohne Internet Explorer, aber da steht dir dann wirklich nur der reine HTML-Quellcode zur Verfügung. Dafür geht das aber besonders schnell:
http://www.4guysfromrolla.com/webtech/110100-1.shtml
Aber bei deinem Vorhaben ist die Verwendung des MS IE vermutlich effektiver. Dir ist hoffentlich klar, dass du direkt HTML-Tabellen mit "nodeName" filtern kannst:

Sub Tabelle_auslesen1()
Dim IEApp As Object, i As Long, j As Long, l As Long
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.navigate "http://anmeldung.springer-sport.de/borkheide-challenge/Meldeliste.asp"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.document.readyState = "complete"
With IEApp.document
For i = 0 To .All.Length - 1
If .All.Item(i).nodeName = "TABLE" Then
For j = 0 To .All.Item(i).Rows.Length - 1 'Zeilen zählen
For l = 0 To .All.Item(i).Rows(j).Cells.Length - 1 'Spalten zählen
Debug.Print i & ": (" & j & ", " & l; "): " & .All.Item(i).Rows(j). _
Cells(l).innerText
Next l
Next j
End If
Next i
End With
IEApp.Quit
End Sub

Statt "Debug.Print" kann die Tabelle in ein Array übertragen und total einfach mit Range("A1").Resize in eine Tabelle übertragen werden. Ich bevorzuge es ohnehin, wenn nur der reine Text übertragen wird (also ohne alle möglichen Formatierungen).
Viele Grüße
Martin

Sub Tabelle_auslesen2() Dim IEApp As Object, i As Long, j As Long, l As Long Set IEApp = CreateObject("InternetExplorer.Application") Dim arrTable() As Variant IEApp.Visible = True IEApp.navigate "http://anmeldung.springer-sport.de/borkheide-challenge/Meldeliste.asp" Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.document.readyState = "complete" With IEApp.document For i = 0 To .All.Length - 1 If .All.Item(i).nodeName = "TABLE" Then For j = 0 To .All.Item(i).Rows.Length - 1 'Zeilen zählen For l = 0 To .All.Item(i).Rows(j).Cells.Length - 1 'Spalten zählen If i = 15 Then If j = 0 And l = 0 Then ReDim arrTable(0 To .All.Item(i).Rows.Length - 1, 0 To .All. _ Item(i).Rows(j).Cells.Length - 1) End If arrTable(j, l) = .All.Item(i).Rows(j).Cells(l).innerText End If Next l Next j End If Next i End With IEApp.Quit Range("A1").Resize(UBound(arrTable, 1) + 1, UBound(arrTable, 2) + 1) = arrTable() ActiveSheet.UsedRange.Columns.AutoFit End Sub

Sub Tabelle_auslesen3() Dim IEApp As Object, i As Long, j As Long, l As Long Set IEApp = CreateObject("InternetExplorer.Application") Dim arrTable() As Variant IEApp.Visible = True IEApp.navigate "http://anmeldung.springer-sport.de/borkheide-challenge/Meldeliste.asp" Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.document.readyState = "complete" With IEApp.document For i = 0 To .All.Length - 1 If .All.Item(i).nodeName = "TABLE" Then If .All.Item(i).Rows(0).Cells(0).innerText = "Nachname " Then 'Inhalt der _ ersten Zelle For j = 0 To .All.Item(i).Rows.Length - 1 'Zeilen zählen For l = 0 To .All.Item(i).Rows(j).Cells.Length - 1 'Spalten zählen If j = 0 And l = 0 Then ReDim arrTable(0 To .All.Item(i).Rows.Length - 1, 0 To .All. _ Item(i).Rows(j).Cells.Length - 1) End If arrTable(j, l) = .All.Item(i).Rows(j).Cells(l).innerText Next l Next j End If End If Next i End With IEApp.Quit Range("A1").Resize(UBound(arrTable, 1) + 1, UBound(arrTable, 2) + 1) = arrTable() ActiveSheet.UsedRange.Columns.AutoFit End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread