Blatt als .txt speichern; Blattname unverändert
09.11.2016 08:59:01
Hannes
wenn ich mit deisen Codeschnipsel das Blatt als .txt Datei abspeichere muss ich den ursprünglichen Blattname danach wieder herstellen da Excel dieses umbenennt. Geht das Exportieren auch so das der Blattname nicht verändert wird?
'Ordner indem gespeichert werden soll auswählen
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Speicherpfad auswählen", &H1000, 17)
On Error Resume Next
Pfad = BrowseDir.items().Item().Path
If Pfad = "" Then Exit Sub
On Error GoTo 0
Application.DisplayAlerts = False
'Output SMD Top exportieren
Sheets("Output SMD Top").Select
Dateiname = Sheets("Output SMD Top").Cells(1, 1).Value
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & Dateiname & ".txt", FileFormat:=xlText
Worksheets(4).Name = "Output SMD Top" 'Blattname wiederherstellen
Hoffe auf Hilfe. beste grüße!