Datenbank aus html-Datei filtern

Hallo zusammen,
ich bekomme regelmäßig ein Bestellformular meines Lieferanten als HTML-Datei.
Im Bestellformular sind nach einigem Code alle aktuell erhältlichen Artikel im Format:
//------------------------------------------------------------
// Application data - catalog information
//------------------------------------------------------------
var strArtDes = new Array();
var strArtNr = new Array();
var strArtGuelAb = new Array();
var strArtGuelBis = new Array();
strArtNr[0] = "1401";
strArtDes[0] = "Artikelbezeichnung";
strArtGuelAb[0] = "17.12.2002";
strArtGuelBis[0] = "11.11.2999";
strArtNr[1] = "1402";
strArtDes[1] = "Artikelbezeichnung";
strArtGuelAb[1] = "17.12.2002";
strArtGuelBis[1] = "11.11.2999";
usw. enthalten.
Jetzt würde ich gerne per Makro in Excel die Daten in 4 Spalten sortieren und den überflüssigen Code entfernen.
Leider reichen meine VBA-Kenntnisse dazu nicht aus. Kann mir jemand weiterhelfen?
Danke für euer Tipps
Gruß
Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() dim i as integer for i = 2 to letztes elemnt im array sheets("Name").cells(i,1) = strArtNr(i) sheets("Name").cells(i,2) = strArtDes(i) sheets("Name").cells(i,3) = strArtGuelAb(i) sheets("Name").cells(i,4) = strArtGuelBis(i) next i End Sub

Sub HTML_Import() 'Variable deklarieren 'StartVerzeichnis ChDrive "c:\" ChDir "\temp" 'Dialogfenster Öffnen sFile = Application.GetOpenFilename _ ("html-Dateien (*.html), *.html") If sFile = False Then GoTo ENDE 'keine Datei ausgewählt, auf Abbrechen geklickt End If Open sFile For Input As #1 'neues Tabellenblatt einfügen Worksheets.Add.Move after:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Select I = 1 iSpalte = 1 ' zeilenweise einlesen Do Until EOF(1) Line Input #1, strTXT If Len(strTXT) = 0 Or Left(strTXT, 2) = "//" Then 'Kommetare/Leerzeleilen überlesen Else intPos = InStr(1, strTXT, """") + 1 intRest = Len(strTXT) - intPos - 1 If intPos > 1 Then If iSpalte = 4 Then iSpalte = 1 I = I + 1 Else iSpalte = iSpalte + 1 End If Cells(I, iSpalte).Value = Mid(strTXT, intPos, intRest) If I = 65536 Then ' Excel kann nur bis zu dieser Zeile ' MsgBox "Das Ende des Tabellenblattes ist erreicht!" ' neues TabellenBlatt einfügen und weiter gehts! Worksheets.Add.Move after:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Select I = 1 iSpalte = 1 Else 'I = I + 1 End If End If End If Loop ENDE: Close End Sub

habe mal auf die schnelle den code geändert,
dieser liest nur noch zeilen, die mit deinen variablen anfangen!


Sub HTML_Import()
'StartVerzeichnis
ChDrive "c:\"
ChDir "\temp"
'Dialogfenster Öffnen
sFile = Application.GetOpenFilename _
("html-Dateien (*.html), *.html")
If sFile = False Then
GoTo ENDE        'keine Datei ausgewählt, auf Abbrechen geklickt
End If
Open sFile For Input As #1
'neues Tabellenblatt einfügen
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Select
I = 1
iSpalte = 0
' zeilenweise einlesen
Do Until EOF(1)
Line Input #1, strTXT
If Len(strTXT) = 0 Or Left(strTXT, 2) = "//" Then
'Kommetare/Leerzeleilen überlesen
Else
If Left(strTXT, 8) = "strArtNr" Or _
Left(strTXT, 9) = "strArtDes" Or _
Left(strTXT, 12) = "strArtGuelAb" Or _
Left(strTXT, 13) = "strArtGuelBis" Then
intPos = InStr(1, strTXT, """") + 1
intRest = Len(strTXT) - intPos - 1
If intPos > 1 Then
If iSpalte = 4 Then
iSpalte = 1
I = I + 1
Else
iSpalte = iSpalte + 1
End If
Cells(I, iSpalte).Value = Mid(strTXT, intPos, intRest)
If I = 65536 Then
' Excel kann nur bis zu dieser Zeile
' MsgBox "Das Ende des Tabellenblattes ist erreicht!"
' neues TabellenBlatt einfügen und weiter gehts!
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Select
I = 1
iSpalte = 1
Else
'I = I + 1
End If
End If
End If
End If
Loop
ENDE:
Close
End Sub

bitte testen
rückmeldung wäre nett!

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

232 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenbank aus html-Datei filtern

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

232 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread