Thema Datum  Von Nutzer Rating
Antwort
Rot XML Datei aus Excel generieren - Script erweitern
 09.06.2014 08:57:23 Gast08344
NotSolved
09.06.2014 10:33:00 Gast92897
NotSolved
09.06.2014 15:10:13 Gast62919
NotSolved

Ansicht des Beitrags:
Von:
Gast08344		 Datum:
09.06.2014 08:57:23		 Views:
1424		 Rating:
     
Antwort:
  Ja
Thema:
XML Datei aus Excel generieren - Script erweitern

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot XML Datei aus Excel generieren - Script erweitern
 09.06.2014 08:57:23 Gast08344
NotSolved
09.06.2014 10:33:00 Gast92897
NotSolved
09.06.2014 15:10:13 Gast62919
NotSolved