VBA Excel将副本另存为txt文件

Question

是否可以将工作簿的副本保存为txt文件？

我试过了ThisWorkbook.SaveCopyAs("wb.txt")。但是，这可以使用txt保存excel而无需任何文件转换。因此，当我打开文本文件时，不会显示任何数据。

Answer 1

另一种方式

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

Answer 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

这将以txt格式静默保存文件并关闭原始文件。

您也可以找到一些信息here。