打开和关闭excel的指令为什么不执行
刘玉蓉
发布于2014-10-08 17:41
40
0
标签：
一段指令，打开excel和关闭excel的指令
1、可以执行的如下
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open "d:zmxexcelzzzmxzz.xls"
objExcelApp.Visible = False
‘open ""后台打开指定位置的excel文件，以上定义为打开的全局脚本
MsgBox 3
’以下定义为关闭的全局脚本
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End Sub
2、如果把打开和关闭分别定义为全局脚本调用，可以打开，但是关闭不了
open ‘后台打开指定位置的excel文件的全局脚本调用
MsgBox 3
close ’关闭excel文件的全局脚本调用
佳答案
我想你在关闭脚本里，没有获取当前打开的Excel对象
你可以在关闭脚本里使用GetObject(,“Excel.Application")获取当前打开的Excel对象，或者在打开脚本里使用DataSet把Excel对象传递，DataSet的使用可以参考论坛精华帖DataSet的妙用
