请教一个关于exe链接excel的问题

350977106

从网上看到一段代码，经测试，可以打开exe文件路径下的指定excel文件。我想把他修改成可以打开任意位置的任意文件，由我在窗口选择并打开，而不论exe文件本身在什么地方。其完整代码如下：
Private Sub Timer1_Timer()

    Dim Exl As Object ' 建立一个对象变量
    Set Exl = CreateObject("Excel.Application") ' 设置对象为Excel（你可以通过修改这里，实现用VB打开其他类型文件）
Exl.Workbooks.Open (App.Path & "\" & "test.xls")   ' 链接 EXCEL 文件
    Exl.Visible = True
    Unload Me

On Error Resume Next
If Command() <> "" Then
If VBA.Dir(Command()) <> "" Then
Kill Command() '删除本次运行遗留的临时XLS文件
Else
End
End If
Else
StopTime = StopTime + 1 '计时累加
If StopTime = 1 Then Unload Me: End '2秒后自动关闭退出
End If
End Sub


我主要想修改这条代码，Exl.Workbooks.Open (App.Path & "\" & "test.xls") 以达到我的要求

350977106

为什么没人答复呢？太简单了，不屑一顾。我是新手，真心求教大家！！！指向我的文档也可以，主要是我自己选择文件。