Office: (Office 2016) XML Datei erstellen

rereivk · 21. August 2018

Hallo,

ich habe eine Access DB in der 3 Tabellen enthalten sind, aus diesen 3 Tabellen soll eine xml Datei erstellt werden.
Eine Zip-Datei mit einer Bsp. DB und einem XML File (die Struktur muss genau so sein wie in diesem File) habe ich diesem Thread beigefügt.

Die Access Export XML Funktion bringt nicht das gewünschte Ergebnis, auch habe ich mir die "Application.ExportXML Method" angeschaut welche mir aber auch nicht das gewünschte Ergebnis liefert.

Für Hilfe und Lösungsansätze bin ich dankbar.

:)

markusxy · 23. August 2018

Hier ein Beispiel mit Access:
https://shop.minhorst.com/know-how/a...export-mit-vba

Weitere Beispiele mit VBA/DOM/SAX
http://www.access-im-unternehmen.de/...&BeitragID=522

XML lernen - Prinzipien der Erstellung und Bearbeitung von Xml-Dokumenten

Anfängerhandbuch für XML DOM

Sollte also kein Problem sein.

LG M

ebs17 · 23. August 2018

Ich stecke gar nicht im Stoff drin, aber es könnte möglich sein, über ein Schema (XSD) eine Massendatenverarbeitung hinzubekommen, statt per VBA Unterknoten aneinanderzureihen.
Exporting Access schema using XML

rereivk · 25. August 2018

Danke für die Hinweise.Ich glaube im ersten Schritt werde ich versuchen per VBA die Unterknoten aneinanderzureihen.

markusxy · 7. Januar 2021

von rereivk

Danke für die Hinweise.Ich glaube im ersten Schritt werde ich versuchen per VBA die Unterknoten aneinanderzureihen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VBA ist natürlich eine Möglichkeit - warum möchtest du so vorgehen?

Die Access XML Export Methode wäre ja nicht schlecht.
Wie ich sehe werden aber nur UTF8/UTF16 Kodierung unterstützt, was natürlich blamabel ist.
Aber wenn das ausreicht, dann ist die Anwendung mehr als einfach.

rereivk · 26. August 2018

Danke für die Antworten.
Ich habe ein Teillösung hinbekommen.
Der Code sieht wie folgt aus:
Code:

Option Compare Database

Public Sub Katalog()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rst2 As DAO.Recordset
Dim rst3 As DAO.Recordset

'product
Dim objXML As MSXML2.DOMDocument
Dim objPI As MSXML2.IXMLDOMProcessingInstruction
Dim objKatalog As MSXML2.IXMLDOMElement
Dim objversion As MSXML2.IXMLDOMElement
Dim objstatus As MSXML2.IXMLDOMElement
Dim objdatasource As MSXML2.IXMLDOMElement
Dim objtoxmlservice As MSXML2.IXMLDOMElement
Dim objlist As MSXML2.IXMLDOMElement

'HEADER
Dim objArtikel As MSXML2.IXMLDOMElement
Dim objcustsequence As MSXML2.IXMLDOMElement
Dim objdrive As MSXML2.IXMLDOMElement
Dim objfcode As MSXML2.IXMLDOMElement
Dim objid As MSXML2.IXMLDOMElement
Dim objlinecustomer As MSXML2.IXMLDOMElement
Dim objlineinternal As MSXML2.IXMLDOMElement
Dim objmodel As MSXML2.IXMLDOMElement
Dim objowncarnumber As MSXML2.IXMLDOMElement
Dim objownsequence As MSXML2.IXMLDOMElement
Dim objplant As MSXML2.IXMLDOMElement
Dim objproductionyeare As MSXML2.IXMLDOMElement
Dim objvin As MSXML2.IXMLDOMElement

'parts
Dim objparts As MSXML2.IXMLDOMElement
Dim objpartnumber As MSXML2.IXMLDOMElement
Dim objSubelement As MSXML2.IXMLDOMElement

