79728
02.12.2009
23553
10
0
Excel Zeilen als einzelne Text-Dateien speichern
automatisiertest Abspeichern möglich?
Hey Leute,
ich habe ein Excel Dokument welches von A1 bis A406 Sätze enthält.
Ich möchte jeden Satz (also 406 Stück) als einzelne .txt-Datei speichern. Und das natürlich möglichst automatisiert!
z.B. Feldinhalt A1 in 001.txt / Feldinhalt A2 in 002.txt usw...
Hoffe mit kann jemand helfen
Hey Leute,
ich habe ein Excel Dokument welches von A1 bis A406 Sätze enthält.
Ich möchte jeden Satz (also 406 Stück) als einzelne .txt-Datei speichern. Und das natürlich möglichst automatisiert!
z.B. Feldinhalt A1 in 001.txt / Feldinhalt A2 in 002.txt usw...
Hoffe mit kann jemand helfen
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 130803
Url: https://administrator.de/contentid/130803
Ausgedruckt am: 16.11.2024 um 00:11 Uhr
10 Kommentare
Neuester Kommentar
schonmal überlegt das ganze als .csv datei zu speichern und mit vbscript oder ähnlichem aufzusplitten...
das script liest die zeile für zeile ein und erstellt dir daraus eine datei....
wie ist den der genaue aufbau deiner datei?
gruß michael
das script liest die zeile für zeile ein und erstellt dir daraus eine datei....
wie ist den der genaue aufbau deiner datei?
gruß michael
Ich habe leider keine Kenntnisse in VB o.ä.
Der genaue aufbau habe ich eigentlich beschrieben.
Spalte A hat 406 Zeilen. In jeder Zeile steht ein Satz mit x-beliebigen Wörtern...
Gruß
Der genaue aufbau habe ich eigentlich beschrieben.
Spalte A hat 406 Zeilen. In jeder Zeile steht ein Satz mit x-beliebigen Wörtern...
Gruß
Hallo 313373!
Ohne den Sinn der ganzen Aktion zu hinterfragen
:
Verwendung:
Grüße
bastla
Ohne den Sinn der ganzen Aktion zu hinterfragen
:Sub ErstelleDateien()
Ziel = "D:\Dein Ordner"
Stellen = 3
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- Rechtsklick auf das Register des die Zeilen enthaltenden Tabellenblattes (also zB "Tabelle1") und Auswahl von "Code anzeigen"
- Einfügen des obigen Scriptcodes in das große weiße Fenster
- Anpassen zumindest der Zeile 1
- Cursor innerhalb des Scriptcodes platzieren und in der Symbolleiste die grüne "Play"-Taste betätigen.
Grüße
bastla
Wahnsinn, hat super funktioniert!!! Besten Dank!!!
Hallo bastla,
ist es auch möglich anstelle der Nummerierung, die Zeileninhalte als Namen der .txt - Datei zuverwenden?
Das würde mir wirklich helfen.
Grüße
r0xxta
ist es auch möglich anstelle der Nummerierung, die Zeileninhalte als Namen der .txt - Datei zuverwenden?
Das würde mir wirklich helfen.
Grüße
r0xxta
Hallo r0xxta und willkommen im Forum!
Grüße
bastla
ist es auch möglich anstelle der Nummerierung, die Zeileninhalte als Namen der .txt - Datei zuverwenden?
Ja.Grüße
bastla
Das geht aber schnell
Könntest du mir bitte sagen was ich genau ändern müsste?
Grüße
r0xxta
Könntest du mir bitte sagen was ich genau ändern müsste?
Grüße
r0xxta
Hallo r0xxta!
Wenn Du tatsächlich Dateien erzeugen willst, deren Name (inkl. Typ) und Inhalt jeweils aus dem Inhalt einer Zelle der vorgegebenen Spalte besteht, ersetze die Zeile 15 durch
Grüße
bastla
Wenn Du tatsächlich Dateien erzeugen willst, deren Name (inkl. Typ) und Inhalt jeweils aus dem Inhalt einer Zelle der vorgegebenen Spalte besteht, ersetze die Zeile 15 durch
fso.CreateTextFile(Ziel & Cells(Zeile, Spalte).Value).Write Cells(Zeile, Spalte).Value
bastla
Klasse!
Vielen Dank bastla hat alles geklappt.
Schönes Wochenende noch =)
Vielen Dank bastla hat alles geklappt.
Schönes Wochenende noch =)
Hallo habe die Frage nochmal aufgemacht:
Erstellen einzelner .txt Dateien aus einer Excel Liste + Namensvergebung
Vielleicht habt ihr Tipps?
Erstellen einzelner .txt Dateien aus einer Excel Liste + Namensvergebung
Vielleicht habt ihr Tipps?
