ファイルが見つかりません。(エラー番号：53)

---

Sub Sample1()
    Dim buf As String
    Open "C:\存在しないファイル.txt" For Input As #1
        Line Input #1, buf
    Close #1
    MsgBox buf
End Sub

Openステートメントで、指定するファイルモードにInputを指定したとき、開こうとしたファイルが存在しないと、このエラーが発生します。

ファイルモードに、Input以外のOutPut、Append、Binary、Randomを指定した場合は、存在しないファイルを指定すると、そのファイルが自動的に作成されます。

また、次のように、LoadPicture関数で存在しない画像を画像を読み込んだときも発生します。

Private Sub CommandButton1_Click()
    Image1.Picture = LoadPicture("C:\存在しない画像.jpg")
End Sub

ちなみにこの場合、画像ファイルが存在していても、画像形式が不適切だと、エラー番号481「ピクチャが不正です」のエラーが発生します。

「ピクチャが不正です」の解説

このように、関数やステートメントで存在しないファイルを指定すると、このエラーが発生しますが、メソッドの引数に指定したファイルが存在しないと、次のようなエラーが起こります。

Sub Sample2()
    Workbooks.Open "C:\存在しないブック.xls"
End Sub

Sub Sample3()
    ActiveSheet.Pictures.Insert "C:\存在しない画像.jpg"
End Sub

メソッドの引数に指定したファイルが存在しないと、1004のエラーが発生します。