Is it possible to save a copy of a workbook as txt file?
I tried ThisWorkbook.SaveCopyAs("wb.txt"). However this saves the excel with txt without any file conversion. So when I open the text file no data is displayed.
Asked
Active
Viewed 1.1k times
2
-
[See this](http://www.mrexcel.com/forum/excel-questions/281422-visual-basic-applications-code-convert-excel-text-file.html) – Stupid_Intern Apr 07 '16 at 14:13
-
1or this http://stackoverflow.com/questions/8434994/export-each-sheet-to-a-separate-csv-file – Sam Russo Apr 07 '16 at 14:15
-
You can't specify a format with SaveCopyAs. Copy the current sheet and use SaveAs – Alex K. Apr 07 '16 at 14:17
2 Answers
3
Another way
ThisFile = "Filename"
code.....
ActiveWorkbook.SaveAs Filename:="\folderlocation\" & ThisFile & ".txt", FileFormat:=xlText
mrbungle
- 1,891
- 1
- 15
- 26
2
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
This will silently save file in txt format and close original file.
Also you can find some info here.
