Hallo,
dank eines anderen Forums kann ich mit folgenden Script aus Excel heraus eine XML-Datei erzeugen.
Sub TextDateiErzeugen()
Dim FS As Object, MeinFile As Object
Dim Zelle As Range, Bereich As Range
Set FS = CreateObject("Scripting.FileSystemObject")
Set MeinFile = FS.CreateTextFile("E:\_Userdaten\Karsten\Homepagematerial\Kundengalerie_Version2_0\imageData_erst.xml", True)
MeinFile.WriteLine ("<xml><SIMPLEVIEWER_DATA>")
With ThisWorkbook.Worksheets("Tabelle1")
Set Bereich = .Range("f1:f" & .Range("f65536").End(xlUp).Row)
End With
For Each Zelle In Bereich
MeinFile.WriteLine (" <IMAGE>")
MeinFile.WriteLine (" <NAME>" & Zelle.Text & "</NAME>")
MeinFile.WriteLine (" <CAPTION><![CDATA[" & Zelle.Text & "]]></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
Dieser Code funktioniert auch.
Nun möchte ich aber, dass in der Zeile
MeinFile.WriteLine (" <CAPTION><![CDATA[" & Zelle.Text & "]]></CAPTION>")
der Inhalt einer anderen Spalte, z.B. G erscheint. Die vorhergehende Zeile bleibt aber bei F.
Entweder sind die Zeilen dieser Spalten gemeinsam leer oder mit Inhalten gefüllt.
Danke Karsten
|