Const fil1 As String = "C:\My Documents"
'カンマ区切りCSVファイルで保存
Sub ki503a()
Sheets("Sheet1").Select
    ActiveWorkbook.SaveAs Filename:=fil1 & "\MyBook.csv", _
        FileFormat:=xlCSV, CreateBackup:=False
End Sub
'
'タブ区切りテキストで保存
Sub ki503b()
Sheets("Sheet1").Select
    ActiveWorkbook.SaveAs Filename:=fil1 & "\MyBook.txt", _
        FileFormat:=xlText, CreateBackup:=False
End Sub
'
'スペ−ス区切りPRNファイルで保存
Sub ki503c()
Sheets("Sheet1").Select
    ActiveWorkbook.SaveAs Filename:=fil1 & "\MyBook.prn", _
        FileFormat:=xlTextPrinter, CreateBackup:=False
End Sub