NEW ARTICLE
Google Colaboratory コマンドパレットを開くショートカットキー
  1. HOME
  2. vba
  3. VBA EXCELファイルを保存して閉じる

VBA EXCELファイルを保存して閉じる

  • 作成日 2022.07.03
  • vba
VBA EXCELファイルを保存して閉じる

VBAで、EXCELファイルを保存して閉じるコードを記述してます。

目次

環境

  • OS windows10 64bit

EXCELファイルを保存して閉じる

EXCELファイルを保存して閉じるには、「Save」と「Close」を使用します。

適当なボタンを用意して、「test.xlsx」を削除する
以下のソースコードを記述します。

Private Sub CommandButton1_Click()

    Workbooks("test.xlsx").Save
    Workbooks("test.xlsx").Close
    
End Sub

実行してみます。

削除されていることが確認できます。

EXCELファイル存在確認

上記のコードだと、EXCELファイルが存在しなければエラーとなるため存在チェックしてから削除する場合は、以下のコードなります。

Private Sub CommandButton1_Click()

    Dim i As Long
    
    For i = 1 To Workbooks.Count
        If Workbooks(i).Name = "test.xlsx" Then
            Workbooks("test.xlsx").Save
            Workbooks("test.xlsx").Close
        End If
    Next i
    
End Sub

実行結果