各位网友好，现有一EXCEL文件，想在VB中打开。在打开前，先判断是否已打开，如已打开，先手工关闭，再用程序打开。有如下代码
Dim xlapp As Object
Dim xlbook As Object
Dim xlsheet As Object

'先判断课表检测板是否打开，如已打开要手工关闭，然后再次启动程序
Set xlapp = CreateObject("Excel.Application") '判断是否打开
    Set xlbook = xlapp.Workbooks.Open(App.Path & "\实验.xls")
   xlapp.Visible = False
    xlapp.DisplayAlerts = False '取消Excel消息框
    Set xlsheet = xlbook.Worksheets("实验")   
    If xlbook.ReadOnly = True Then '这行主要判断是否已打开，判断是ture那么就是已经打开的。。
        'excel1.DisplayAlerts = False
        xlbook.Close (True) '关闭工作簿
        xlapp.Quit
        Set xlapp = Nothing '释放xlApp对象
        MsgBox "你已经打开了“实验.xls”文件" & Chr(13) & "请关闭原有的“实验.xls”文件", vbOKOnly, "错误提示"
       Exit Sub
     Else
        xlbook.Close (True) '关闭工作簿
        xlapp.Quit
        Set xlapp = Nothing '释放xlApp对象
    End If
Set xlapp = CreateObject("Excel.Application") '创建EXCEL应用类
Set xlbook = xlapp.Workbooks.Open(App.Path & "\实验.xls")
Set xlsheet = xlbook.Worksheets("实验")
xlapp.Visible = True
在判断过程中，是用程序打开了一下，如是只读，说明已打开，提示，提示后把用程序打开的关闭。代码中有xlbook.Close (True) ，这是保存后关闭。我想是打开的，应是不能保存的吧，是不是把这代码需改一下，改成不保存关闭。请问是不是如此。如是，请指导代码。
谢谢

[ 本帖最后由 燕之峰 于 2014-9-27 14:53 编辑 ]