Als ANSI speichern
19.09.2017 09:33:46
Peter(silie)
ich erstelle ein neues Workbook und füge ein Tabellenblatt dort ein.
Anschließend speichere ich das Workbook als Textdatei.
Gibt es eine Möglichkeit, das Workbook gleich als ANSI-Text zu speichern,
oder muss ich nach dem speichern die neue Text-Datei öffnen und dann als ANSI
speichern?
Hier mein Code zum speichern:
Private Sub SafeAsText()
Dim workbook_ As Workbook
Application.DisplayAlerts = False
Set workbook_ = Workbooks.Add
ThisWorkbook.Sheets(1).Copy After:=workbook_.Sheets(1)
workbook_.Sheets(1).Delete
workbook_.SaveAs Filename:=DefaultPath & "abc_Test", FileFormat:=xlTextWindows
workbook_.Close False
Application.DisplayAlerts = True
End Sub
Anzeige