テキスト出力タブ区切り（簡易）

Sub テキストファイル出力タブ区切り()
    Sheets(1).Copy '新しいブックが作成される
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\temp\test.txt", FileFormat:=xlText
    ActiveWorkbook.Close 'SaveChanges:=False
    Application.DisplayAlerts = True
End Sub