VBA Excel将副本另存为txt文件

Question

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

我尝试了ThisWorkbook.SaveCopyAs("wb.txt") 。 但是，这将excel保存为txt，而无需进行任何文件转换。 因此，当我打开文本文件时，没有数据显示。

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格式静默保存文件并关闭原始文件。

您也可以在这里找到一些信息。