testページ2

Sub SaveSheet1AsTextANSI2()
Dim FilePath As Variant
Dim FileNum As Integer
Dim LineText As String
Dim RowIndex As Integer
Dim ColumnIndex As Integer
Dim InitialFileName As String
Dim TargetSheet As Worksheet

' シート名を定義します
Set TargetSheet = ThisWorkbook.ActiveSheet

' 初期のファイル名を設定します
InitialFileName = TargetSheet.Name & ".txt"

' 名前を付けて保存ダイアログを表示してファイル名を取得します
FilePath = Application.GetSaveAsFilename(InitialFileName, FileFilter:="Text Files (*.txt), *.txt")

' ユーザーがキャンセルした場合は処理を中止します
If FilePath = False Then Exit Sub

' テキストファイルを書き込みモードで開きます
FileNum = FreeFile()
Open FilePath For Output As #FileNum

' シートの内容をテキストファイルに書き込みます
For RowIndex = 1 To TargetSheet.UsedRange.Rows.Count
    LineText = ""
    For ColumnIndex = 1 To TargetSheet.UsedRange.Columns.Count
        LineText = LineText & TargetSheet.Cells(RowIndex, ColumnIndex).Text & vbTab
    Next ColumnIndex
    ' 最後のタブを削除して改行を追加します
    LineText = Left(LineText, Len(LineText) - 1) & vbCrLf
    ' テキストファイルに書き込みます
    Print #FileNum, LineText;
Next RowIndex

' ファイルを閉じます
Close #FileNum

End Sub