tabellenblätter als txt abspeichern

Bild

Betrifft: tabellenblätter als txt abspeichern
von: Jo
Geschrieben am: 16.09.2015 11:16:34

Hallo zusammen,
ich möchte aus einer excel datei 12 Tabellenblätter jeweils als txt datei abspeichern.
Das Laufwerk ist vorgegeben.
Der name kann ebenfalls vorgegeben sein (zb. A_p1 - A_P12).
Da die Datei regelmäßig aktualisiert wird, müßten die bereits erstellten txt dateien überschrieben werden.
Wer kann dazu was sagen?
Danke im Voraus JS

Bild

Betrifft: Das Archiv-Recherche..... :-) oT
von: robert
Geschrieben am: 16.09.2015 11:33:08


Bild

Betrifft: AW: Das Archiv-Recherche..... :-) oT
von: JS
Geschrieben am: 16.09.2015 12:44:51
Habe ich gemacht, da ist aber nicht das richtige dabei.
Es sollen nur die blätter P1 -P12 als txt erstellt werden. Alle anderen nicht.
@ Robert: Falls ich einen passenden thread übersehen habe, kannst Du den Link nicht einfach noch mal teilen?
DAnke JS

Bild

Betrifft: ist nicht meine Aufgabe, aber...
von: robert
Geschrieben am: 16.09.2015 15:41:25
Hi,
man findet etliche Beispiele zum abspeichern als .txt
Und die Auswahl, welche Blätter es sein sollen, kann man auch finden.
Also etwas Eigeninitiative, ich mache es im Prinzip auch so.
Da ein bißchen VBA, dort ein wenig VBA und dann basteln!
Gruß
robert

Bild

Betrifft: AW: ist nicht meine Aufgabe, aber...
von: JS
Geschrieben am: 16.09.2015 16:47:38
keine Zeit für Schlaubischlumpf chats... ;-)
@Daniel
Danke funktioniert einwandfrei!
Grüße JS

Bild

Betrifft: AW: tabellenblätter als txt abspeichern
von: Daniel
Geschrieben am: 16.09.2015 13:03:43
Hi
probier mal:

Sub test()
Dim i As Long
Workbooks.Add xlWBATWorksheet
Application.DisplayAlerts = False '--- vorhandende Dateien ohne Rückfrage überschreiben
For i = 1 To 12
    With ActiveSheet
        .Cells.Clear
        ThisWorkbook.Sheets("P" & i).UsedRange.Copy
        .Cells(1, 1).PasteSpecial xlPasteValuesAndNumberFormats
        .Cells(1, 1).PasteSpecial xlPasteColumnWidths
        ActiveWorkbook.SaveAs "C:\Dein\Pfad\A_P" & i, FileFormat:=xlTextWindows
    End With
Next
ActiveWorkbook.Close False
application.displayalerts = true
End Sub
gruß Daniel

Bild

Betrifft: AW: tabellenblätter als txt abspeichern
von: JS
Geschrieben am: 22.09.2015 16:31:04
Hallo Daniel,
vielleicht hast Du Gelegenheit noch mal zu schauen.
Der Txt export verändert das Format von europäisch auf englisch (, = .). Dadurch werden am Ende falsche Werte dargestellt.
Wie kann ich denn das ursprüngliche Format beibehalten? nur komma als dezimal trenner, und 2 nachkommstellen.
Vielen Dank im Voraus

Bild

Betrifft: AW: tabellenblätter als txt abspeichern
von: Daniel
Geschrieben am: 22.09.2015 16:46:35
bei SaveAs mit dem Parameter Local:=True, um VBA anzuweisen die landestypsichen Zahlen-, Datumsformate und Trennzeichen zu verwenden.
Ohne Local:=True nimmt VBA immer die englischen (gleiches bei Workbooks.open von Text-Dateien)
gruß Daniel

Bild

Betrifft: AW: tabellenblätter als txt abspeichern
von: JS
Geschrieben am: 22.09.2015 16:56:46
Juhu ;-)

 Bild

Beiträge aus den Excel-Beispielen zum Thema "tabellenblätter als txt abspeichern"