Hallo Liebes Community,
ich versuche eine XML datei aus meiner Tabelle erstellen zu lassen, die wie folgt aussieht ...
Sub TextDateiErzeugen()
Dim FS As Object, MeinFile As Object
Dim Zelle As Range, Bereich As Range, Bereich2 As Range
Set FS = CreateObject("Scripting.FileSystemObject")
Set MeinFile = FS.CreateTextFile("C:\Users\++\Desktop\imageData.xml", True)
MeinFile.WriteLine ("<xml><SIMPLEVIEWER_DATA>")
With ThisWorkbook.Worksheets("DBA Tool")
Set Bereich = .Range("a37:a" & .Range("a65536").End(xlUp).Row)
End With
For Each Zelle In Bereich
MeinFile.WriteLine (" <IMAGE>")
MeinFile.WriteLine (" <NAME>" & Zelle.Text & "</NAME>")
MeinFile.WriteLine (" <CAPTION><CDATA></CAPTION>")
MeinFile.WriteLine (" </IMAGE>")
MeinFile.WriteLine ("")
Next Zelle
MeinFile.WriteLine ("</SIMPLEVIEWER_DATA>")
MeinFile.Close
Set FS = Nothing
Set MeinFile = Nothing
Set Bereich = Nothing
Set Zelle = Nothing
End Sub
Wie bringe ich excel nun dazu nach jeder 6. Zelle eine neue datei zu beginnen und da wo es aufgehört hat weiterzumachen bis die Tabelle durch ist ?
Habe da noch werte drin die von spalte A bis spalte G gehen die auch mit in die XML datei eingefügt werden müssen mit jeweils verschiedenen ID´s
Wäre für jede Hilfe dankbar ...
|