エクセル VBA ファイル・フォルダの存在確認
VBAにて、ファイルもしくはフォルダのある無しを判別する方法です。
--ファイルの判別
Dim FileExist, File_Path As String
File_Path = "D:\tmp\test.txt"
FileExixt = Dir(File_Path)
D:\tmp\test.txtが存在する場合、FileExitにはファイルのパスが代入されます。
ファイルが存在しない場合は空白("")が代入されます。
例)
Dim File_Path as String
File_Path = "D:\tmp\test.txt"
If Dir(File_Path) = "" Then
Goto Label1 'ファイルが存在しない場合
Else
'*** 処理 *** 'ファイルが存在する場合
End if
Label1:
'*** 別処理 ***
--フォルダ(ディレクトリ)の場合
Dim DirectoryExist, DirectoryPath As String
DirecrotyPath = D:\tmp
DirectoryExist = Dir(DirectoryPath, vbDirectory)
ファイルの場合と同じように、D:\tmpが存在する場合、DirectoryExistには
フォルダのパスが代入され、フォルダが存在しない場合は空白("")が
代入されます。
これらを使うと、ある特定のファイルを開こうとした際に、ファイルが
存在するかしないかの判別を行い、エラーを回避することができます。
(*開こうとするファイルが存在しない場合、エラーでプログラムが
止まってしまいます)
--参考ページ
http://www.k1simplify.com/vba/tipsleaf/leaf243.html
「VBA」カテゴリの記事
- エクセル VBA 範囲指定(2009.10.16)
- エクセル VBA プリンタを指定して印刷(2009.04.24)
- エクセル VBA ピポットテーブルを作成(2009.04.17)
- エクセル VBA ファイル・フォルダの存在確認(2009.04.16)
- Excel VBA Tips (1)(2009.04.15)
「Excel」カテゴリの記事
- エクセル 文字列操作(2010.02.18)
- エクセル VBA ピポットテーブルを作成(2009.04.17)
- エクセル VBA ファイル・フォルダの存在確認(2009.04.16)
- Excel VBA Tips (1)(2009.04.15)
- Excel 翌月の指定日が土日・祝祭日だったら(2008.09.01)
The comments to this entry are closed.
Comments