代码纠错

破晓星辰

今天做了一个小程序，将文件夹下多个excel文件中的内容统计到一个新表格中。
运行到红色那行的时候，总是提示如下。各位大侠能帮忙看下是什么问题吗  谢谢！

Sub tongji()
    Dim fname As String  '记录返回的文件名称
    Dim nrow As Integer  '记录统计表格第一个非空行行号
    Dim wk As Workbook

    fname = Dir(ThisWorkbook.Path & "\*.xls") '遍历整个文件夹，获取文件名称
    Do While fname <> ""
        nrow = Range("a1").CurrentRegion.Rows.Count + 1
        If fname <> ThisWorkbook.Name Then
            Set wk = GetObject(ThisWorkbook.Path & "\" & fname)   '对wk变量赋值
            wk.Worksheets(1).Range(Cells(2, 1), Cells(65536, 1).End(xlUp).End(xlToRight)).Copy Range("a" & nrow)    '将遍历的文件中A2单元格到使用区域最后一个单元格内容赋值到统计表格中
            wk.Close   
        End If
        fname = Dir
    Loop
End Sub

破晓星辰

朱荣兴 发表于 2015-9-22 16:07
也比知道你要拷贝的区域，只能猜猜看

哇塞，高手！解决了。为什么要加个.address呢？
平时用range和cells组合表示单元格的时候不加也能行啊。