VBA Excel Save Copy as txt File

问题

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.

回答1:

Another way

ThisFile = "Filename"
code.....
ActiveWorkbook.SaveAs Filename:="\folderlocation\" & ThisFile & ".txt", FileFormat:=xlText

回答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.

来源：https://stackoverflow.com/questions/36478774/vba-excel-save-copy-as-txt-file

标签

vba