一段指令，打开excel和关闭excel的指令
1、可以执行的如下
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open "d:\zmxexcelzz\zmxzz.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的妙用
提问者对于答案的评价：
谢谢，研究研究
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc264162.html
微信扫一扫 
支付宝扫一扫 