【求助】菜鸟初学，跨工作簿复制内容

lanbaoshi54

1. Sub 汇总信息()
   
2.    m = 2
   
3.    i = 8
   
4.    Dim Xls
   
5.    Xls = Dir(ThisWorkbook.Path & "\*.xls") '指定要遍历excel文件的路径及文件类型
   
6.    Do While Xls <> ""
   
7.       Set Xls = Workbooks.Open(ThisWorkbook.Path & "" & Xls)  '打开excel文件
   
8.        '==========================
   
9.       '对时长申请表进行操作
   
10.       Dim info(5) As Variant
    
11.       
    
12.       Do While Cells(i, 1) <> 0
    
13.         i = i + 1
    
14.       Loop
    
15.       info(0) = Range("C4")
    
16.       info(1) = Range("C2")
    
17.       info(2) = Range("E2")
    
18.       info(3) = Range("C3")
    
19.       info(4) = Range("F3")
    
20.       info(5) = Range("F5")
    
21.       Range(Cells(8, 1), Cells(i - 1, 6)).Select
    
22.       Selection.Copy
    
23.       
    
24.       '取得当前工作簿中全部信息
    
25.       '============================
    
26.       '写入统计总表中
    
27.       
    
28.       ThisWorkbook.Activate
    
29.       Cells(m, 2).Select
    
30.       ActiveSheet.Paste
    
31.       Range(Cells(m, 8), Cells(i + m - 9, 8)) = info(0)
    
32.       Range(Cells(m, 9), Cells(i + m - 9, 9)) = info(1)
    
33.       Range(Cells(m, 10), Cells(i + m - 9, 10)) = info(2)
    
34.       Range(Cells(m, 11), Cells(i + m - 9, 11)) = info(3)
    
35.       Range(Cells(m, 12), Cells(i + m - 9, 12)) = info(4)
    
36.       Range(Cells(m, 13), Cells(i + m - 9, 13)) = info(5)
    
37.       Xls.Close 0
    
38.       Xls = Dir '下一个excel文件
    
39.    Loop
    
40.    Set Xls = Nothing '释放变量内存
    
41. End Sub

复制代码

在循环的时候出错了，进不去，这是为什么啊？求大神解答