Question

请大神帮忙改一段VB代码。避免同一EXCEL文件重复打开问题，希望能加进判断不重复打开柜体2.xlsb文件。

Option Explicit
Dim strDataPath As String
Dim xlApp As excel.Application
Dim xlBook As excel.Workbook
Dim xlSheet As excel.Worksheet

Private Sub Form_Load()
strDataPath = App.Path & "\Database\柜体2.xlsb"
If dir(strDataPath, vbDirectory) = "" Then
MsgBox "柜体数据不存在，请检查数据库路径", vbInformation, "数据库错误"
'Exit Function
End If

Set xlApp = CreateObject("Excel.Application")
'xlApp.DisplayAlerts = False
Set xlBook = xlApp.Workbooks.Open(strDataPath)
xlApp.Visible = False
'End Function
'End Function
End Sub
希望能判断“柜体.xlsb”文件是否以经打开，如果以经打开了，就不再重复打开，如果没打开就打开它。请大神帮忙把代码修改一下达到这个要求。谢谢，就10分全上了。
首先感谢 bdxbr 老师的热心解答，但是问题依旧，刚才试着给老师老私信但是百度验证码输入永远是错误的，只好做罢，另外还请大神们伸手指点，不胜感激……

Answer 1

Option Explicit
Dim strDataPath As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub Form_Load()
    On Error Resume Next '这一行新增
    strDataPath = App.Path & "\Database\柜体2.xlsb"
    If Dir(strDataPath, vbDirectory) = "" Then
        MsgBox "柜体数据不存在，请检查数据库路径", vbInformation, "数据库错误"
        'Exit Function
    End If
    s = Workbooks("柜体2.xlsb").Name '获取文件名
    Err.Number = 0
    If Err.Number <> 0 Then '如果发生错误,表示没有打开此文件
        Err.Number = 0
        Set xlApp = CreateObject("Excel.Application")
        'xlApp.DisplayAlerts = False
        Set xlBook = xlApp.Workbooks.Open(strDataPath)
        xlApp.Visible = False
    End If
'End Function
 'End Function
 End Sub

追问

现在出现这个问题，求解决

追答

哦，你的代码限制了变量必须先定义
在On error resume next
后另起一行，写上
Dim s as String

追问

您在吗？加上您这一行后，现在没有错误提示了，不过它打不开那个文件了。

追答

第一句Err.Number = 0
我放错位置了，把这句挪到
s = workbooks(...
前面一行

追问

吃完饭又照您说的试了一次，现在文件能打开了，但是判断这块出问题了，无法判断文件是是不是打开，跟以前一样了，每次都重新打开一个“柜体2..xlsb”，求老师一次搞定，要不没有分追问啦……

追答

'和VBA混乱了。。。-_-!
'没VB工具可以测试,重新修改了一下，应该可以
'追问还要用财富值吗？这个真不知道。不行可以发私信

Option Explicit
Dim strDataPath As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
 
Private Sub Form_Load()
    On Error Resume Next
    strDataPath = App.Path & "\Database\柜体2.xlsb"
    If Dir(strDataPath, vbDirectory) = "" Then
        MsgBox "柜体数据不存在，请检查数据库路径", vbInformation, "数据库错误"
        'Exit Function
    End If
    Set xlApp = New Excel.Application '这里更改试试
    xlApp.Visible = False
    Set xlBook = xlApp.Workbooks.Open(strDataPath)
    If xlApp.Workbooks("柜体2.xlsb").ReadOnly = True then
        xlApp.DisplayAlerts = False
        xlApp.Application.Quit
        xlApp.DisplayAlerts = True
    End If
    xlApp.Visible = True
'End Function
 'End Function
 End Sub

追问

刚刚去挣了点财富值，现在可以追问了，老师您好，我试了您的代码还是不行，不能判断文件的打开状态。刚刚给您发私信发不了，验证码总是对不上。好受伤。

追答

我也没辙了
http://bbs.csdn.net/topics/80028580
上面的链接你自己看看，这是另一种方法，这个应该是行得通，不过要和EXCEL的VBA功能相结合