在ACCESS中怎么打开并激活一个Excel工作薄？

网络蜘蛛

me.txtfile中是从filedialog中得到的完整路径，不会有错。
用workbooks.Open FileName:=Me.txtFile可以打开这个文件吗？
我试了一下，没有什么反应，甚至在windows系统中的任务管理器中都找不到打开的Excel文件。
但是在文件夹中双击这个文件，会提示这个文件已经打开，重新执行打开操作会造成前面所做的更改被放弃，是否重新打开这个文件。如果执行完workbooks.Open FileName:=Me.txtFile ，双击别的Excel文件，这个文件也会一起打开。
就好像这个打开操作只执行了一半，请问这是怎么回事？我的窗体弹出方式“是”，模式“是”，和这有关系吗？

ly

仅提供一些思路
后期绑定

Dim objExcel as Excel.Workbook
Set objExcel=GetObject(me.txtfile,“Excel.Sheet”）
objExcel.Application.visible=True
objExcel.Application.Windows(1).Viseble=True  ‘1 可以用文件名替代

网络蜘蛛

objExcel.Application.visible=True
这一句，问题解决。多谢多谢！

yanghua1900363

Private Sub Excel_Click()
Shell "EXCEL.EXE", vbMaximizedFocus  '执行Excel程序
End Sub