|
Ich bräuchte mal eure Hilfe bei den Schleifen. Es geht darum, aus einer Excel-Tabelle eine XML Datei zu generieren.
Grundsätzlich habe ich das Ganze schon vernünftig hinbekommen, und die XML wird fast wie gewünscht erstellt.
Allerdings hänge ich an der Stelle "auswahlset name" und "guid" fest:
<auswahlset name="""; Cells(z, 8).Value & """ guid=""1234-5678-9000-5555-88888"">"
Es gibt verschiedene Auswahlsets in der Excel-Tabelle in Spalte H2:H1000, die guid sollte auch immer individuell, pro Auswahlset Variante vergeben werden.
Auswahlset10
Auswahlset20
Auswahlset30
Auswahlset40
So wie ich meinen Code derzeit erstellt habe, beachtet er sozusagen nur "Auswahlset10" mit "guid=1234-5678-9000-5555-88888".
Leider habe ich noch nicht so viel Übung mit den Schleifen. Vielleicht könnt ihr mir da weiter helfen. Danke euch vorab.
Sub Excel_to_XML_Export()
Dim strname As String
Dim strPth As String
Dim z As Long
Dim lngZeile As Long
strPth = "C:\Desktop\" 'Speicherpfad eintragen
strname = "myname.xml"
lngZeile = auswahl("A" & Rows.Count).End(xlUp).Row
Open strPth & strname For Output As #1
'***************************
'XML Kopf - das passt
'***************************
Print #1, "<?xml version=""1.0"" encoding=""utf-8""?>"
Print #1, "<exchange xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xsi:noNamespaceSchemaLocation=""http://download.autodesk.com/us/navisworks/schemas/nw-exchange-12.0.xsd"" units=""m"" filename=""myname.nwd"" filepath=""C:\Desktop\"">"
Print #1, " <auswahlsets>"
'****************************************
'der Teil soll mit in die äußere Schleife
'****************************************
For z = 2 To 2
Print #1, " <auswahlset name="""; Cells(z, 8).Value & """ guid=""1234-5678-9000-5555-88888"">"
Next z
Print #1, " <findspec mode=""all"" disjoint=""1"">"
Print #1, " <conditions>"
'*****************************************
'innere Schleife - die funktioniert soweit
'*****************************************
For z = 2 To lngZeile
Print #1, " <condition test=""value"" flags=""5"">"
Print #1, " <category>"
Print #1, " <name internal=""Attributes""> element </name>"
Print #1, " </category>"
Print #1, " <property>"
Print #1, " <name internal=""Attribute"">Line </name>"
Print #1, " </property>"
Print #1, " <value>"
Print #1, " <data type=""vstring"">" & "*"; Cells(z, 6).Value; "*" & "</data>"
Print #1, " </value>"
Print #1, " </condition>"
Next z
'****************************************
'der Teil soll mit in die äußere Schleife
'****************************************
Print #1, " <locator>/</locator>"
Print #1, " </findspec>"
Print #1, " </auswahlset>"
'***************************
'XML Fuss - das passt
'***************************
Print #1, " </auswahlsets>"
Print #1, " </exchange>"
Close #1
End Sub
|