Thema Datum  Von Nutzer Rating
Antwort
Rot Nach bestimmter anzahl an Zellen neue datei erstellen
 09.02.2012 20:46:43 DETEGE
NotSolved
10.02.2012 00:54:44 Till
NotSolved
10.02.2012 08:33:54 Sino
NotSolved
10.02.2012 18:30:53 Till
NotSolved
12.02.2012 14:52:45 Gast416
NotSolved
13.02.2012 10:44:24 Sino
NotSolved
13.02.2012 21:00:40 Till
NotSolved
14.02.2012 08:30:52 Sino
NotSolved
15.02.2012 08:24:18 Sino
NotSolved
15.02.2012 08:27:38 Till
*****
Solved
15.02.2012 10:00:59 Sino
NotSolved

Ansicht des Beitrags:
Von:
DETEGE		 Datum:
09.02.2012 20:46:43		 Views:
2160		 Rating:
     
Antwort:
  Ja
Thema:
Nach bestimmter anzahl an Zellen neue datei erstellen

 

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 ...
 

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 Nach bestimmter anzahl an Zellen neue datei erstellen
 09.02.2012 20:46:43 DETEGE
NotSolved
10.02.2012 00:54:44 Till
NotSolved
10.02.2012 08:33:54 Sino
NotSolved
10.02.2012 18:30:53 Till
NotSolved
12.02.2012 14:52:45 Gast416
NotSolved
13.02.2012 10:44:24 Sino
NotSolved
13.02.2012 21:00:40 Till
NotSolved
14.02.2012 08:30:52 Sino
NotSolved
15.02.2012 08:24:18 Sino
NotSolved
15.02.2012 08:27:38 Till
*****
Solved
15.02.2012 10:00:59 Sino
NotSolved