对指定文件夹下的指定工作簿的指定工作表进行操作

headtrain

已将下面的区域定义为CurrentRegion，使用3层With语句进行循环，为什么进行到第2层“With Workbooks(arr(i, 2)) ”时老是显示“下标越界”？请教DX，问题出在哪儿？非常感谢！

Dim arr
arr = Worksheets("表1").Range("A1").CurrentRegion  '设定当前区域
   For i = 1 To UBound(arr) '从当前区域的第1行开始，一直到最后一行
      With ThisWorkbook.Path & "\" & arr(i, 1)  '第1层With：文件夹
            With Workbooks(arr(i, 2))  '第2层With：工作簿
                Workbooks(arr(i, 2)).Activate  '先把工作簿激活
                With Worksheets(arr(i, 3))   '第3层With：工作表
                    Worksheets(arr(i, 3)).Activate  '先把工作表激活
                    …………
                     
                End With '第3层With
            End With '第2层With
        'End With  '第1层With

    Next

所在文件夹	工作簿	工作表
源文件	EWQ	速度
源文件	we	表n
源文件	文件n	表5
源文件	EWQ	Sheet2

headtrain

补充：
上表中所列出的几个工作簿都带上了扩展名，并且都在“\源文件”文件夹里，但代码还是显示“下标越界”，怎么解？

headtrain

在线等，有高手在吗？

chxw68

试试下面代码：

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim mypath$, myname$
   
5.   With Worksheets("sheet1")
   
6.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
7.     arr = .Range("a2:c" & r)
   
8.   End With
   
9.   For i = 1 To UBound(arr)
   
10.     myname = ThisWorkbook.Path & "" & arr(i, 1) & "" & ".xlsx"
    
11.     If Dir(myname) <> "" Then
    
12.       Set wb = GetObject(myname)
    
13.       With wb
    
14.         With .Worksheets(arr(i, 3))
    
15.         
    
16.         
    
17.         End With
    
18.         .Close False
    
19.       End With
    
20.     End If
    
21.   Next
    
22.       
    
23. End Sub
    

复制代码

skyzxh

搞那么复杂？直接把前2列的组合在一起，直接打开，在第3列的表里取数不就行了？

headtrain

chxw68 发表于 2017-2-26 10:48
试试下面代码：

谢谢chxw68，我先学习消化一下

wang-way

使用工作簿和工作表前，不是非要激活的。效率低。