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 

これは、ファイルをテキスト形式でサイレント保存し、元のファイルを閉じます。

また、hereという情報もあります。