Filehandles im Array speichern

Question

Ich versuche, alle *.xlsx Dateien in einem angegebenen Ordner zu öffnen und die Dateihandles in einem Array zu speichern.

Mein Code sieht wie folgt aus

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 

Der Code scheint zu funktionieren, aber wenn ich es ein zweites Mal (Schlagen der Lauf-Taste erneut) laufen, bekomme ich eine Fehlernummer 13.

Debuggen den Code aufgespürt ich das Problem mit der Leitung

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

Als ich mit vba unerfahren bin ich denke, ich habe dies den richtigen Weg nicht ...

Was wäre eine bevorzugte Methode zum Speichern von Dateihandles in allen Dateien in einem bestimmten Ordner in einem Array? sein

Answer 1

sollte der Code:

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 

Sie benötigen Array REDIM. Preserve behält die vorhandenen Daten bei.

Answer 2

Sie Pfadtrenn

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