|
みなさんこんにちは。
ちゃっぴさんから頂いたヒントの「FileExists」を使った判定です。
Function 存在チェック(FLG As Boolean)
Dim SName As String
Dim FSO As Object
SName = "アントニオ馬場" & Format(Now(), "m月d日") & ".xls"
Set FSO = CreateObject("Scripting.FileSystemObject")
FLG = True
If FSO.FileExists(ActiveWorkbook.Path & "\" & SName) Then
If MsgBox("本日2回目の処理です。上書きしますか?", vbOKCancel) = vbCancel Then
FLG = False
End If
End If
Set FSO = Nothing
End Function
メインのモジュールから
Call 存在チェック(Chk) 'ChkはBoolean型
で呼び出して、戻り値:ChkがFalseなら
>Workbooks.Add
以下の処理を行わないのは如何でしょうか?
|
|