Как сохранить все открытые книги Excel

Описание работы

Для того, чтобы сохранить выбранные книги в Excel необходимо:

1. Перейти на вкладку VBA-Excel (она будет доступна после установки).
2. Перейти в меню Диспетчеры и выбрать команду Диспетчер книг.
   
3. Отметить книги, которые необходимо сохранить и выбрать команду Сохранить выбранные.
   

Код на VBA

Ниже приведен код макроса. В цикле выполняется поиск выбранных книг и их сохранение.

Private Sub btn_SaveWb_Click()
    Dim i As Long
    For i = 0 To LBox_Wb.ListCount - 1
        If LBox_Wb.Selected(i) = True Then
            Workbooks(LBox_Wb.List(i, 1)).Save
        End If
    Next
End Sub