关于一段代码其中一部分的原理咨询（把工作簿赋值给某个对象变量）

wjhhard

本人在书上看到有以下一段代码：
Sub CheckForFile()
    Dim FileName As String
    Dim x As Workbook
    FileName = "123.xlsx"
    On Error Resume Next
    Set x = Workbooks(FileName)
    If Err = 0 Then
        MsgBox FileName & "已经打开"
    Else
        MsgBox FileName & "未打开"
    End If
    On Error GoTo 0
End Sub

其中对代码“Set x = Workbooks(FileName)”的原理不是很理解，为什么如果文件“123.xlsx”文件没有打开就会表现是错误？打开了表示为正确？这段代码的原理是什么来的？求赐教（书上说“通过把工作簿赋值给某个对象变量，接下来的指令引用这个工作簿”，本人对这句话不是很理解）

wxhnr

Workbooks这个对象集合里仅仅只有已经打开的工作薄，就这么简单，未打开的可以用Set wb = Workbooks.Open(“c:\book1.xls”)赋值

changhong8

这个是利用是否产生错误判断是否打开：
1、文件如果已打开，那么就是将文件赋给x变量，程序可以正常运行，不产生错误（Err的错误号为0代表未发生错误）；
2、文件如果没打开，那么在set x这一句就会产生错误（Err有错误号），如果上面没有on error resume next这一句的话，程序到这里就会出错暂停。因为前面有了on error resume next这一句，程序可以继续往下执行（此时Err错误号不为0），就可以根据错误号判定on error resume next之后的语句出错了，这个情况下只有set x语句会出错（出错原因实际要根据错误号判断），所以断定文件没有打开。

wjhhard

wxhnr 发表于 2019-12-8 04:38
Workbooks这个对象集合里仅仅只有已经打开的工作薄，就这么简单，未打开的可以用Set wb = Workbooks.Open( ...

明白，非常感谢