将文件句柄存储在数组中

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

您缺少路径分隔符

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

Answer 2

代码应该是：

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

您需要重新调整阵列。 Preserve 保留现有数据。