Office: (Office 2007) xml dateien in access importieren

Ach und ne Statusanzeige wäre auch genial, wie könnte ich denn umsetzten ?
Es dauert schon etwas, ca 30 Minuten *Smilie kann man sich den aktuellen Status anzeigen lassen ?

 

Das mit den Zeichen kommt nur teilweise vor, die meißten Datensätze haben die richtigen Umlaute etc.

 

Hallo Eberhard,
hab' jetzt doch noch eine Frage zu Deinem Code:
Code:

zwischen dem Application.Import und dem Anfügen der Datensätze brauche ich eine Abfrage nach z.B. dem Zeichen & , denn beim Einlesen der xml Daten gibt es im Falle des Auftauchens eines solchen Zeichen eine Fehlermeldung.

Mir ist die "Funktion" nicht ganz klar !?! So verstehe ich es:
- Application.ImportXML = sozusagen die schon vorhandene Funktion xml Dateien einlesen zu können.
- DataSource:=sDatei = um welche Datei es sich handelt und der Pfad dorthin.
-ImportOptions:=acAppendData = in dem Fall nur Daten importieren.

Woher weiß Access wohin nun die Daten geschrieben werden, bzw. in welcher Variablen liegen denn die Daten ?
Hier heißt es doch:
Code:

Füge in tblsponsor ALLES ein, was in sponsor vorhanden ist.

Wäre toll, wenn Du mir das nochmal näher erklären könntest. *Smilie

 

Hallo Martin,

auf meine mangelnden XML-Fähigkeiten wegen fehlender Praxis und diesbezüglich unfähigem Programm (Acc2000) hatte ich schon hingewiesen.
Den Befehl ImportXML und die Bedeutung der einzelnen Parameter musst Du schon mal selbst in der Access-VBA-Hilfe nachlesen (das musst Du sowieso, egal, was Dir hier erzählt wird - eine leicht kritische Haltung ist immer angeraten: die größte Bank kann (und wird?) Pleite gehen, der größte Experte kann sich irren).

Das, was ich verstanden habe: In der wohlgeformten XML-Datei steht drin, wie die zu importierende Tabelle heißt, wie die Felder definiert sind und welche Daten wohin kommen. Das Ergebnis dieses Imports kannst Du ja betrachten.

Genau das macht eine Anfügeabfrage ohne einschränkende Kriterien.

Das "Umschichten" der Datensätze in eine Zieltabelle macht Sinn, wenn
- man einen gleichbleibenden Namen der Tabelle benötigt (was durch den Import nicht abgesichert werden kann)
- man in der Tabelle bestimmte Formatierungen benötigt, die der Import nicht mitbringt
- eigene Schlüsselfelder (ID´s), Indexe, Beziehungen zu anderen Tabellen benötigt werden (was der Normalzustand ist)
- beim Import eine gleichnamige Tabelle entsteht, die mit der bereits vorhandenen kollidiert (am Ende geht es um Daten, nicht um die Tabelle)

Das musst Du präziser beschreiben. Ein Zeichen pro Feld kann man im Rahmen der Anfügeabfrage korrigieren (Replace bzw. Replace-Ersatzfunktion), bei mehreren ist es sinnvoller, pro Korrektur eine Aktualisierungsabfrage ablaufen zu lassen.

 

Hallo Eberhard,
es geht darum das in einigen xml Dateien umlaute und Sonderzeichen vorkommen und deshalb der Import abgebrochen wird. Bei anderen Dateien allerdings funktioniert es ohne Probleme obwohl Umlaute enthalten sind.

Sicher ist das es Probleme mit dem & Zeichen gibt. Es liegt zum Teil glaube ich an den nicht immer wohlgeformten xml Dateien, denn es gibt ja drei verschiedene Sorten. Also, ich muß jetzt von zwei Seiten an das Problem.

Auf der einen Seite der xml "Erzeuger" werden jetzt "wohlgeformte" xml Dateien erzeugt.
Auf meiner Seite muß ich zumindest etwas "gegen" die &'s unternehmen. Ich habe mal durch suchen/ersetzten alle "&" durch "und" ersetzt und siehe da, es funktioniert.
Allerdings ist das nur eine schlechte Lösung, besser wäre es, wenn ich schon während des Imports jedes "&" durch ein (keine ahnung) "utf8 &", oder "chr...&" ersetzten könnte. Ich blicke das mit den Formaten ganz ehrlich noch nicht so *rolleyes.gif*

 

