UC知道vba关闭单个excel窗口
来源：百度知道 编辑：UC知道 时间：2024/06/06 14:41:28
请问各位大侠：如何使用VBA程序关闭单一excel对象
环境：2个excel:执行宏的macro.xls,被操作的a.xls
代码如下：
Dim ExcelObj As Object
Set ExcelObj = GetObject("a.xls")
'.....处理......
ExcelObj.Application.Quit
当运行到这里时，直接将整个excel关闭了，但我只想关闭a.xls，不想关闭macro.xls，有什么办法吗？
谢谢了
环境：2个excel:执行宏的macro.xls,被操作的a.xls
代码如下：
Dim ExcelObj As Object
Set ExcelObj = GetObject("a.xls")
'.....处理......
ExcelObj.Application.Quit
当运行到这里时，直接将整个excel关闭了，但我只想关闭a.xls，不想关闭macro.xls，有什么办法吗？
谢谢了
Public Sub test()
Dim ExcelObj As Object
Set ExcelObj = GetObject("a.xls")
'.....处理......
ExcelObj.Close False '不保存，直接关闭。
ExcelObj.Close true'保存，关闭。
ExcelObj.Close ’关闭前有提示消息框
End Sub
给了三种方式，请看注释。
就excel的一些操作录制的宏，仅供参考
Sub Macro1()
'
' Macro1 Macro
' 宏由 cnmhdzc录制，时间: 2009-2-20
'
'
Windows("Book2").Activate
ActiveWindow.Close '关闭book2
Workbooks.Add '创建新工作薄
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "8" '工作表改名
ChDir "C:\Documents and Settings\Administrator\桌面"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrator\桌面\1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecomme