Excel Zeilen als separate .txt Dateien ausgeben
Liebe Administrator Community,
ich habe in diesem Forum bereits einen ähnlichen Beitrag zu folgendem Problem gefunden, jedoch ist dieser veraltet und passt nicht speziell auf meine Frage (den anschließenden Code habe ich diesem entnommen und nach bestem Gewissen angepasst). Ich habe eine Excel Tabelle mit mehreren Tausenden Zeilen der Spalte A, welche alle als einzelne .txt Dateien auf meinem Rechner landen sollen. Folglich ist der Inhalt der Zeile auch der Inhalt des Textdokumentes.
Sub ErstelleDateien()
Ziel = "C:\Dateiordner" #<- habe ich hier natürlich richtig benannt
Stellen = 5
Typ = ".txt"
AbZeile = 1
Spalte = "A"
Zeile = AbZeile
Nr = 1000001
Set fso = CreateObject("Scripting.FileSystemObject")
If Right(Ziel, 1) <> "\" Then Ziel = Ziel & "\"
Do While Cells(Zeile, Spalte).Value <> ""
fso.CreateTextFile(Ziel & Right(Nr, Stellen) & Typ).Write Cells(Zeile, Spalte).Value
Zeile = Zeile + 1
Nr = Nr + 1
Loop
End Sub
Nutze ich den vorangegebenen Code, so erhalte ich den Laufzeitfehler '5'. Handelt es sich um zu viele zu bearbeitende Zeilen? Versuche ich den Code durch F8 in Einzelschritten durchlaufen zu lassen, so ist bei dem dritten Dokument Schluss. Ich habe einen Test mit der gleichen Anzahl an Zeilen gemacht, wo der Inhalt der Zeilen lediglich aus ein paar Zeichen bestand, da ging es. Mache ich das jetzt mit den Zeilen (die mehrere Sätze enthalten), erscheint geschildertes Problem.
Über Hilfe würde ich mich freuen, vielen Dank im voraus!
Grüße 007007B
ich habe in diesem Forum bereits einen ähnlichen Beitrag zu folgendem Problem gefunden, jedoch ist dieser veraltet und passt nicht speziell auf meine Frage (den anschließenden Code habe ich diesem entnommen und nach bestem Gewissen angepasst). Ich habe eine Excel Tabelle mit mehreren Tausenden Zeilen der Spalte A, welche alle als einzelne .txt Dateien auf meinem Rechner landen sollen. Folglich ist der Inhalt der Zeile auch der Inhalt des Textdokumentes.
Sub ErstelleDateien()
Ziel = "C:\Dateiordner" #<- habe ich hier natürlich richtig benannt
Stellen = 5
Typ = ".txt"
AbZeile = 1
Spalte = "A"
Zeile = AbZeile
Nr = 1000001
Set fso = CreateObject("Scripting.FileSystemObject")
If Right(Ziel, 1) <> "\" Then Ziel = Ziel & "\"
Do While Cells(Zeile, Spalte).Value <> ""
fso.CreateTextFile(Ziel & Right(Nr, Stellen) & Typ).Write Cells(Zeile, Spalte).Value
Zeile = Zeile + 1
Nr = Nr + 1
Loop
End Sub
Nutze ich den vorangegebenen Code, so erhalte ich den Laufzeitfehler '5'. Handelt es sich um zu viele zu bearbeitende Zeilen? Versuche ich den Code durch F8 in Einzelschritten durchlaufen zu lassen, so ist bei dem dritten Dokument Schluss. Ich habe einen Test mit der gleichen Anzahl an Zeilen gemacht, wo der Inhalt der Zeilen lediglich aus ein paar Zeichen bestand, da ging es. Mache ich das jetzt mit den Zeilen (die mehrere Sätze enthalten), erscheint geschildertes Problem.
Über Hilfe würde ich mich freuen, vielen Dank im voraus!
Grüße 007007B
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 1594470536
Url: https://administrator.de/forum/excel-zeilen-als-separate-txt-dateien-ausgeben-1594470536.html
Ausgedruckt am: 18.04.2025 um 12:04 Uhr
3 Kommentare
Neuester Kommentar