VBA(１行単位で別ファイル化)

Sub ReadAndWriteTextFile()
    Dim inputFile As String
    Dim lineText As String
    Dim lineCount As Long
    
    ' 入力ファイルのパスを指定
    inputFile = "C:\input.txt"
    
    ' 入力ファイルを開く
    Open inputFile For Input As #1
    
    ' 行番号を初期化
    lineCount = 1
    
    ' 入力ファイルの終わりまで1行ずつ読み込む
    Do Until EOF(1)
        Line Input #1, lineText
        
        ' 出力ファイル名を生成
        Dim outputFile As String
        outputFile = "C:\output_line_" & lineCount & ".txt"
        
        ' 出力ファイルを開く（上書きモード）
        Open outputFile For Output As #2
        
        ' 読み込んだ行を出力ファイルに書き込む
        Print #2, lineText
        
        ' 出力ファイルを閉じる
        Close #2
        
        ' 行番号をインクリメント
        lineCount = lineCount + 1
    Loop
    
    ' 入力ファイルを閉じる
    Close #1
    
    MsgBox "処理が完了しました。"
End Sub