Sub ボタン_Click() '画面を更新しないApplication.ScreenUpdating = False'確認メッセージを表示しないApplication.DisplayAlerts = False '現在のフォルダを取得Dim path As Stringpath = ActiveWorkbook.path 'イミディエイトウィンドウに表示Debug.Print…