Von XML Datei in Excel importieren

  • Excel

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Kahlua.

    Von XML Datei in Excel importieren

    Hallo Leute,

    ich habe ein kleines Problem. Ich muss aus einer vorhandenen XML Datei bestimmte Daten in eine Excel Datei überführen, welche aber keine Tabellenform haben soll wie
    sonst bei der XML Importierung. Außerdem soll abgeprüft werden, ob bestimmte Wörter in dieser Datei vorkommen und falls ja soll dies mit einem Hacken oder Kreuz dargestellt werden.

    Nachdem ich erst gerade die Grundlagen von VBA lerne, wollte ich Fragen ob ihr einen Typ habt an diese Sache heran zu gehen?!
    Ich hoffe Ihr versteht was ich meine..


    Hier mal als Beispiel die feste Einteilung der Excel Datei


    Vielen Dank schonmal im Vorraus

    *Topic verschoben*

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Hallo @Kahlua!

    Erst einmal: Herzlich willkommen im Forum!
    Zu deinem Post: Da du als Thread-Tag "VB.NET" verwendest, in deinem Post aber von "VBA" redest, bin ich etwas verwirrt.

    Bezieht sich deine Frage auf das VB, welches du in Excel verwenden kannst, oder das, für was du Visual Studio verwendest?
    Für den ersten Fall: Was du probieren könntest, ist die Datei einzulesen und sie dann per Range()-Zugriff eintragen. Sollte es sich bei deiner Problemstellung um ein VB.NET Problem handeln: Im Prinzip (fast) das selbe: Über einen FileStream einlesen, jedoch die Übertragung in deine Excel-Mappe kannst du dann entweder über COM, einen Datenbanktreiber (mit SQL) oder mit speziellen (open Source) Libaries lösen.

    Falls du noch mehr Informationen brauchst, bitte melden :D

    Lg Radinator
    In general (across programming languages), a pointer is a number that represents a physical location in memory. A nullpointer is (almost always) one that points to 0, and is widely recognized as "not pointing to anything". Since systems have different amounts of supported memory, it doesn't always take the same number of bytes to hold that number, so we call a "native size integer" one that can hold a pointer on any particular system. - Sam Harwell

    Hallo Radinator!
    Danke für dein Antwort. Ja es handelt sich tatsächlich um VBA über Excel, sorry da hab ich wohl etwas zu voreilig VB.NET gedrückt.
    Gut dann werde ich mir diesen Range Zugriff mal ansehen. Weisst du wo ich passende Lektüre (womöglich im Netz) finde?

    Muss mich leider erstmal rein lesen in die Problematik

    Also zu Literatur muss ich leider passen...ich schau da zuerst mal bei Google vorbei: vba datei einlesen
    Und wenn du da nix findest, der zweite Eintrag ist eh aus dem Forum hier ;D (Geht darum, wie man zeilenweise eine Datei mit VBA einliest)
    In general (across programming languages), a pointer is a number that represents a physical location in memory. A nullpointer is (almost always) one that points to 0, and is widely recognized as "not pointing to anything". Since systems have different amounts of supported memory, it doesn't always take the same number of bytes to hold that number, so we call a "native size integer" one that can hold a pointer on any particular system. - Sam Harwell

    Hmm. Ich befürchte die Aufgabenstellung geht weit über mein Können der VBA Programmierung hinaus. Ich habe aus einem anderen Forum eine etwas ähnliche Aufgabenstellung gefunden
    und versuche diese so weit wie Möglich zu adaptierten. Leider scheitere ich schon beim ersten Teil mit der Angabe des Pfads. Bei mir wird die XML Datei nicht gefunden. Kann mir jemand helfen?

    habe mich jetzt mal an sowas orientert:

    Visual Basic-Quellcode

    1. Option Explicit
    3. Private Sub CommandButton1_Click()
    5. Const XMLDATEI As String = "D:\$PP\$XML\Bohrer.xml" ' <--- ANPASSEN ---
    7. XMLDateiAuslesen XMLDATEI
    9. End Sub
    11. Private Sub XMLDateiAuslesen(ByVal XmlDateiMitPfad As String)
    13. Dim xmlDoc As New MSXML2.DOMDocument
    14. Dim xmlKnoten As IXMLDOMNode
    16. Dim xpathKnoten As String
    17. Dim xpathAttrib As String
    19. xmlDoc.async = False
    20. xmlDoc.validateOnParse = True ' Auf Fehler prüfen
    22. xmlDoc.Load (XmlDateiMitPfad) ' XML-Datei laden
    24. If xmlDoc.Load(XmlDateiMitPfad) = False Then
    25. MsgBox "XML-Datei: '" & XmlDateiMitPfad & "' wurde nicht gefunden"
    26. Exit Sub
    27. ElseIf xmlDoc.parseError = True Then
    28. MsgBox "XML-Datei: '" & XmlDateiMitPfad & "' hat fehlerhaften Aufbau (ist nicht 'wohlgeformt')"
    29. Exit Sub
    30. End If
    32. xmlDoc.setProperty "SelectionLanguage", "XPath" ' Suchen soll mittels XPath erfolgen
    34. ' Auf <MB_BOHRER>-Knoten gehen und prüfen, ob der Wert des Attributs ExternalId übereinstimmt
    35. xpathKnoten = "/*/Objects/MB_BOHRER" ' Knoten-Teil für die XPath-Anweisung
    36. xpathAttrib = "[@ExternalId='" & ActiveSheet.Range("A3") & "']" ' Attribute-Teil für die XPath-Anweisung
    37. Set xmlKnoten = xmlDoc.selectSingleNode(xpathKnoten & xpathAttrib) ' XPath-Anweisung mit Attribut-Vergleich
    39. If xmlKnoten Is Nothing Then
    40. MsgBox "Knoten nicht gefunden. Vermutlich falsche XML-Struktur"
    41. Exit Sub
    42. End If
    44. With ActiveSheet
    45. .Range("B3") = xmlKnoten.selectSingleNode("DS").Text
    46. .Range("C3") = xmlKnoten.selectSingleNode("L3").Text
    47. .Range("D3") = xmlKnoten.selectSingleNode("CutterLength").Text
    48. .Range("E3") = xmlKnoten.selectSingleNode("MaxWorkDepth").Text
    49. End With
    50. End Sub

    dazu gab es folgende XML:

    XML-Quellcode

    1. <?xml version="1.0" encoding="Windows-1252" standalone="yes" ?>
    2. - <Data PpXmlVer="7.0">
    3. - <Objects>
    4. - <PmToolInstance ExternalId="14-Feb-2012__07_28_34_3332_5">
    5. <name>Bohrer, 5.0x85-K40</name>
    7. <comment />
    9. <attachments />
    11. <status>Open</status>
    13. <copies />
    15. <layout>14-Feb-2012__07_28_34_3332_5Layout</layout>
    17. <availability>0</availability>
    19. <percentUsed>0</percentUsed>
    21. <variant>NULL</variant>
    23. <relativeTo>NULL</relativeTo>
    25. <partDirections />
    27. <cycleTime>0</cycleTime>
    29. <usesTool />
    31. <amount>1</amount>
    33. <throughput>0</throughput>
    35. <prototype>08-Jun-2011__12_30_35_2064_1</prototype>
    37. <active>0</active>
    39. - <NodeInfo>
    40. <Id>3177156</Id>
    42. <Name>Bohrer, 5.0x85-K40</Name>
    44. <family>Resource</family>
    46. - <version>
    47. - <versionId>
    48. <idEntry>1</idEntry>
    50. <idEntry>223</idEntry>
    52. <idEntry>0</idEntry>
    54. <idEntry>0</idEntry>
    56. </versionId>
    58. <versionName>Modul</versionName>
    60. </version>
    62. - <status>
    63. <createdBy>amg</createdBy>
    65. <lastModifiedBy>mustermann</lastModifiedBy>
    67. <modificationDate>1/3/2012 7:59:59</modificationDate>
    69. </status>
    71. <cioState>0</cioState>
    73. </NodeInfo>
    75. </PmToolInstance>
    77. - <PmLayout ExternalId="14-Feb-2012__07_28_34_3332_5Layout">
    78. <name>Layout*</name>
    80. <comment />
    82. <attachments />
    84. <status>Open</status>
    86. <children />
    88. - <location>
    89. <item>0</item>
    91. <item>0</item>
    93. <item>-165.451</item>
    95. </location>
    97. - <rotation>
    98. <item>0</item>
    100. <item>0</item>
    102. <item>0</item>
    104. </rotation>
    106. <boundedBoxMin>0_0_0</boundedBoxMin>
    108. <boundedBoxMax>0_0_0</boundedBoxMax>
    110. <mountedTo>NULL</mountedTo>
    112. <mountedTools />
    114. - <NodeInfo>
    115. <Id>3177159</Id>
    117. <Name>Layout*</Name>
    119. <family>PmLayout</family>
    121. - <version>
    122. - <versionId>
    123. <idEntry>1</idEntry>
    125. <idEntry>223</idEntry>
    127. <idEntry>0</idEntry>
    129. <idEntry>0</idEntry>
    131. </versionId>
    133. <versionName>Modul</versionName>
    135. </version>
    137. - <status>
    138. <createdBy>amg</createdBy>
    140. <lastModifiedBy>amg</lastModifiedBy>
    142. <modificationDate>14/2/2012 15:57:32</modificationDate>
    144. </status>
    146. - <absoluteLocation>
    147. <x>0</x>
    149. <y>0</y>
    151. <z>-165.451</z>
    153. <rx>0</rx>
    155. <ry>0</ry>
    157. <rz>0</rz>
    159. </absoluteLocation>
    161. <cioState>0</cioState>
    163. </NodeInfo>
    165. </PmLayout>
    167. - <MB_BOHRER ExternalId="08-Jun-2011__12_30_35_2064_1">
    168. <name>Bohrer, 5.0x85-K40</name>
    170. <comment />
    172. <attachments />
    174. <status>Open</status>
    176. <type />
    178. <supplier>HAM</supplier>
    180. <costGroup />
    182. <operatingCostPerHour>0</operatingCostPerHour>
    184. <length>0</length>
    186. <width>0</width>
    188. <height>0</height>
    190. <material />
    192. <weight>0</weight>
    194. <image>NULL</image>
    196. <cadFile>NULL</cadFile>
    198. <threeDRep>NULL</threeDRep>
    200. <twoDRep>NULL</twoDRep>
    202. <children />
    204. <investmentCost>0</investmentCost>
    206. <variant>NULL</variant>
    208. <active>0</active>
    210. <web3DFile>NULL</web3DFile>
    212. <jtThreeDRep>NULL</jtThreeDRep>
    214. <CutterDiameter>5</CutterDiameter>
    216. <CutterLength>85</CutterLength>
    218. <DS>6</DS>
    220. <L3>30</L3>
    222. <MaxWorkDepth>28</MaxWorkDepth>
    224. <WS>120</WS>
    226. <version />
    228. <catalogNumber />
    230. <cadSystem>0</cadSystem>
    232. <boundedBoxMin>0_0_0</boundedBoxMin>
    234. <boundedBoxMax>0_0_0</boundedBoxMax>
    236. <NumberOfCuttingEdges>2</NumberOfCuttingEdges>
    238. <Bestellnummer>123</Bestellnummer>
    240. <CutterEdgeMaterialName>VHM</CutterEdgeMaterialName>
    242. <Sachnummer>F12345</Sachnummer>
    244. <ShankClass>ZYL</ShankClass>
    246. <TechnologyName>BOHREN_10-14</TechnologyName>
    248. - <NodeInfo>
    249. <Id>2473739</Id>
    251. <Name>Bohrer, 5.0x85-K40</Name>
    253. <family>ToolPrototype</family>
    255. - <version>
    256. - <versionId>
    257. <idEntry>1</idEntry>
    259. <idEntry>223</idEntry>
    261. <idEntry>0</idEntry>
    263. <idEntry>0</idEntry>
    265. </versionId>
    267. <versionName>Modul</versionName>
    269. </version>
    271. - <status>
    272. <createdBy>hans</createdBy>
    274. <lastModifiedBy>mustermann</lastModifiedBy>
    276. <modificationDate>1/3/2012 7:59:58</modificationDate>
    278. </status>
    280. <cioState>0</cioState>
    282. </NodeInfo>
    284. </MB_BOHRER>
    286. </Objects>
    288. </Data>
    290. Das VBA-Programm soll per Button_Click die ExternalId vom MB_Bohrer aus Zelle 'A3' in 'Tabelle1' nehmen (hier: "08-Jun-2011__12_30_35_2064_1") und dann in dem XML-Dokument danach suchen. Anschließend sollen bestimmte Kinderknoten dieses Bohrers (DS, L3, CutterLength, MaxWorkDepth) angewählt werden und die Werte in die Zellen 'B3', 'C3', 'D3', 'E3' ausgegeben werden

    Welche Referenz für XML verwendest du?
    Ich habe es gerade getestet und ich hatte auch den Fehler the system cannot locate the object specified.

    Dann habe ich einmal aus einem XML VBScript dies ausgeführt:

    Visual Basic-Quellcode

    1. ​
    2. dim xmlDoc
    3. Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    4. xmlDoc.Async = "False"
    5. dim r
    6. r = xmlDoc.Load("test.xml")


    Das hat funktioniert und danach lief es auch in Excel mit


    Visual Basic-Quellcode

    1. ​
    2. Private Sub XMLDateiAuslesen(ByVal XmlDateiMitPfad As String)
    4. Dim xmlDoc As New MSXML2.DOMDocument
    5. Dim xmlKnoten As IXMLDOMNode
    7. Dim xpathKnoten As String
    8. Dim xpathAttrib As String
    10. xmlDoc.async = False
    11. xmlDoc.validateOnParse = True ' Auf Fehler prüfen
    13. xmlDoc.Load (XmlDateiMitPfad) ' XML-Datei laden
    15. If xmlDoc.Load(XmlDateiMitPfad) = False Then
    16. MsgBox "Cannot load xml"
    17. Exit Sub
    18. End If


    Ich vermute es war iwas mit dem ActiveX im argen. Sehr ungewöhnlich.. vll hast du ein ähnliches Problem..

    LG
    Das ist meine Signatur und sie wird wunderbar sein!

    Merkwürdig. Mit MSXML hatte ich noch nie Probleme.
    Aber ich erinnere mich, bei anderen Libraries auch schon auf Late-Binding umgestellt zu haben, weil es mit den Referenzen Probleme gab.
    Allerdings waren diese Probleme dann meist auf anderen Rechnern als dem Entwicklungsrechner.

    Aber die Stolperfallen sind ja bekanntlich vielseitig...
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Jo, das Problem hatte ich auch noch nie zuvor. Tendiere aber auch schon länger wieder zu Latebinding bei den meisten Objekten. Ist zwar von der Lesbarkeit und IntelliSense und Performance schlechter, aber dafür läuft es im Normalfall überall..
    Das ist meine Signatur und sie wird wunderbar sein!

    Also bei mir funktioniert es leider immer noch nicht. Habe jetzt Microsoft XML 6.0 auch nochmal mit angeklickt.
    Muss ich beim Button erstellen den irgendwas beachten? Ich habe jetzt dieses Beispiel einfach mal adaptiert, natürlich nicht mit den selben Dateien, aber irgendwie funktioniert das alles nicht.

    Ich verstehe zwar soweit das vorgehen, aber ich bekomme immer eine Fehlermeldung mit der Message Box:

    If xmlDoc.Load(XmlDateiMitPfad) = False Then
    MsgBox "XML-Datei: '" & XmlDateiMitPfad & "' wurde nicht gefunden", also meine Datei wurde nicht gefunden, obwohl Sie wie oben angegeben im existiert...

    vielleicht kann mir es jemand erklären?!

    Kahlua schrieb:

    meine Datei wurde nicht gefunden
    Die Fehlermeldung ist ja sehr irreführend programmiert.
    Da ging halt beim Load irgendetwas schief.
    Das kann alle möglichen Ursachen haben.
    Wie du dem tatsächlichen Fehler auf die Spur kommst:
    msdn.microsoft.com/en-us/libra…547.aspx#beginner_failure
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Kahlua schrieb:

    Wenn ich den Button betätige, kommt die Meldung wie es auch programmiert wurde
    Ist mir schon klar.
    Works as designed. ;)
    Wenn irgend etwas beim Laden schief läuft, kommt die Fehlermeldung "Datei wurde nicht gefunden".
    Dabei kann es tausend andere Ursachen geben.
    Das könnte falsches XML-Format sein oder ein Sonderzeichen, das nicht XML-konform ist, oder, oder, oder ...
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende