UC知道VB关闭EXCEL
来源：百度知道 编辑：UC知道 时间：2024/05/26 09:53:53
我用COMMAND1打开的EXCEL文件,怎么用COMMAND2关闭这个文件?
我用这个打开的.
Private Sub Command2_Click()
Dim VBExcel As Excel.Application
Set VBExcel = CreateObject("Excel.Application")
With VBExcel
.Workbooks.Open "C:\11.XLS"
End With
如果是你这样,执行后会"实时错误'424': 要求对象.
不好意思.如能解决.再送你50分.
大哥，不行的，我一执行就那样。
我用这个打开的.
Private Sub Command2_Click()
Dim VBExcel As Excel.Application
Set VBExcel = CreateObject("Excel.Application")
With VBExcel
.Workbooks.Open "C:\11.XLS"
End With
如果是你这样,执行后会"实时错误'424': 要求对象.
不好意思.如能解决.再送你50分.
大哥，不行的，我一执行就那样。
如果是这样就关不了,因为你是在子程序里面声明的VBExce对象,属于局部对象,不能在外部操作.所以你要声明公共对象也就是在通用里面声明.
Dim VBExcel As Object
Private Sub Command1_Click()
Set VBExcel=CreateObject("Excel.Application")
With VBExcel
.Workbooks.Open "C:\11.XLS"
End With
end sub
Private Sub Command2_Click()
With VBExcel
.Workbooks.close
End With
VBExcel.Quit
Set VBExcel=Nothing
end sub
第一行改了一下,我电脑上试了没问题
我的代码除这之外就没有了,窗体上有两个按钮.
你不会只有一个吧,或者按钮名字你改了的吧.你不会连这都看不出来吧.