尝试从 VBA 中的外部 Excel 工作表中提取动态数组时出现运行时错误 438

问题描述

我正在从一个 excel 文件运行我的代码，该文件旨在从一堆其他 excel 文件中聚合数据。我想从名为“已接收案例”的 excel 文件中提取一个数组，但出现运行时错误 438：对象不支持此属性或方法。

Dim srcWarehouse As Workbook
'Storing the worksheet with my desired data as a variable with the object type workbook'
Set srcWarehouse = Workbooks.Open("C:\Users\christian.pignaTaro\Documents\Timeline Accuracy project\Cases Received 2021.xlsx",True,True)


Dim numbers() As Integer,size As Integer,i As Integer

'This next line is the line that throws the error it is intended to use the worksheet function
'CountA to count the length of the array since the size of the listed data on the Cases 
'Received workbook will change each month
size = srcWarehouse.Worksheets("Sheet1").WorksheetFunction.CountA(Worksheets(1).Columns(1))

ReDim numbers(size)
For i = 1 To size
    numbers(i) = srcWarehouse.Worksheets("Sheet1").Cells(i,1).Value
Next i

MsgBox numbers(size)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）