爲什麼這個shell代碼不工作？

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 

也許我只是累了，但我沒有看到它爲什麼不工作。我一直在玩弄它一段時間。

我使用Autodesk Inventor 2011 ...運行它通過VBA編輯器的時間提前

感謝， 賈靜雯

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

編輯1，到目前爲止已經嘗試過：

（從評論的幫助）

-setting從模式到模式的（沒有任何反應）

-double單擊該文件，以確保它打開（它）

-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」。