Question

跪求一段VBA代码，工作薄重复打开屏蔽文件重复打开提示的代码

要实现的目的就是，当我用这个按钮打开一个固定文件时，如果这个文件以经打开了，也不出现：“文件以经打开，是否重新打开？ 是 / 否“ 种提示，而是直接重新打开。

Answer 1

怎么又是你，这个问题不是帮你解答过了么

http://zhidao.baidu.com/question/1638795134870620260.html?oldq=1

Sub ABC()
       
    If Not WbIsOpen("b.xlsx") Then Workbooks.Open ThisWorkbook.Path & "\b.xlsx"
     
    '.....继续剩余代码段
     
End Sub
Private Function WbIsOpen(v_WbName As String) As Boolean '判断指定的文件名是否打开
On Error Resume Next
    If Len(Workbooks(v_WbName).Name) > 0 Then WbIsOpen = IIf(Err.Number = 9, False, True)
End Function

保证要打开的b.xlsx和当前工作簿在同一个目录下

追问

先感谢老师的上一次解答， 现在很头疼的一个事情是，在一个工作薄里怎么区分两个ABC事件

追答

你把这个ABC换个名字不就行了么
你的2次要求其实都是差不多的，主要是判断一个工作簿是否打开
你完全可以按我给的私有函数WbIsOpen自己去发挥
完全不必照搬我的

追问

谢谢老师，我太笨了