请大神帮我看下这段代码

小白要学vba

Sub lqxs()
    Dim mypath$, myName$, sh As Worksheet
    Dim i%, ad, nm, cel As Range
    Application.ScreenUpdating = False
    nm = Array("A304-X")
    ad = Array("C5：c17")
    For i = 0 To UBound(nm)
        Sheets(nm(i)).Range(ad(i)).ClearContents
    Next
    mypath = ThisWorkbook.Path & "\"
    myName = Dir(mypath & "*.xls?")
    Do While myName <> ""
        If InStr(myName, "报表--乡镇常规报表2019222") = 0 Then
            With GetObject(mypath & myName)
                For i = 0 To UBound(nm)
                    Set sh = .Sheets(nm(i))
                    With Sheets(nm(i))
                        For Each cel In sh.Range(ad(i))
                        If cel.Value <> "" Then
                            .Range(cel, Address) = .Range(cel.Address) + cel.Value
                            End If
                        Next
                    End With
                Next
                 .Close False
            End With
        End If
        myName = Dir
    Loop
    Application.ScreenUpdating = True
End Sub
这段代码是我从其他帖子里复制来的，自己做了更改，但是运行出错，请各位大神指点

小白要学vba

显示应用程序或者对象定义错误

小白要学vba

里面很多工作表，我就把用的到的提出来了

小白要学vba

  .Range(cel, Address) = .Range(cel.Address) + cel.Value
应该是这句不对，但是我不知道具体什么原因

小白要学vba

朱荣兴 发表于 2019-9-25 10:06
没有附件，怎么帮你测试代码？

老师，问题我自己找到了，但是现在又有个共性的问题，此工作簿包含到一个或多个可能不安全的外部源的链接，我在网上找了很多方法，试了都没用

dgenson

cel.address。你输成cel,address了