【VBA】テキストファイルをソートする

VBAで
　・テキストファイルをソート
できます！

VBAから
　・Power Shellのコマンドレットを実行
することで実現します！

VBAコード
実行結果
参考①
参考②

VBAコード

ここでは例として
　・デスクトップ配下のテキストファイル「sample.txt」をソート
します。

Option Explicit

Sub sample()
    
    Dim targetFile As String
    Dim psCommand As String
    Dim wsh As Object
    Dim result As Integer
    
    '対象ファイル
    targetFile = "C:\Users\user\Desktop\sample.txt"
    
    'PowerShellのコマンドレットを組み立て
    psCommand = "powershell -NoProfile -ExecutionPolicy Unrestricted "
    psCommand = psCommand & "(Get-Content " & targetFile & ") | Sort-Object | Out-File -Encoding default " & targetFile
    
    Set wsh = CreateObject("WScript.Shell")
    
    'PowerShellのコマンドレットを実行
    result = wsh.Run(Command:=psCommand, WindowStyle:=0, WaitOnReturn:=True)
    
    If (result = 0) Then
        MsgBox ("ソートが正常終了しました。")
    Else
        MsgBox ("ソートが異常終了しました。")
    End If
    
    '後片付け
    Set wsh = Nothing
    
End Sub

「対象ファイル」を指定します(11行目)。

実行するPower Shellのコマンドレットを組み立てます(14、15行目)。
※コマンドレット「Get-Content」と「Sort-Object」によりソートをします。
※コマンドレット「Out-File」により、ソート後の内容を対象ファイルへ書き込みます。
※文字化けしないように、オプション「-Encoding default」を付けます。