エクセルのマクロについて質問です。お気持ちのみですが合計で200p～差し上げます。

http://www.h7.dion.ne.jp/~umiumi/

UWSCでCOMオブジェクト操作するのが早いでしょうか。

ヘルプファイルのスクリプト->スクリプト関数->COMオブジェクト->COMオブジェクト生成の項の「例」でExcel操作の例（これは値設定の例ですが）を参考にして、

これとExcelのマクロのヘルプを見ながらで作れると思います。

使用方法

１　Sheet2のA2にファイルパスを最後の円マークまで、A1にファイルパスを入力します

２　出力したい範囲を選択します

３　マクロを実行します

※マクロの記録でショートカットキーを割り当て、そこにこのコードをコピーすると便利です。

また、説明書きを入れてあるので、便利になるようカスタマイズしてみてください。

※Sheet2,3はそれぞれ左から2,3番目（つまり、デフォルトの状態）になっている必要があります。また、Sheet2とSheet3という名前のシートがないとエラーになります。

Sub test()
Selection.Copy
Sheets("Sheet3").Select 'Sheet3は実際保存されるシートです。
Range("A1").Activate '左上づめになるようにしてあります。
ActiveSheet.Paste

    ActiveWorkbook.SaveAs Filename:= _
        Worksheets(2).Range("A2") & Worksheets(2).Range("A1") & ".txt", FileFormat:=xlUnicodeText, _
        CreateBackup:=False
        '２番目のシートのA2にファイルパスが入っていると認識されるようになっています。
        'また、A1にファイル名が入っていると認識されるようになっています。
        
        Sheets(3).Name = "Sheet3"
    
End Sub
<||

メモ帳で保存することではなく、テキストファイルとして保存することが目的だと思いましたので、メモ帳は使っていません。

メモ帳で開くことも重要でしたら、必要でしたら補足いたします。

Const Separater = " " ' 区切りをスペース1文字にする場合
' Const Separater = vbTab ' 区切りをタブにする場合

'------------------------------------------------------------
Sub makeFiles()
'------------------------------------------------------------
' saveFile の第一引数にセル範囲、第二引数にファイル名をしてします。
    Call saveFile("B3:G169", Cells(2, "B").Value)
    Call saveFile("N171:T199", Cells(170, "N").Value)
End Sub

'------------------------------------------------------------
Sub saveFile(rangeArea As String, fileName As String)
'------------------------------------------------------------
    Dim filePath As String
    filePath = ThisWorkbook.Path & "\" & fileName
    Dim dataRange As Range
    On Error Resume Next
'---- レンジの指定範囲のチェック
   Set dataRange = ActiveSheet.Range(rangeArea)
    On Error GoTo 0
    If dataRange Is Nothing Then
        MsgBox "Bad Range [" & rangeArea & "]"
        Exit Sub
    End If
'---- ファイルの書き込み処理
    Dim RowStart%, RowEnd%, RowIndex%    '--- 変数を整数型として宣言
    RowStart = dataRange.Row
    RowEnd = dataRange.Row + dataRange.Rows.Count - 1
    
    Dim ColStart%, ColEnd%, ColIndex
    ColStart = dataRange.Column
    ColEnd = ColStart + dataRange.Columns.Count - 1
        
    Dim oneLine As String
    With CreateObject("Scripting.FileSystemObject")
        With .createTextFile(filePath)
        For RowIndex = RowStart To RowEnd
'---- 1行の作成
            oneLine = Cells(RowIndex, ColStart).Value
            For ColIndex = ColStart + 1 To ColEnd
                oneLine = oneLine & Separater & Cells(RowIndex, ColIndex).Value
            Next
            .writeLine oneLine          '---- 1行の出力
        Next
        .Close                          '---- ファイルのクローズ
        End With
    End With
End Sub

こんな感じでどうでしょうか。

Option Explicit

Sub test()

    SaveAsText "B3:G169", "B2"
    SaveAsText "N171:T199", "N170"

    ' 以下、必要な分だけ繰り返し...

End Sub

Sub SaveAsText(saveRangeString As String, filenameString As String)

    Dim saveRange As Range
    Dim filenameToSave As String
    Dim fn As Integer
    Dim r As Range, c As Range
    Dim sp As String

    Set saveRange = ActiveSheet.Range(saveRangeString)
    filenameToSave = Range(filenameString).Value

    fn = FreeFile()
    Open filenameToSave For Output As #fn
    
    For Each r In saveRange.Rows
        sp = ""
        For Each c In r.Cells
            Print #fn, sp & c.Value;
            sp = " "
        Next c
        Print #fn, ""
    Next r
    
    Close #fn

End Sub