'write xml
Dim s As String
Dim n As Integer

' dbs
Set db = CurrentDb
Set db2 = CurrentDb
Set db3 = CurrentDb

Set rst = db.OpenRecordset("SELECT * FROM product", dbOpenDynaset)
Set rst2 = db2.OpenRecordset("SELECT * FROM header", dbOpenDynaset)
Set rst3 = db3.OpenRecordset("SELECT * FROM part", dbOpenDynaset)

Set objXML = New MSXML2.DOMDocument

Set objPI = objXML.createProcessingInstruction("xml", "version=""1.0"" encoding=""utf-8""")

objXML.appendChild objPI

Set objKatalog = objXML.createElement("product")
objXML.appendChild objKatalog

Set objversion = objXML.createElement("version")
objKatalog.appendChild objversion
objversion.Text = rst!Version

Set objstatus = objXML.createElement("status")
objKatalog.appendChild objstatus
objstatus.Text = rst!status

Set objdatasource = objXML.createElement("datasource")
objKatalog.appendChild objdatasource
objdatasource.Text = rst!datasource

Set objtoxmlservice = objXML.createElement("toxmlservice")
objKatalog.appendChild objtoxmlservice
objtoxmlservice.Text = rst!toxmlservice

Set objlist = objXML.createElement("header")
objKatalog.appendChild objlist

Set objArtikel = objXML.createElement("company")
objlist.appendChild objArtikel
objArtikel.Text = rst2!company

Set objcustsequence = objXML.createElement("custsequence")
objlist.appendChild objcustsequence
objcustsequence.Text = rst2!custsequence

Set objdrive = objXML.createElement("drive")
objlist.appendChild objdrive
objdrive.Text = rst2!drive

Set objfcode = objXML.createElement("fcode")
objlist.appendChild objfcode
objfcode.Text = rst2!fcode

Set objid = objXML.createElement("id")
objlist.appendChild objid
objid.Text = rst2!id

Set objlinecustomer = objXML.createElement("linecustomer")
objlist.appendChild objlinecustomer
objlinecustomer.Text = rst2!linecustomer

Set objlineinternal = objXML.createElement("lineinternal")
objlist.appendChild objlineinternal
objlineinternal.Text = rst2!lineinternal

Set objmodel = objXML.createElement("model")
objlist.appendChild objmodel
objmodel.Text = rst2!model

Set objowncarnumber = objXML.createElement("owncarnumber")
objlist.appendChild objowncarnumber
objowncarnumber.Text = rst2!owncarnumber

Set objownsequence = objXML.createElement("ownsequence")
objlist.appendChild objownsequence
objownsequence.Text = rst2!ownsequence

Set objplant = objXML.createElement("plant")
objlist.appendChild objplant
objplant.Text = rst2!plant

Set objproductionyear = objXML.createElement("productionyear")
objlist.appendChild objproductionyear
objproductionyear.Text = rst2!productionyear

Set objvin = objXML.createElement("vin")
objlist.appendChild objvin
objvin.Text = rst2!vin

'parts

Set objlist = objXML.createElement("parts")
objKatalog.appendChild objlist

Do While Not rst3.EOF

Set objlist = objXML.createElement("part")
objKatalog.appendChild objlist

Set objpartnumber = objXML.createElement("partnumber")
objlist.appendChild objpartnumber
objpartnumber.Text = rst3!partnumber

rst3.MoveNext

Loop

Debug.Print FormatXML(objXML.XML)
s = FormatXML(objXML.XML)
MsgBox (s)
Open "C:LES_2.1XML" & Me.Text1 & ".xml" For Output As #1
s = FormatXML(objXML.XML)
Print #1, s
Close #1

End Sub

