html daten auslesen und in excel blatt schreiben ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
packe dieses Makro in das Klassenmodul der Tabelle1 Deiner Excel- Mappe und starte es mit Alt+ F8. Wenn der Öffnen- Dialog erscheint, wähle die html- Datei.

Option Explicit
Sub dreihundertlieferscheine()
Dim x, lx&
Dim strScheine$, strAdresse$, strAdressdaten$(), strLieferschein$, strKartons$
Dim lngPosKenner1&, lngPosKenner2&, lngPosKenner3&, lngPosKenner4&
Dim R&, C&
Const strKenner1 = "<td rowspan=""3"" id=""delivery_address"" nowrap=""nowrap"" valign=""top"">"
Const strKenner2 = "</td>"
Const strKenner3 = "Lieferschein Nr."
Const strKenner4 = "Gesamtkartons"
'Startwerte für Ausgabe
R = 2: C = 1
x = Application.GetOpenFilename(, , "Lieferscheine- Datei")
If VarType(x) = vbBoolean Then Exit Sub 'Abbrechen
Open x For Binary As #1
lx = LOF(1)
strScheine = Space(lx)
Get #1, , strScheine
Close #1
strScheine = Replace(strScheine, "&", "&")
lngPosKenner1 = 1
Do
    lngPosKenner1 = InStr(lngPosKenner1, strScheine, strKenner1)
    If lngPosKenner1 > 0 Then
        lngPosKenner1 = lngPosKenner1 + Len(strKenner1)
        lngPosKenner2 = InStr(lngPosKenner1, strScheine, strKenner2)
        strAdresse = WorksheetFunction.Clean(Mid(strScheine, lngPosKenner1, lngPosKenner2 - lngPosKenner1))
        strAdressdaten = Split(strAdresse, "<br>")
        lngPosKenner3 = InStrRev(strScheine, strKenner3, lngPosKenner2) + Len(strKenner3) + 35
        strLieferschein = WorksheetFunction.Clean(Mid(strScheine, lngPosKenner3, InStr(lngPosKenner3, strScheine, strKenner2) - lngPosKenner3))
        lngPosKenner4 = InStr(lngPosKenner2, strScheine, strKenner4) + Len(strKenner4) + 56
        strKartons = WorksheetFunction.Clean(Mid(strScheine, lngPosKenner4, InStr(lngPosKenner4, strScheine, strKenner2) - lngPosKenner4))
        Cells(R, C) = strAdressdaten(1)
        Cells(R, C + 1) = strAdressdaten(2)
        Cells(R, C + 2) = Left(strAdressdaten(3), InStr(strAdressdaten(3), " "))
        Cells(R, C + 3) = Mid(strAdressdaten(3), InStr(strAdressdaten(3), " ") + 1)
        Cells(R, C + 4) = strAdressdaten(3)
        Cells(R, C + 5) = strAdressdaten(4)
        Cells(R, C + 6) = strLieferschein
        Cells(R, C + 7) = strKartons
        R = R + 1
    End If
Loop Until lngPosKenner1 = 0
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett.

Beliebteste Forumthreads (12 Monate)

html daten auslesen und in excel blatt schreiben ?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

html daten auslesen und in excel blatt schreiben ?

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread