| |
▼DIO さん：
特定のフォルダといいますか、同じフォルダに
必要なファイルがあるかどうかの存在チェックということです。
サンプルは特定のフォルダにしてますが、同じフォルダなら
存在してますしそこから該当のファイルがあるかだけなので
簡単な方法だと思いますよ。
因みに以下の感じです。
'サンプルはMaster.dataファイルがあるか存在チェック
Function MasterCheck() as Boolean
Dim bPath as Boolean
Dim strPath as String
bPath = False
'ActiveWorkbook.Pathが保存されているフォルダです
If (Right(ActiveWorkbook.Path,1) = "\") Then 'ドライブ直下対策
strPath = ActiveWorkbook.Path & "Master.data"
Else
strPath = ActiveWorkbook.Path & "\Master.data"
End If
'ファイルがあれば条件に入りTrueを返す。
If (Dir( strPath ) <> "") Then
bPath = True
End If
MasterCheck = bPath
End Function
'↓ここから実行
Sub Main()
'指定のファイルがなければマクロ終了
If MasterCheck() Then
Exit Sub
End If
'ここでマクロの実行
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
