エクセルのマクロについて教えてください。

下記のマクロを実行すると
指定フォルダ内の指定ファイルを開く事が出来ますが、
マクロを実行すると、PDFファイルが、Excelシートの呼び込みされてしまします。
マクロを実行した時に、PDFそのままの状態で開く事が出来る方法を教えてください。
現状のマクロ
Sub 道路資料を開く()
Dim alert As VbMsgBoxResult
alert = MsgBox("道路確認照会確認をしますか？", vbYesNo + vbQuestion, "道路確認")
If alert <> vbYes Then
Exit Sub
End If
On Error Resume Next
Workbooks.Open Filename:=" \\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\資料\道路開発照会資料\道路照会の要否.pdf"

End Sub

以上となります。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： いんちょ 回答日時： 2024/03/28 13:21

CreateObject("Shell.Application").ShellExecute <ファイルパス>

で開けます。

この回答へのお礼

回答ありがとうございます。
上手くできました。
コードも教えて頂きまして、感謝いたします。

お礼日時：2024/03/28 13:33