以下是判断指定的工作簿是否打开的代码
 On Error Resume Next
    Set wbk = Workbooks("e:\asd.xls")
    If Err.Number <> 0 Then
        MsgBox "没有打开"
    Else
        MsgBox "打开"
    '在此处加关闭("e:\asd.xls")的代码
    End If
Err.Clear

是人工打开的。

实在对不起2和3楼两位，1楼的代码可能是VBA的，所以把其用于VB6是不正确的，请各位用VB6的代码解决此问题。谢谢。

下载您提供的附件后：解压→打开”工程1.vbp“→“启动”→“刷新”或“关闭程序”，都不能对事先打开的一个工作簿起到关闭的作用，何因？

以下代码出错
Private Sub Command2_Click()
excel1.workbooks(List1.ListIndex + 1).Close            '关闭工作簿

Call rework
End Sub

成功！谢谢！

成功！谢谢!