Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Worksheets als einzelne .txt datei speichern

Worksheets als einzelne .txt datei speichern
06.09.2018 10:38:53
Manuel
Hallo werte Kollegen! Ich hoffe es kann mir jemand bei folgendem Problem helfen.
Durch den Button "Save as text" sollen 5 Text-Files der einzelnen Worksheets (DATA, (2), (3), (4), (5)) in einen bestimmten Ordner als .txt gespeichert werden. Diese 5 einzelnen Dateien sollen jeweils immer den Dateinamen enthalten der in den 5 Zellen "SupID_MAP" (D9-D13) zu sehen sind.
Also:
DATA -- 5180_903836_909606_1 (also das DATA-Worksheet sollte immer in den string umgewandelt werden der gerade in Feld D9 (Worksheet: SupID_MAP) steht)
(2) -- soll so wie in D10 genannt werden
(3) -- soll so wie in D11 genannt werden
(4) -- soll so wie in D12 genannt werden
(5) -- soll so wie in D13 genannt werden
Hier das FILE: https://www.herber.de/bbs/user/123804.xlsm
Ich danke euch für eure Hilfe
Grüße aus Wien
Manuel

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheets als einzelne .txt datei speichern
07.09.2018 11:52:27
Bernd
Hallo Manuel,
warum schreibst du nicht im alten Thread?
Sub BlattUmbenennenSpeichern()
Dim xWs As Worksheet
Dim xTextFile As String
Const Path As String = "C:\Import" 'anpassen
On Error Resume Next
Application.ScreenUpdating = False
Z = 9
For i = 2 To 6
If Sheets(i).Name  "SupID_MAP" Then
Sheets(i).Name = Sheets("SupID_MAP").Cells(Z, 4).Value
Z = Z + 1
Else
End If
Next i
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name  "SupID_MAP" Then
filename = xWs.Name
xWs.Copy
xTextFile = Path & "\" & filename & ".txt"
Application.ActiveWorkbook.SaveAs filename:=xTextFile, FileFormat:=xlText, Local:=True,  _
CreateBackup:=False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
End If
Next
Application.ScreenUpdating = True
End Sub
Gruß
Bernd
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige