| |
はじめまして。エクセル２０００で簡単なプログラムを作ってみているのですが、on error go to を使ったエラーの処理がうまくいかなくて困っています。
お力をお貸しいただければ幸いです。
以下のような感じなのですが・・・
sub test()
dim openfile
range("A1").activate
1:activecell.offset(1,0).activate
if activecell="" then
end
else
openfile=activecell.text
on error go to errmsg
Workbooks.Open Filename:="C:\ﾃﾞｽｸﾄｯﾌﾟ\" & openfaile & ".xls"
Range("B1") = "あ"
ActiveWorkbook.Save
ActiveWorkbook.Close
goto 1
end if
errmsg:
msgbox "残念！" & openfile & "は見つかりません"
GoTo 1
end sub
こんな感じです。
あるフォルダに、いくつかのファイルが入っていて、A1から下に向かってファイルの名前が書いてあります。
ファイルがそのフォルダに存在しないとき、エラーを感知してメッセージを表示して、再び go to で 1:から処理を続けるといった内容なのですが・・・。
１回目のエラーは思うように動作したのですが、２回目のエラーは感知せずに実行時エラー１００４というメッセージが表示されてしまいます。
どのようにしたら良いのでしょうか？ご教示ください。
|
|
こまったさん
- 05/4/25(月) 14:38 -
