'***** メッセージ表示・非表示 ***** Application.DisplayAlerts = False 'メッセージ非表示 Application.DisplayAlerts = True 'メッセージ表示に戻す '--------------------------------------------------------- '***** ファイルOpen・Close ***** 'ファイルOpen Workbooks.Open exl_Path & FileName 'ファイルOpen 'ファイルClose Application.DisplayAlerts = False 'メッセージ非表示 Workbooks(FileName & ".xls").Close 'ファイルClose Application.DisplayAlerts = True 'メッセージ表示に戻す