Excel vba чтение большого количества файлов быстрее

Question

Я написал код, который находит все файлы, начинающиеся с определенного имени, и считывает данные из них, обычно в папке обычно находится 1k файлов или больше, я написал небольшой тест и понимаю, что мой код читает aprox 1 файл в секунду, и это очень много времени. Я новичок в vba, и мне было интересно, не ошибся ли я на этом? Код функции:

Function ReadDataFromWorksheet() 
Dim XL As Excel.Application 
Dim WBK As Excel.Workbook 
Dim i As Integer 

i = 1 

Set XL = CreateObject("Excel.Application") 

Do While i < (ArraySize + 1) 
    Set WBK = XL.Workbooks.Open("PATH TO FILE") 
    Array(i).Data1 = WBK.ActiveSheet.Range("F6").Value 
    WBK.Close SaveChanges:=False 
    i = i + 1 
Loop 

Set XL = Nothing 
End Function 

Извините за мой плохой орфографии ... и спасибо заранее за помощь!

Answer 1

Вот как вы должны использовать Dir:

Function ReadDataFromWorksheet() As Variant 

With Application 
    .EnableEvents = False 'stop executing this code until we are done 
    .DisplayAlerts = False 
    .ScreenUpdating = False 
    '.Calculation = xlCalculationManual 
End With 

Dim XL As Excel.Application 
Dim WBK As Excel.Workbook 
Dim FileName As String, _ 
    FolderPath As String, _ 
    Results() 
ReDim Results(0) 

On Error Resume Next 
Set XL = GetObject(, "Excel.Application") 
If Err.Number > 0 Then Set XL = CreateObject("Excel.Application") 
On Error GoTo 0 

FolderPath = "C:/test/" 
FileName = Dir(FolderPath & "*.xlsx") 

Do While FileName <> "" 
    Set WBK = XL.Workbooks.Open(FolderPath & FileName) 
    Results(UBound(Results)) = WBK.ActiveSheet.Range("F6").Value 
    WBK.Close SaveChanges:=False 
    ReDim Preserve Results(UBound(Results) + 1) 
    FileName = Dir 
Loop 
ReDim Preserve Results(UBound(Results) - 1) 

Set WBK = Nothing 
Set XL = Nothing 

With Application 
    .EnableEvents = True 
    .DisplayAlerts = True 
    .ScreenUpdating = True 
    '.Calculation = xlCalculationAutomatic 
End With 

ReadDataFromWorksheet = Results 
End Function