Excel2000 VBA 選択範囲をTXTファイルに出力

Excel2000 VBA　選択範囲をTXTファイルに出力

Sub selection_save_txt()
'
'選択範囲の左上のセルの値をファイル名にして、選択範囲をTXTとして出力する
'保存先はカレントフォルダ
'
Dim i, j As Integer
Dim d, SaveD As String
Dim start_row, start_column, end_row, rows_count, columns_count, end_column As Long
Dim File_name As String

'範囲を調べる
    start_row = Selection.ROW                               '開始行
    start_column = Selection.Column                         '開始列
    end_row = start_row + Selection.Rows.count - 1          '終了行
    end_column = start_column + Selection.Columns.count - 1 '終了列
    rows_count = Selection.Rows.count                       '範囲行数
    columns_count = Selection.Columns.count                 '範囲列数
   
'左上のセルの値をファイル名にする
    File_name = Cells(start_row, start_column).Value
   
'ファイルの読み込みと出力
    Open File_name & ".txt" For Output As #1
   
    For i = start_row To start_row + Selection.Rows.count - 1
        For j = start_column To end_column
            d = Cells(i, j)
            SaveD = SaveD & d & vbTab      '１列ごとにTABコード追加
            'Debug.Print SaveD
        Next j
        SaveD = SaveD & vbCrLf             '１行ごとに改行を追加
    Next i
   
    Print #1, SaveD
    Close #1
End Sub