Public Function FormatXML(strXML As String) As String
Dim strTemp As String
Dim str() As String
Dim i As Integer
Dim s As String
Dim n As Integer
Dim intSlash As Integer
Dim intEinruecken As Integer
Dim bolDescription As Boolean
strTemp = strXML
strTemp = Replace(strTemp, ">|~|
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Marsu65 · 26. August 2018

Du hängst die Part-Elemente an das Produkt-Element und nicht an das Parts-Element.
Code:

Set objlist = objXML.createElement("part")
objKatalog.appendChild objlist
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nouba · 26. August 2018

Hier mal ein Vorschlag: Code:

Function ConvertToXml() As String
Dim db As DAO.Database
Dim fld As DAO.Field
Dim doc As DOMDocument60
Dim obj, dataroot, pr, el, hd, pts, pn

Set db = CurrentDb

Set doc = New DOMDocument60
'zuerst den header der xml-Datei anlegen
Set obj = doc.createProcessingInstruction("xml", "version=""1.0""")
'... und an den Anfang stellen
doc.insertBefore obj, doc.childNodes(0)

'Wurzel erstellen
Set dataroot = doc.createElement("dataroot")
'namespace-Attribut erzeugen
Set obj = doc.createAttribute("xmlnsd")
obj.Value = "urn:schemas-microsoft-comfficedata"
'... und der Wurzel zuordnen
dataroot.setAttributeNode obj

'product-Element anlegen
Set pr = doc.createElement("product")

'Recordset einzelnem Datensatz öffnen
With db.OpenRecordset("product", dbOpenDynaset, dbReadOnly)
'für jedes Feld
For Each fld In .Fields
'ein Elementknoten erzeugen
Set el = doc.createElement(fld.Name)
'... und den Wert diesem Knoten zuordnen
el.Text = fld.Value
'zuguterletzt dem product-Knoten unterordnen
pr.appendChild el
Next
.Close
End With

'ähnlich beim header vorgehen
Set hd = doc.createElement("heaser")
With db.OpenRecordset("header", dbOpenDynaset, dbReadOnly)
For Each fld In .Fields
Set el = doc.createElement(fld.Name)
el.Text = fld.Value
hd.appendChild el
Next
.Close
End With

Set pts = doc.createElement("parts")
With db.OpenRecordset("part", dbOpenDynaset, dbReadOnly)
'für jeden Datensatz
Do Until .EOF
'ein part-Element
Set el = doc.createElement("part")
'und ein partnumber anlegen
Set pn = doc.createElement("partnumber")
'welches den Text aus dem Feld erhält
pn.Text = !partnumber
'die partnumber unterhalb von part ansiedeln
el.appendChild pn

'part den parts unterstellen
pts.appendChild el
.MoveNext
Loop
.Close
End With

' header dem product anhängen
pr.appendChild hd

'parts dem product anhängen
pr.appendChild pts

'product der Wurzel zuweisen
dataroot.appendChild pr

'Wurzel im Dokument verankern
doc.appendChild dataroot

ConvertToXml = PrettyPrintXML(doc.xml)
End Function

Private Function PrettyPrintXML(xml As String)
Dim Reader As New SAXXMLReader60
Dim Writer As New MXXMLWriter60

Writer.indent = True
Writer.standalone = True
Writer.omitXMLDeclaration = False
Writer.Encoding = "UTF-8" 'nur wirksam, wenn out gestreamt wird

Set Reader.contentHandler = Writer
Set Reader.dtdHandler = Writer
Set Reader.errorHandler = Writer

Call Reader.putProperty("http://xml.org/sax/properties/declaration-handler", _
Writer)
Call Reader.putProperty("http://xml.org/sax/properties/lexical-handler", _
Writer)

Call Reader.parse(xml)

PrettyPrintXML = Writer.output
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit diesem Resultat:

PHP:

<?xml version="1.0" standalone="yes"?> <dataroot xmlns:od="urn:schemas-microsoft-com:officedata"> <product> <version>1.0</version> <status>imported</status> <datasource>LES</datasource> <toxmlservice>LES</toxmlservice> <heaser> <company>015</company> <custsequence>774</custsequence> <drive>LHD</drive> <fcode>10000000000000000016</fcode> <id>TI72223</id> <linecustomer>B</linecustomer> <lineinternal>01</lineinternal> <model>C111</model> <owncarnumber>550705</owncarnumber> <ownsequence>12106</ownsequence> <plant>000</plant> <productionyear>2018</productionyear> <vin> </vin> </heaser> <parts> <part> <partnumber>8U5A 17B068 EB</partnumber> </part> <part> <partnumber>JX7B 3E721 AC</partnumber> </part> <part> <partnumber>JX7B 18D422 AC3JA6</partnumber> </part> <part> <partnumber>JX7B A042B85 AA3ZHE</partnumber> </part> <part> <partnumber>H1BT 18808 EB</partnumber> </part> <part> <partnumber>JX7T 18808 DA</partnumber> </part> <part> <partnumber>JX61 7C598 AB</partnumber> </part> <part> <partnumber>JX7B A11584 ABSMA4</partnumber> </part> <part> <partnumber>H1BT 14C376 AA</partnumber> </part> <part> <partnumber>JX7T 18K811 AB</partnumber> </part> <part> <partnumber>E1GH 19C734 AC</partnumber> </part> <part> <partnumber>JX7T 19K351 AB</partnumber> </part> <part> <partnumber>H1BH 19T562 AA</partnumber> </part> <part> <partnumber>JX6B A044K45 AA</partnumber> </part> <part> <partnumber>JX7T 13D061 LB</partnumber> </part> <part> <partnumber>JX6B A044K45 BA</partnumber> </part> <part> <partnumber>JX7B A046A26 AD3ZHE</partnumber> </part> <part> <partnumber>JX6T 14D559 GBAB</partnumber> </part> <part> <partnumber>JX7B A016C64 AB</partnumber> </part> <part> <partnumber>JX7T 19E663 BB</partnumber> </part> <part> <partnumber>JX7T 13A350 AB</partnumber> </part> <part> <partnumber>JK2T 14B418 AB</partnumber> </part> <part> <partnumber>JX7B A044F58 AD3ZHE</partnumber> </part> <part> <partnumber>JX7T 18C612 AC</partnumber> </part> <part> <partnumber>JX7B 19C696 CG3JA6</partnumber> </part> <part> <partnumber>JX7J 3600 GB3GRX</partnumber> </part> <part> <partnumber>JX7B 19893 CH3JA6</partnumber> </part> <part> <partnumber>H1BT 14B522 BE</partnumber> </part> <part> <partnumber>JX7B A04652 AD3ZHE</partnumber> </part> <part> <partnumber>JX7B 19E659 BD</partnumber> </part> <part> <partnumber>JX7B A018W12 AD</partnumber> </part> <part> <partnumber>JX7B A046B34 AC3JA6</partnumber> </part> <part> <partnumber>JX6C 3C662 AB</partnumber> </part> <part> <partnumber>JX7B 19C045 AD3ZHE</partnumber> </part> <part> <partnumber>JX7B 19C045 BD3ZHE</partnumber> </part> <part> <partnumber>JX7B 3533 BE3ZHE</partnumber> </part> <part> <partnumber>JX7B 18C298 BE</partnumber> </part> <part> <partnumber>JX7B 18C299 BE</partnumber> </part> <part> <partnumber>JX7B 19C988 AC</partnumber> </part> <part> <partnumber>JX7B A044F09 AH3ZHE</partnumber> </part> <part> <partnumber>JX7B 19K617 AG3UAW</partnumber> </part> <part> <partnumber>JX7B A018W18 DE</partnumber> </part> <part> <partnumber>JX7B A018W18 FF</partnumber> </part> <part> <partnumber>JX7B 18888 AE</partnumber> </part> <part> <partnumber>JX6A 19B555 FCC</partnumber> </part> <part> <partnumber>JX7B A04305 FG3ZHE</partnumber> </part> <part> <partnumber>JX71 18C815 NAS</partnumber> </part> <part> <partnumber>3U5T 14G371 GDC</partnumber> </part> <part> <partnumber>JX6A 18C332 AB</partnumber> </part> <part> <partnumber>JX7B A044C99 AB</partnumber> </part> <part> <partnumber>JX7T 10E929 BC</partnumber> </part> <part> <partnumber>JX7T 18B955 FE</partnumber> </part> <part> <partnumber>H1BC 3F880 CE</partnumber> </part> <part> <partnumber>JX7T 10849 CAE</partnumber> </part> <part> <partnumber>JX7B 3530 BD3ZHE</partnumber> </part> <part> <partnumber>JX7B A044A74 AC</partnumber> </part> <part> <partnumber>JX7B A044C98 AB</partnumber> </part> <part> <partnumber>HE5J 19B273 AGA</partnumber> </part> <part> <partnumber>JX7B A01412 AD3JA6</partnumber> </part> <part> <partnumber>JX7B A044D70 GH3UAW</partnumber> </part> <part> <partnumber>JX7B A045H93 CGSMU1</partnumber> </part> <part> <partnumber>JX7B A060T10 AF3ZHE</partnumber> </part> <part> <partnumber>JX7T 14G229 AE</partnumber> </part> <part> <partnumber>JX6C 3D077 A1F</partnumber> </part> <part> <partnumber>JX7B A666B22 AA3JA6</partnumber> </part> <part> <partnumber>JX7T 14F642 BK</partnumber> </part> <part> <partnumber>JX6B A047B50 AG</partnumber> </part> <part> <partnumber>JX6B A04545 AG</partnumber> </part> </parts> </product> </dataroot>

markusxy · 26. August 2018

\@rereivk,
mir ist erst jetzt aufgefallen, dass die Daten in der Datenbank keine Beziehungen haben.
Für einen Export via Access Funktion müssen die Daten natürlich auch sinnvoll erfasst sein.

LG M

rereivk · 23. November 2018

Hallo zusammen,
vielen Dank für die hilfreichen Antworten.

rereivk · 23. November 2018

\@Nouba:
Kann ich die Datei auch ohne das dataroot Element erstellen oder ist dieses zwingend notwendig ??

PHP:

<?xml version="1.0" standalone="yes"?> <product> <version>1.0</version> <status>imported</status> <datasource>LES</datasource> <toxmlservice>LES</toxmlservice> <header> <company>15</company> <custsequence>184</custsequence> <drive>LHD</drive> <fcode>10000000000000000015</fcode> <id>JA02411</id> <linecustomer>A</linecustomer> <lineinternal>01</lineinternal> <model>C344 M</model> <owncarnumber>647787</owncarnumber> <plant>000</plant> <productionyear>2018</productionyear> <vin>JA83623</vin> <ownsequence>94480</ownsequence> </header> <parts> <part> <partnumber>F1CB R04305 AJ1F7Z</partnumber> </part> <part> <partnumber>HM01 T018FF50 AA</partnumber> </part> <part> <partnumber>8A6T 18808 BB</partnumber> </part> </parts> </product>

rereivk · 23. November 2018

\@Nouba:
Sorry war ein Schnellschuss von mir :-(
Ich habe mir den Code nochmal genau angeschaut und es so hinbekommen wie gewünscht.

Danke nochmal.

Office: (Office 2016) XML Datei erstellen

XML Datei erstellen

XML Datei erstellen

XML Datei erstellen

XML Datei erstellen

XML Datei erstellen - Similar Threads - XML Datei erstellen

Import von XML-Dateien in Access

Was geht verloren, wenn ich die Arbeitsmappe als eine XML-Kalkulationstabelle 2003-Datei ...

XML Datei als UTF-8 speicher

XML Datei einlesen

VBA im aus vielen Dateien XML´s zu erstellen

xml datei importieren

Problem beim Speichern als .xml Datei