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。