Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim strPath As String
Sub test_1()
strPath = ThisWorkbook.Path & "\test.xlsx"
ShellExecute Application.hwnd, "open", strPath, vbNullString, vbNullString, 1
End Sub
Sub test_2()
strPath = ThisWorkbook.Path & "\test.xlsx"
CreateObject("WScript.Shell").Run strPath
End Sub
Sub test3()
strPath = ThisWorkbook.Path & "\test.xlsx"
ActiveWorkbook.FollowHyperlink strPath
End Sub