为什么这个shell代码不起作用？

Question

我在VBA工作。现在，我在UserForm3。有一个文本框显示用户定义的路径。

接下来我需要做的是实际打开文件。我试图使用shell，但它无法正常工作。谁知道为什么？

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，迄今为止所做的事情：

（来自评论的帮助）

- 从模态设置为无模式（没有任何反应）

- 双击文件以确保它打开（确实如此）

- 在单独的模块中输出文件并运行（没有任何反应）

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