Sub エクセルファイル以外を開く()
    
    '開きたいファイルをフルパスで拡張子含めて指定する
    開くファイル = "C:\サンプル.pdf"
    
    CreateObject("Shell.Application").ShellExecute 開くファイル

End Sub