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