機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > VBAのエラー

ファイルが見つかりません



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のエラーが発生します。



このエントリーをはてなブックマークに追加