Speichern als - Blattnamenänderung verhi

Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\Users\xxx\Downloads\" & "imp.txt", FileFormat:=xlText, _ _ _ _ _ _ CreateBackup:=False, Local:=True Application.DisplayAlerts = True

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SaveAsTxtTab() 'das heutige Datum im Format TagMonat ohne Jahr und irgendwelche Trennzeichen Datum = Format(Date, "DDMM") On Error GoTo ErrorHandler Application.CutCopyMode = False ChDir "C:\Users\Daniel\Downloads\" 'Anpassen, muss bereits existieren Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\Users\Daniel\Downloads\" & Datum & "_imp.txt", _ FileFormat:=xlText, _ CreateBackup:=False, Local:=True Application.DisplayAlerts = True ErrorHandler: If Err.Number 0 Then MsgBox "Fehler Nr. " & Err.Number & vbCrLf _ & Err.Description, vbCritical + vbOKOnly, "Das ging schief ..." If ff > 0 Then Close #ff End Sub

hier der fragende Daniel ( Mensch ist das verwirrend) :-)
Wie es Daniel schon gesagt hat, ändert das SaveAs den Blattnamen;
allerdings kann ich nicht ausweichen auf MsDos TXT da die TXT mit Tab weiter verarbeitet wird.
Ich glaube, ich muss wirklich den umständlichen Weg gehen und das Blatt in eine andere Datei kopieren.
Einen anderen Ansatz versuche ich gerade hiermit:
Mit CSV klappt das wunderbar ; mal schauen ob ich das für txt mit tab umstricken kann.

Sub SaveAsCSV()
Dim DstFileName As String, DstPfad As String
Dim Delimiter As String
Dim strZe As String
Dim lRow As Long, lCol As Integer
Dim Ze As Long, Sp As Integer
Dim ff As Integer
'das heutige Datum im Format TagMonat ohne Jahr und irgendwelche Trennzeichen
Datum = Format(Date, "DDMM")
'MsgBox Datum
On Error GoTo ErrorHandler
DstPfad = "C:\Users\Daniel\Downloads\" 'Anpassen, muss bereits existieren
DstFileName = DstPfad & "dhl" & Datum & ".csv" 'Anpassen - Dateiname jetzt dhl(Datum aus Tag/ _
Monat).csv
Delimiter = ";"
With ActiveSheet
lRow = .Cells.Find(what:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lCol = .Cells.Find(what:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious). _
Column
ff = FreeFile
Open DstFileName For Output As #ff
'Zeile für Zeile lesen und schreiben ...
For Ze = 1 To lRow
For Sp = 1 To lCol - 1
strZe = strZe & .Cells(Ze, Sp) & Delimiter
Next Sp
strZe = strZe & .Cells(Ze, Sp)
Print #ff, strZe
strZe = ""
Next Ze
End With
ErrorHandler:
If Err.Number  0 Then MsgBox "Fehler Nr. " & Err.Number & vbCrLf _
& Err.Description, vbCritical + vbOKOnly, "Das ging schief ..."
If ff > 0 Then Close #ff
End Sub

HI
wie ich schon schrieb:
dein Weg, die Daten erst in eine neue Mappe zu kopieren und diese als Text zu speichern ist die beste Methode, auch wenn es etwas umständlich aussieht.
den hauptsächlichen Grund hatte ich in meinem ersten Beitrag an dich genannt.
Das ändern des Blattnamens kann man ggf. mit einem anderen Fileformat verhindern, weil nicht bei allen Fileformaten dieser geändert wird. Es gibt auch Textformate (MS-DOS), bei denen der Blattname erhalten bleibt.
aber das zweite Problem kannst du nicht lösen.
SaveAs ändert den Dateityp und wenn du die Datei dann wieder normal speichern willst, musst du eben erneut mit SaveAs arbeiten.
SaveCopyAs funktioniert auch nicht, weil SaveCopyAs eine 1:1-Kopie der Datei erstellt und somit keine Änderung des FileFormats zulässt.
wie gesagt, deine von dir gefundene Variante 1 ist der beste Weg, die Probleme zu vermeiden.
ich zumindest kenne keinen besseren und mache das auch immer so.
Gruß Daniel

SaveAsTXTneu() Dim DstFileName As String, DstPfad As String Dim Delimiter As String Dim strZe As String Dim lRow As Long, lCol As Integer Dim Ze As Long, Sp As Integer Dim ff As Integer 'das heutige Datum im Format TagMonat ohne Jahr und irgendwelche Trennzeichen Datum = Format(Date, "DDMM") 'MsgBox Datum On Error GoTo ErrorHandler DstPfad = "C:\Users\Daniel\Downloads\" 'Anpassen, muss bereits existieren DstFileName = DstPfad & Datum & "_imp.txt" 'Anpassen 'Delimiter = ";" Delimiter = vbTab With ActiveSheet lRow = .Cells.Find(what:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row lCol = .Cells.Find(what:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious). _ Column ff = FreeFile Open DstFileName For Output As #ff 'Zeile für Zeile lesen und schreiben ... For Ze = 1 To lRow For Sp = 1 To lCol - 1 strZe = strZe & .Cells(Ze, Sp) & Delimiter Next Sp strZe = strZe & .Cells(Ze, Sp) Print #ff, strZe strZe = "" Next Ze End With ErrorHandler: If Err.Number 0 Then MsgBox "Fehler Nr. " & Err.Number & vbCrLf _ & Err.Description, vbCritical + vbOKOnly, "Das ging schief ..." If ff > 0 Then Close #ff End Sub pre>

Sub SaveAsTXTneu() Dim DstFileName As String, DstPfad As String Dim Delimiter As String Dim strZe As String Dim lRow As Long, lCol As Integer Dim Ze As Long, Sp As Integer Dim ff As Integer 'das heutige Datum im Format TagMonat ohne Jahr und irgendwelche Trennzeichen Datum = Format(Date, "DDMM") 'MsgBox Datum On Error GoTo ErrorHandler DstPfad = "C:\Users\Daniel\Downloads\" 'Anpassen, muss bereits existieren DstFileName = DstPfad & "dhl" & Datum & "_imp.txt" 'Anpassen - Dateiname jetzt dhl(Datum aus _ Tag/Monat).csv 'Delimiter = ";" Delimiter = vbTab With ActiveSheet lRow = .Cells.Find(what:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row lCol = .Cells.Find(what:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious). _ Column ff = FreeFile Open DstFileName For Output As #ff 'Zeile für Zeile lesen und schreiben ... For Ze = 1 To lRow For Sp = 1 To lCol - 1 strZe = strZe & .Cells(Ze, Sp) & Delimiter Next Sp strZe = strZe & .Cells(Ze, Sp) Print #ff, strZe strZe = "" Next Ze End With ErrorHandler: If Err.Number 0 Then MsgBox "Fehler Nr. " & Err.Number & vbCrLf _ & Err.Description, vbCritical + vbOKOnly, "Das ging schief ..." If ff > 0 Then Close #ff End Sub

Beliebteste Forumthreads (12 Monate)

Speichern als - Blattnamenänderung verhi

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Speichern als - Blattnamenänderung verhi

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread