[已解决]跨文件夹多工作薄统计

安全网

grf1973 发表于 2016-3-18 14:30
需要搞那么大吗？还是溢出？

需要那么多行，运行还是溢出

安全网

grf1973 发表于 2016-3-18 14:30
需要搞那么大吗？还是溢出？

这个地方也运行出错

grf1973

可能调用共享文件夹会出错吧。没招了。

grf1973

反正我这边运行没什么问题。

安全网

Dim w(1 To 65536), s%
Sub 导入文件()
    Application.ScreenUpdating = False
    Dim wb As Workbook, Sht As Worksheet, xRng As Range
    arr = [a2:zz2]
    ReDim brr(1 To 65536, 1 To UBound(arr, 2))
    r = [a65536].End(3).Row + 1      '需要导入数据的起始行

红色的地方改了就提示    ReDim brr(1 To 65536, 1 To UBound(arr, 2))这句溢出，具体见附件

安全网

grf1973 发表于 2016-3-18 14:58
反正我这边运行没什么问题。

Dim w(1 To 65536), s% Sub 导入文件()     Application.ScreenUpdating = False     Dim wb As Workbook, Sht As Worksheet, xRng As Range     arr = [a2:zz2]     ReDim brr(1 To 65536, 1 To UBound(arr, 2))     r = [a65536].End(3).Row + 1      '需要导入数据的起始行 红色的地方改了就提示    ReDim brr(1 To 65536, 1 To UBound(arr, 2))这句溢出，具体见附件 Dim w(1 To 65536), s%能否解释下这句的含义

安全网

grf1973 发表于 2016-3-18 14:58
反正我这边运行没什么问题。

还有能否增加清除A2列以后的内容，