Sheetinhalt als TXT ohne Originalüberschreibung
13.07.2017 13:17:20
kubden82
ich weiß, dass es schon einige Beiträge zu diesem Thema gibt und ich habe versucht mir daraus etwas zusammen zu basteln, leider ohne Erfolg daher hier einmal meine Frage zu meiner Datei.
Ich will den Inhalt eines Reiters als .txt im tmp-Ordner speichern, den Inhalt der Exceldatei, den Reiternamen und den Dateinamen nicht verändern. Bei meiner aktuellen Methode wird auch der Reitername und der Dateiname geändert. Es soll auch der gesamte Inhalt kopiert werden.
Sub txt_test()
Worksheets("Ausgabe").Copy
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Ausgabe").SaveAs "C:\tmp\Ausgabe.txt", FileFormat:=xlTextWindows
Application.DisplayAlerts = True
ActiveWorkbook.Close False
End Sub
ThisWorkbook.Sheets("Ausgabe").SaveAs "C:\tmp\Ausgabe.txt", xlTextWindows, local:=True
Sub txt_speichern()
Dim strAlterName As String
strAlterName = ThisWorkbook.Name
On Error GoTo fehler
Worksheets("Ausgabe").Copy
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Ausgabe").SaveAs "C:\tmp\Ausgabe.txt", FileFormat:=xlTextWindows
Application.DisplayAlerts = True
ActiveWorkbook.Close False
Sheets(4).Name = strAlterName
ActiveWorkbook.SaveAs FileFormat:=xlWorkbookNormal
Exit Sub
fehler:
If Err Then MsgBox "Datei wurde nicht erstellt"
Sheets(4).Name = strAlterName
End Sub
Dennis