Wenn die XML-Dateien selber schon die Fehler beim Import verursachen, kannst Du ja dem Import diese Funktion vorschalten:
Code:

Dabei fiel mir aber auf, dass diese große Ähnlichkeit zu dem Vorschlag von Sascha in #36 hat, so daß Du die Replace-Anweisungen auch gleich dort einbauen könntest.

 

Hi Eberhard,
da muss ich mal gucken. Deine Version hab' ich ja wenigstens im Ansatz verstanden, hier und in #36 versteh' ich im Moment eigentlich nicht wirklich irgendetwas *frown.gif*
Muss noch lernen *Smilie Aber trotzdem erstmal danke *Smilie

 

Hallochen Eberhard,
ich brauch' nun doch nochmals Deine Hilfe.Etwas unschön habe ich es fertig gebracht Dateien die, warum auch immer nicht importiert werden können in ein anderen Ordner als den eigentlichen zu verschieben.

Also:

Ordner(xmldaten) = alle .xml Dateien
Ordner(xml_verschieben) = alle importierten .xml Dateien
Ordner(xml_verschieben/fehlerhafte) = alle .xml dateien die nicht importiert werden können.

Ich habe noch nicht rausfinden können was genau nicht stimmt mir den Dateien,
es sind immerhin 800 von ca 4500

Code:

Wie Du siehst, verschiebe ich die Dateien sobald ein Fehler auftritt in den Ordner fehlerhafte.
Nun soll aber die Sub weiterlaufen und das bekomme ich nicht hin.
Ich habe es schon mit GoTo versucht und call "sub", aber irgendwie funktioniert das nicht.

könntest Du mir da noch einen Tipp geben ?

Also statt der MsgBox möchte ich die Private Sub wieder starten, sonst muss ich 800 x ok drücken um wenigstens erstmal die Fehlerhaften dateien zu isolieren.
*Smilie

 

Hallo KeithKeith,

setz doch mal anstatt der MsgBox einen:
Code:

und schau Dir die Hilfe zu "Resume" an.

Gruß

LL

 

Hallo Martin,

Du benötigst eine etwas flexiblere Fehlerbehandlung, um den "planmäßigen" Fehler gesondert zu behandeln. Dieser Importfehler betrifft sicher die Zeile Code:

Vorab ermittelst Du mal durch Auskommentieren von Code:

die Fehlernummer des Fehlers (ist hoffentlich nur einer). Und dann könnte es so aussehen:
Code:

Anmerkung: Die sonstige Fehlerbehandlung darfst Du wegen des einen "planmäßigen" nicht streichen.

 

Guten Abend und Danke *Smilie
Hab das Script jetzt so wie Eberhard vorgeschlagen hat eingefügt und als fehlernummer die 424 angegeben in:
Code:

Jetzt markiert Access bei der Fehlermeldung die Zeile:
Code:

gelb.

Es werden keine xmls importiert.

Woran kann das denn nu liegen ?*Smilie

 

Code:

Der Code war nur so ins Blaue geschrieben, kleine Fehler können da immer sein so ohne Test.

 

okay,
nun kommt der Fehler:
3078*biggrin.gif*as MS Office Access Datenbankmodul findet die Eigabetabelle oder Abfrage 'Sponsor' nicht. Stellen Sie sicher, dass sie vorhanden ist und der Name richtig eingegeben wurde.

hmmmm
Was mir nicht ganz klar ist:
Muß nicht die Abfrage nach dem speziellen Fehler (424) vor die Abfrage "allgemein" nach Fehlern ?

und direkt nach beginn der Schleife ist eine resume anweisung ? unterbricht sie denn dort nicht direkt alles ?

 

Hallo KeithKeith,

ich denke die flexiblere Fehlerbehandlung die eberhard meinte sollte evtl. so aussehen (ungetestet):
Code:

Gruß

LL

 

Hallo
Nachdem das Ganze hier soweit gediehen ist, hier mal ein Vorschlag der einen Ansatz ohne VBA, also Importspezifikation (Anhang) und SQL
Bitte die _ durch < ersetzen, läßt sich hier nicht darstellen
Code:

Code: