まりふのひと

エクセルマクロ(VBA)で「メモ帳」を起動する

moug モーグExcel VBA|即効テクニック にあった。
テキストファイルを開きたいので、notepad.exe にフルパスの引数を付けたら起動できた。

'概要:メモ帳でテキストファイルを開く
'更新:H25.01.07    初版
Function OpenNotepad(argFullPath As String) As Boolean
Dim returnCode As Long

    returnCode = Shell("notepad.exe " & argFullPath, vbNormalFocus)
    If returnCode = 0 Then
        MsgBox "起動に失敗しました。"
    Else
        OpenNotepad = True
    End If
    
End Function