vb6 关闭指定的工作簿的代码如何写？

有5个按钮，
一个打开某A,B,C文档，一个关闭A,B,C文档（求代码）
一个打开某F文档，一个关闭F文档（求代码）
一个关闭所有打开的文档（求代码）

打开的没问题，关闭的代码怎么都不行

Private Sub Command1_Click()
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类

If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '没有开打，则创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("\\D\A.xlsx")      
Set xlBook = xlApp.Workbooks.Open("\\D\B.xlsx")
Set xlBook = xlApp.Workbooks.Open("\\D\C.xlsx")

过程。。。

End Sub

Private Sub Command2_Click()

On Error Resume Next
    xlBook.Close '关闭工作簿
    xlApp.Quit  '退出EXCEL
End Sub

关闭按键没有作用