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

Answer 2

関数はブール値を返しませんFalseが、文字列 "False"を返します。これは、関数から変数タイプにバリアントをキャストするため、テストは次のようになります。

If fn = "False" Then

（説明の変更-@SiddharthRoutに感謝）

Answer 3

変化する

If fn = False Then

に

If CStr(fn) = "False" Then