自动粘贴工作簿运行时出现错误怎么解决????

ggb

论坛里文件,我下载后运行该宏时,出现错误提示,不知怎么解决.求助!!!!!!!

ggb

Sub 材料汇总()
'

Rem:第一步，定义变量
Dim i As Integer
Rem:定义变量i为整数
Dim CK As String
Dim lj As String
Dim lm As String
Dim wj As String

Rem:定义Lj为打开的文件路径，为B1单元格中的字符串
For i = 1 To WorksheetFunction.CountA(Sheets("Sheet1").Range("A:A"))

Rem:设置循环次数为XX次，步长值为1，注：步长值为2次循环之间的值
     wj = Sheet1.Range("A" & i).Value
Rem:定义查找文件名行数j=i+1

  lj = Sheet1.Range("B1").Value
  lm = lj & "\" & wj & ".xlsx"
     CK = wj & ".xlsx"
    ChDir lj
    Rem:查找文件
    Workbooks.Open Filename:= _
    lm
    Rem:打开文件


   
    Call 处理全部数据复制
    Call 粘到全表
     Windows(CK).Activate
        
    Rem:第三步，关闭打开的工作表
    Dim ExcelObj As Object
    Set ExcelObj = Windows(CK)
    '.....处理......
    Windows(CK).Close False '不保存，直接关闭
    Rem:关闭文件
    Next i
End Sub

ggb

自己顶一下

ggb

Rem:查找文件
    Workbooks.Open Filename:= _
    lm
    Rem:打开文件


那位大师帮帮我,谢谢