Private Sub コマンド40_Click()

On Error Resume Next

Dim AppExcel As Excel.Application
Dim wb As Excel.workbook
Dim fpath As String

'ファイルのパス
fpath = "￥10.9.8.2￥てすと￥元ファイル￥マニュアル.xls"

'accessvba フォルダの指定したファイルを表示
Set AppExcel = CreateObject("excel.application")
Set wb = AppExcel.workbooks.Open(fpath)
AppExcel.Visible = True

Set wb = Nothing
Set AppExcel = Nothing

End Sub

-------------------------------
指定したパスの指定したExcelファイルを開けるよ。