[Exel VBA]シートをタブ区切りテキスト(txt)形式で保存する
Sub saveAsText()
Application.DisplayAlerts = False
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:= "C:\test\test.txt" _
, FileFormat:=xlText
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub