Office中国论坛/Access中国论坛

标题: 在ACCESS中怎么打开并激活一个Excel工作薄？ [打印本页]

---

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

---

作者: ly    时间: 2013-4-1 14:45


仅提供一些思路
后期绑定

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

---

作者: 网络蜘蛛    时间: 2013-4-1 23:37
objExcel.Application.visible=True
这一句，问题解决。多谢多谢！

---

作者: yanghua1900363    时间: 2013-4-2 10:03
Private Sub Excel_Click()
Shell "EXCEL.EXE", vbMaximizedFocus  '执行Excel程序
End Sub

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3