vba - Excel VBA 打开文件(错误处理)

Question

我试图解释用户找不到要打开的文件的情况:

Dim fn As String
fn = Application.GetOpenFilename("All Files,.", 1, "Select a file", , False)

If fn = False Then
    Exit Sub
End If

当未选择文件时，这可以满足我的要求。

但是当用户确实选择了一个文件时，这个 If 语句会产生一个错误。谁能告诉我完成此任务的正确方法？

Answer 1

如果您查看 Excel 的内置帮助，您会注意到 Application.GetOpenFilename返回一个变体。所以你所要做的就是声明fn如Variant ,

Sub Sample()
    Dim fn As Variant

    fn = Application.GetOpenFilename("All Files,.", 1, "Select a file", , False)

    If fn = False Then Exit Sub

    MsgBox fn
End Sub