質問: UserForm2.ListBox1.List(UserForm2.ListBox1.ListIndex, 0) With CreateObject("Shell.Application") .shellexecute "\\gn\NB\ファイルライブラリー\契約書\" & open_file, vbNormalFocus End With ### 試したこと オフィス365およびエクセル2013の[ツール][参照設定]でVBA ProjectのMicrosoft ScriptingRuntimeに☑があること ### 補足情報(FW/ツールのバージョンなど)
回答: apiのshellexecute使ってもだめ? ``` Private Declare Function ShellExecute Lib "shell32" _ Alias "ShellExecuteA" ( _ ByVal Hwnd As Long, ByVal lpszOp As String, _ ByVal lpszFile As String, ByVal lpszParams As String, _ ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long Private Const SW_HIDE = 0 'ウィンドウ非表示 Private Const SW_SHOWNORMAL = 1 '通常の状態で開く Private Const SW_SHOWMINIMIZED = 2 'ウィンドウ最小化 Private Const SW_SHOWMAXIMIZED = 3 'ウィンドウ最大化 Private Const SW_SHOW = 5 'ウィンドウを現在の位置とサイズで表示 Private Const SW_RESTOR = 6 'ウィンドウを元の位置とサイズで表示 ' ファイル実行 Public Sub FileExecute(filePath As String) Call ShellExecute(0, vbNullString, filePath, vbNullString, vbNullString, 5) End Sub ' 実行はこんな感じ open_file = UserForm2.ListBox1.List(UserForm2.ListBox1.ListIndex, 0) FileExecute "\\gn\NB\ファイルライブラリー\契約書\" & open_file ```