Хранить файлы в массиве

Question

Я пытаюсь открыть все файлы *.xlsx в указанной папке и сохранить файлы в массиве.

Мой код выглядит следующим образом

Dim Files() As Workbook 
ReDim Files(Count) 

File = Dir(Path & "\*.xlsx") 
Count = 0 

Do While File <> "" 
    Set Files(Count) = Workbooks.Open(Path & File, , True) 
    Count = Count + 1 
    File = Dir() 
Loop 

код, кажется, работает, однако, когда я запускаю его во второй раз (снова нажав кнопку запуска), я получаю номер ошибки 13.

Отладка кода я отслеживал проблему линии

Set Files(Count) = Workbooks.Open(Path & File, , True) 

Как я неопытный с VBA Я предполагаю, что я не сделал это правильный путь ...

Что было бы предпочтительным способом хранения файлов для всех файлов в определенной папке в массиве?

Answer 1

Код должен быть:

Dim Files() As Workbook 
Dim Count As Integer 
ReDim Files(Count) 

File = Dir(Path & "\*.xlsx") 
Count = 0 

Do While File <> "" 
    ReDim Preserve Files(Count) 
    Set Files(Count) = Workbooks.Open(Path & File, , True) 
    Count = Count + 1 
    File = Dir() 
Loop 

Вы должны Redim своего массива. Сохранение хранит существующие данные.

Answer 2

вы упускаете путь сепаратор

Set Files(Count) = Workbooks.Open(Path & "\" & File, , True)