VB如何关闭指定工作簿？

lidaoying6

注意下是VB，不是VBA，因为我的是VBA封装VB DLL的，我现在有一个1.XLS工作簿，还有好几个2.XLS/3.XLS，几个工作簿同时打开的情况下，我想通过点击按钮来关闭指定工作簿1.xls，但是现在用下面这段代码只能关闭当前活动工作簿，不能关闭指定的1.XLS

Private Sub Command_Click()
On Error Resume Next
    Dim xlApp As Object, xlbok As Object, xlsht As Object  '定义变量VBt
    Set xlApp = GetObject(, "Excel.Application")  '取得Excel实例
    Set xlbok = xlApp.ActiveWorkbook(1.xls)

  xlApp.close ‘只能关闭当前活动的
XLAPP.quit ’不能关闭指定的，只能关闭所以EXCEL
  Unload Me

End Sub

lidaoying6

求救，如何获取指定的1.xls工作表A1，和如何关闭指定工作簿1.xls，  因为会运行很多工作簿，如果不指定的话，就可能会读取到其他的工作簿A1的数据，而不是读取1.XLS工作簿的A1数据。请老师们指点！谢谢，感激不尽

正宗新手

workboos("1").activate
ActiveWindow.Close

lidaoying6

正宗新手 发表于 2015-7-21 08:50
workboos("1").activate
ActiveWindow.Close

xx 谢谢谢谢