[解決済み] VBAでファイルが存在するかどうかを確認する

質問

Sub test()

thesentence = InputBox("Type the filename with full extension", "Raw Data File")

Range("A1").Value = thesentence

If Dir("thesentence") <> "" Then
    MsgBox "File exists."
Else
    MsgBox "File doesn't exist."
End If

End Sub

この中で、入力ボックスからテキスト値をピックアップすると、うまくいきません。しかし、もし "the sentence" から、もし Dir() と入力し、コード内の実際の名前に置き換えると、動作します。誰か助けてくれませんか？

どのように解決するのですか？

あなたのコードには Dir("thesentence") であるべきところを Dir(thesentence) .

コードを次のように変更します。

Sub test()

thesentence = InputBox("Type the filename with full extension", "Raw Data File")

Range("A1").Value = thesentence

If Dir(thesentence) <> "" Then
    MsgBox "File exists."
Else
    MsgBox "File doesn't exist."
End If

End Sub