이 셸 코드가 작동하지 않는 이유는 무엇입니까?

Question

저는 VBA에서 일하고 있습니다. 지금, 나는 UserForm3에있다. 사용자 정의 경로를 표시하는 텍스트 상자가 있습니다.

다음에해야 할 일은 실제로 파일을 열어주는 것입니다. 나는 쉘을 사용하려했지만 작동하지 않습니다. 왜 그런지 알아?

Private Sub Open_Button_Click() 

Dim myPath As String 
myPath = FileName.Text 'Gets the string, FileName, from module 1 
Dim shell As Object 
Set shell = CreateObject("Shell.Application") 
shell.Open myPath 

End Sub 

대체 버전, 그리고 내가 사용하는 것을 선호하려는 하나가 이것이다 :

어쩌면

Private Sub Open_Button_Click() 

Dim shell As Object 
Set shell = CreateObject("Shell.Application") 
shell.Open FileName 

End Sub 

난 그냥 피곤 해요,하지만 작동하지 않는 이유는 보이지 않아요 . 나는 잠시 그것과 함께 놀고 있었다.

내가

감사합니다 미리 VBA 편집기를 통해 실행 ...의 Autodesk Inventor 2011을 사용하고, 알리사

JPEG : http://i.stack.imgur.com/YkHfF.jpg

편집 1, 지금까지 시도한 것은 무엇입니까 :

모달에서 모델리스를 -setting

(주석 도움에서) (아무 반응이 없습니다)

- 더블 클릭 (는 않습니다)

에서 파일을 -putting이 열립니다 확인하기 위해 파일을 별도의 모듈 및 달리기 (아무 일도 일어나지 않음)

Answer 1

작성했습니다!

Private Sub Open_Button_Click() 

Dim myPath As String 
myPath = FileName.Text 'Gets the string, FileName, from module 1 
Dim Shell As Object 
Set Shell = CreateObject("Shell.Application") 
Shell.Open (myPath) 

End Sub 

방금 ​​Shell.Open 함수에 "myPath"를 묶었습니다.