VB关闭EXCEL

Question

我用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分.

大哥，不行的，我一执行就那样。

Answer 1

如果是这样就关不了,因为你是在子程序里面声明的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

第一行改了一下,我电脑上试了没问题
我的代码除这之外就没有了,窗体上有两个按钮.
你不会只有一个吧,或者按钮名字你改了的吧.你不会连这都看不出来吧.本回答被提问者采纳