他のExcelブックを一括保存して閉じる

 

Sub test()

      ’ 他のExcelブックを一括保存して閉じる

 

    Dim tgtBook As Workbook
    

    For Each tgtBook In Workbooks
        If tgtBook.Name <> ThisWorkbook.Name Then
            tgtBook.Close True
        End If
    Next tgtBook

 

End Sub

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る