< スポンサーリンク >

VBAで特定のブックを閉じる

いくつもExcelのブックを開いているときに特定のブックを閉じたいことがあります。

VBAでブックの名前で判断して閉じる方法を記録します。

 

「a.xlsm」「abc.xlsx」「def.xlsx」「ghi.xlsx」の4つのブックが開いているとします。

 

「abc.xlsx」のブックを閉じます。

Sub test1()
    Dim wb As Workbook
    For Each wb In Workbooks
      If wb.Name = "abc.xlsx" Then
        wb.Close
      End If
    Next
End Sub

 

拡張子がxlsxかxlsかわからない時の「abc」のブックを閉じます。

Sub test2()
    Dim wb As Workbook
    For Each wb In Workbooks
      If wb.Name Like "abc.*" Then
        wb.Close
      End If
    Next
End Sub

 

ブックの名前が「a」で始まるブックを閉じます。

Sub test3()
    Dim wb As Workbook
    For Each wb In Workbooks
      If wb.Name Like "a*" Then
        wb.Close
      End If
    Next
End Sub

 

ブックの名前の途中に「a」があるブックを閉じます。

Sub test4()
    Dim wb As Workbook
    For Each wb In Workbooks
      If wb.Name Like "*a*" Then
        wb.Close
      End If
    Next
End Sub

 

アクティブブック以外のブックを閉じます。

Sub test5()
    Dim wb As Workbook
    For Each wb In Workbooks
      If wb.Name <> ActiveWorkbook.Name Then
        wb.Close
      End If
    Next
End Sub

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