ブックを新規に作成する(フォルダに存在しなかった場合)
 フォルダ内に目的のブックが存在したら開き、存在しなかった場合は
新規に作成するという処理を行う場合は、On Errorステートメントを利用します。

 サンプルマクロでは、ブックを開く処理をした際に、Openエラーが発生したら
On Errorステートメントで指定された処理へ飛び、Addメソッドで新しいブックを
作成します。

 エラーが発生しなかったらエラー処理を行わずに処理を終了します。

Sub Sample()
   
   'ファイル操作の際、確認メッセージを出さない
   Application.DisplayAlerts = False
   'シートやブックの移動を表示しない
   Application.ScreenUpdating = False

   On Error GoTo Err_chek
   
   Workbooks.Open Filename:="C:\TEMP\TEST.xls", UpdateLinks:=0

   Exit Sub

Err_chek:

    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="C:\TEMP\TEST.xls"

End Sub

 Dir関数やFileSearchオブジェクトを使って、ブックがあるかどうかを
確認することもできます。

Excel97



戻る


Excel Word Access VBA! モーグ