Office: (Office 2000) Aus HTML Datei lesen und Datensätze erstellen

User · 3. Januar 2010

Hallo,

ergänzend zu Steffen0815:

Du wirst nicht umhin kommen den Inhalt zu zerlegen, z.B. so:

Code:

...
If objTables.length > 0 Then
For Each objTable In objTables
If objTable.id = "Tabelle14" Then
If objTable.rows.length > 1 Then
For i = 0 To objTable.cells.length - 1
myCellCnt = myCellCnt + 1
If myCellCnt > (objTable.rows.length - 1) + 9 Then ' Kopfzeilen sind durch!
If myCellCnt Mod 5 = 0 Then ' Neuer Datensatz beginnt
rst.AddNew
End If
If ((myCellCnt - 5) Mod 5) = 0 Then 'Hersteller
rst!Hersteller = Split(objTable.cells.Item(i).innerText, vbCrLf)(0)
End If
If ((myCellCnt - 6) Mod 5) = 0 Then 'Verkaufsbezeichnung
rst!Verkaufsbezeichnung = Split(objTable.cells.Item(i).innerText, vbCrLf)(0)
End If
If ((myCellCnt - 7) Mod 5) = 0 Then 'Farbe
rst!Farbe = Split(objTable.cells.Item(i).innerText, vbCrLf)(0)
End If
If ((myCellCnt - 8) Mod 5) = 0 Then 'Gewicht
rst!Gewicht = Split(objTable.cells.Item(i).innerText, vbCrLf)(0)
End If
If ((myCellCnt - 9) Mod 5) = 0 Then 'Preis
rst!Preis = Split(objTable.cells.Item(i).innerText, vbCrLf)(0)
rst.Update
End If
End If
Next
End If
End If
Next objTable
rst.Close
Else
MsgBox "Keine Tabelle vorhanden!"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beispiel-DB anbei!

Gruß

LL

User · 6. Januar 2010

\@Hansol

weitergekommen??

Wäre schön, wenn Du auch Feedback hinterläßt!

Gruß

LL

BTW:
Ich hab mal eine Funktion geschrieben, welche aus beliebigen Tabellen die Daten auslesen "sollte"!
Anpassungen an die jeweiligen Anforderungen sind Vorraussetzung!
Die Funktion liefert erstmal alles im Direktfenster:
Code:

Public Function GetHTMLtbl(myURl As String)

Dim Loader As HTMLDocument
Dim objDoc As HTMLDocument
Dim objTables As IHTMLElementCollection
Dim objTable As HTMLTable
Dim myTblId As Integer, myCellCnt As Integer

Dim i As Integer, j As Integer

On Error GoTo Fehler

Set Loader = New HTMLDocument
Set objDoc = Loader.createDocumentFromUrl(myURl, vbNullString)

DoCmd.Hourglass True
Do Until objDoc.ReadyState = "complete"
DoEvents
Loop
DoCmd.Hourglass False
Set objTables = objDoc.getElementsByTagName("table")

If objTables.length > 0 Then
For Each objTable In objTables
If objTable.id "" Then Debug.Print objTable.id
myTblId = myTblId + 1
If objTable.rows.length > 1 Then
For i = 0 To objTable.cells.length - 1
myCellCnt = myCellCnt + 1
If objTable.cells.Item(i).innerText "" Then
If UBound(Split(objTable.cells.Item(i).innerText, vbCrLf)) > 0 Then
For j = LBound(Split(objTable.cells.Item(i).innerText, vbCrLf)) To UBound(Split(objTable.cells.Item(i).innerText, vbCrLf))
Debug.Print Split(objTable.cells.Item(i).innerText, vbCrLf)(j)
Next
Else
Debug.Print Split(objTable.cells.Item(i).innerText, vbCrLf)(0)
End If
End If
Next
End If
Next objTable
Else
MsgBox "Keine Tabelle vorhanden!"
End If

Ende:
Set objDoc = Nothing
Set objTable = Nothing
Set objTables = Nothing
Exit Function

Fehler:
MsgBox Err.Description, vbCritical
Resume Ende
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vielleicht kann's jemand mal brauchen *wink.gif*

Office: (Office 2000) Aus HTML Datei lesen und Datensätze erstellen

Aus HTML Datei lesen und Datensätze erstellen

Aus HTML Datei lesen und Datensätze erstellen

Aus HTML Datei lesen und Datensätze erstellen - Similar Threads - HTML Datei Datensätze

HTML Datei einbinden klappt nicht wie ich möchte

Inhalt aus HTML Dateien automatisch einlesen

Html Dateien in Access Memofeld importieren

Outlook 2016 // Datei einfügen // Als Text einfügen wird nicht als Option angezeigt

HTML-Dateien als Nur-Text öfnnen

Datenimport HTML-Datei fehlerhaft (führende Null + Exponent)

ActiveX in WORD (bzw. PDF- und HTML-Dateien)