プロが教えるわが家の防犯対策術!

こちらで教えて頂いたVBマクロですが更に改善しファイルが見つからないときはスルーして
次のステップにいくようにしたいのですが?教えてください。

Sub Macro5()
' Macro5 Macro
' マクロ記録日 : 2012/9/12
'
Dim myPath As String
myPath = ThisWorkbook.Path

Kill myPath & "\A.xls"
Kill myPath & "\B.xls"
Kill myPath & "\B.ex_"

End Sub

A 回答 (2件)

killを使う前に


on error resume next を宣言し
最後に
on error goto 0 としておく。
    • good
    • 5

VBA ネイティブな Dir 関数を使う。


または FilsSystemObject の FileExists 関数を使う。
http://officetanaka.net/excel/vba/filesystemobje …
    • good
    • 0
この回答へのお礼

早速のご回答ありがとうございます。すぐやってみます。

お礼日時:2012/09/14 12:56

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A