XML nach XLS 2002 (XP)

Hallo,
ich habe ein Exceldokument (Final_Uebersicht.xls). Dieses XLS-Datei
soll den Input auf einem immer gleich lautenden XML-Datei beziehen.
Wobei die Daten die benötigt werden in dem XML-Dokument immer in
Zeile drei stehen und das XML-File immer wieder überschrieben wird
(gleicher Dateiname).
Das XLS-Dokument müsste allerdings bei jedem Import eine Zeile weiter
herunterspringen. So dass, sobald fünf XML-Dokumente eingegangen
sind, auch fünf Einträge in der XLS-Datei wären.
Hat jemand eine Lösung oder kann mir eine unschlagbar gute Webseite
nennen, bei der ich eine Anleitung finde.
Im Idealfall soll immer nur die XLS-Datei geöffnet werden. Die muss
dann natürlich schauen, ob eine XML-Datei im gleich Ordner liegt und
ggf. die Daten importieren.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

In dem Verzeichnis werden insgesamt zwei Dateien liegen. Die XLS-Datei und die XML-Datei. Im Laufe der Zeit wird es immer mehr XML-Dateien geben. Da die XML-Dateien aus einem PDF-Formular generiert werden, haben alle XML-Dateien den gleichen Namen. Das ist nicht weiter schlimm, da sie für die Archivierung umbenannt werden.
Ich habe also "eine" XML-Datei. Nenne ich sie hier XML-DAT. Diese XML-DAT kopiere ich in den Ordner (Ordnername = Folder) in dem meine XLS-Datei liegt. Die XML-DAT wird also immer wieder überschrieben. Der Inhalt der XML-DAT ist jedoch immer anders (Name, Vorname, Strasse, usw.). Die Daten, in XML-DAT die interessant sind, stehen immer in Zeile drei. Wobei die Sortierreihenfolge im XLS "deutschüblich" (Vorname, Nachname, Strasse, PLZ, usw.) sein soll. XML-DAT liefert die Daten leider in alphabethischer Reihenfolge.
Die Zeile drei aus XML-DAT soll immer als letzte Zeile in das XLS-Dokument. Meine also: habe ich bereits sieben Datensätze importiert, dann wandert der nächste Datensatz aus XML-DAT in XLS Zeile 8.
XML-DAT und die XLS-Datei haben beiden 15 Spalten (andere Sortierreihenfolge).
Einer Umschichtung (neue Sortierreihenfolge) in der XLS-Datei steht nichts im Wege. Es kann auch ein weiteres XLS-Sheet genutzt werden.

Option Explicit Option Base 1 Sub test() Dim Bereich, S As String, Satz, n As Byte, zei As Long Bereich = Array(12, 3, 4, 7, 6, 9, 10, 2) 'hier Zuordnung der 15 Spalten in Xml zu Xls Close Open "abc.xlm" For Input As #1 For n = 1 To 3 Input #1, S Next n Close Satz = Split(S, ",") zei = Range("A65536").End(xlUp).Row + 1 For n = 1 To 15 Cells(zei, Bereich(n)) = Satz(n) Next n End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread