vba 运行时有时提示：“运行时错误‘13’，类型不匹配”,有时没有,请指点

arter

宏是这样的：

Sub 名称()
    Dim arr, brr(), i
    arr = Range("A5:A" & [A666].End(3).Row)
    For i = 1 To UBound(arr)
        Set wb = Workbooks.Open(Filename:=ActiveWorkbook.Path & "\" & arr(i, 1) & ".xlsm", ReadOnly:=True)
        Set wb = GetObject(ActiveWorkbook.Path & "\" & arr(i, 1) & ".xlsm")
        ReDim Preserve brr(1 To UBound(arr), 1 To 1)
        brr(i, 1) = wb.Sheets("Deckblatt Blatt 1").Range("B5")
        wb.Close False
    Next
    Range("B5").Resize(UBound(brr), 1) = brr
End Sub
---------------------------------------------------------------------------------------------
Sub 批量()
    Dim arr, brr(), i
    arr = Range("A5:A" & [A666].End(3).Row)
    For i = 1 To UBound(arr)
        Set wb = Workbooks.Open(Filename:=ActiveWorkbook.Path & "\" & arr(i, 1) & ".xlsm", ReadOnly:=True)
        Set wb = GetObject(ActiveWorkbook.Path & "\" & arr(i, 1) & ".xlsm")
        ReDim Preserve brr(1 To UBound(arr), 1 To 1)
        brr(i, 1) = wb.Sheets("Deckblatt Blatt 1").Range("D10")
        wb.Close False
    Next
    Range("C5").Resize(UBound(brr), 1) = brr
End Sub


一个工作薄里像上面的宏有十个甚至更多，附图淡蓝色部分每一列是一个宏；我是把它们连起来运行。

有两个问题：
1、一个工作薄里引用几十个数据（附图淡蓝色部分），得好几分钟，跟不要说更多的数据了，太慢了，请高人指点，有无高招？

2、A列A5往下的数据是引用数据的源头（即每个单元格就是被引用单元格的文件名），我是采用粘贴的办法，上午还行，下午就不行了，也不知道怎么回事；但如果我用格式刷将“上午粘贴的单元格内容”的属性刷到钢粘贴的单元格后，再计算就没问题。
    我又用“常规”、“数值”、“文本”等来设置粘贴的单元格内容的属性，也不行。请高手指点。谢谢。

arter

补充下，有问题的地方见附图黄色部分

windy217

直接使用易语言实现你的要求很简单，何必搞VB，自寻苦恼！

bob411

windy217 发表于 2016-1-13 13:37
直接使用易语言实现你的要求很简单，何必搞VB，自寻苦恼！

发个易语言的代码上来学习下

bob411

楼主你的arr定义的是数组吗？应该是Dim arr()

arter

感谢楼上指点，这个宏能否帮我改下？我对宏还没入门，谢谢。

arter

补充：压缩文件里的两个宏完全一模一样，但一个可以、一个不可以。

fanatone

加上这个：

On Error Resume Next

看看会不不会影响结果。如多结果没有影响，就行。