Ist es möglich, eine Kopie einer Arbeitsmappe als TXT-Datei zu speichern?VBA Excel Speichern Kopieren als TXT-Datei
Ich versuchte ThisWorkbook.SaveCopyAs("wb.txt"). Dies spart jedoch das Excel mit txt ohne jegliche Dateikonvertierung. Wenn ich die Textdatei öffne, werden keine Daten angezeigt.
Ein anderer Weg
ThisFile = "Filename"
code.....
ActiveWorkbook.SaveAs Filename:="\folderlocation\" & ThisFile & ".txt", FileFormat:=xlText
Application.DisplayAlerts = False
Dim s As String
s = ActiveWorkbook.FullName
s = Replace(s, "xlsx", "txt")
ActiveWorkbook.SaveAs Filename:=s, FileFormat:=xlCurrentPlatformText
ActiveWorkbook.Close
Application.DisplayAlerts = True
Dies wird im Hintergrund Datei im TXT-Format speichern und Originaldatei schließen.
Sie können auch einige Informationen here finden.
[Siehe this] (http://www.mrexcel.com/forum/excel-questions/281422-visual-basic-applications-code-convert-excel-text-file .html) – newguy
oder http://stackoverflow.com/questions/8434994/export-each-sheet-to-a-separate-csv-file –
Sie können mit SaveCopyAs kein Format angeben. Kopiere das aktuelle Blatt und benutze SaveAs –