excel - 在打开文件名错误的 Excel 工作簿时返回消息而不是错误

Question

在 excel 宏中，我有一个打开外部工作簿的命令:

 Workbooks.Open (directory & filename), ReadOnly:=True

我希望在文件名不存在或与宏中指定的名称不同的情况下，向用户显示带有自定义消息的消息框(即“文件名不存在或具有不同的名称”) ，而是定义的应用程序错误:

“`运行时错误 1004...Microsoft Excel 无法访问....”

我怎样才能归档这个？

Answer 1

您可以使用 来测试文件是否存在。目录()

Sub OpenTester()
    Dim v As String
    directory = "C:\TestFolder\"
    fiilename = "ABZ.xls"
    v = directory & fiilename

    If Dir(v) = "" Then
        MsgBox "Warning Will Robinson, warning!"
    Else
        Workbooks.Open (v), ReadOnly:=True
    End If
End Sub