Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige