Закройте все файлы в папке

Question

У меня есть следующий код, который открывает все файлы в указанной папке

Sub OpenFiles() 
    Dim MyFolder As String 
    Dim MyFile As String 
    MyFolder = "\\ILAFILESERVER\Public\Documents\Renewable Energy\FiTs\1 Planning Department\Marks Tracker\Quality Control Reports" 
    MyFile = Dir(MyFolder & "\*.xlsx") 

    Do While MyFile <> "" 
     Workbooks.Open Filename:=MyFolder & "\" & MyFile 
     MyFile = Dir 
    Loop 
End Sub 

Можно ли иметь такой же код, который закрывает все файлы в папке. Большое спасибо заранее за любую помощь, оказанную по этому вопросу.

Answer 1

Вам нужно, чтобы все они были открыты одновременно? Потому что в противном случае:

Sub OpenFiles() 
    Dim MyFolder As String 
    Dim MyFile As String 
    MyFolder = "\\ILAFILESERVER\Public\Documents\Renewable Energy\FiTs\1 Planning Department\Marks Tracker\Quality Control Reports" 
    MyFile = Dir(MyFolder & "\*.xlsx") 
    Dim wb As Workbook 

    Do While MyFile <> "" 
     Set wb = Workbooks.Open Filename:=MyFolder & "\" & MyFile 
     'Do stuff 
     wb.Close False 'The false will close without saving 
     MyFile = Dir 
    Loop 
End Sub 

Answer 2

Workbooks.Open вернет ссылку на указатель рабочей книги. Сохраните это в коллекции (используя Collection.Add), как только вы откроете книгу. Когда вы хотите закрыть все книги, выполните итерацию через коллекцию (используя для каждого) и закройте каждый элемент. Затем удалите все элементы из коллекции.

Answer 3

Попробуйте

Workbooks.Close

От базовой справочной документации Excel Визуальный:

Этот пример закрывает все открытые книги. Если в любой открытой книге есть изменения, Microsoft Excel отображает соответствующие подсказки и диалоговые окна для сохранения изменений.