求助，错误1004，程序定义或对象定义错误？？

idxod

Sub 合并门店月报()
Dim mypath As String, xlsname As String, mybookname As String
Dim wbk As Workbook
Dim i As Long
i = 4

mypath = ThisWorkbook.Path
mybookname = ThisWorkbook.Name
xlsname = Dir(mypath & "\" & "*.xl*")
Application.DisplayAlerts = False
Do While xlsname <> ""
    If xlsname <> ThisWorkbook.Name Then
        Set wbk = Workbooks.Open(mypath & "\" & xlsname)
        wbk.Worksheets("单号销售明细").Range("B1").Copy
        wbk.Worksheets("单号销售明细").Range("S3:S562").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        wbk.Worksheets("单号销售明细").Range("A1:S562").Copy

        ThisWorkbook.Activate
        Cells(i, 1).Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
'        i = ThisWorkbook.Range("A1048576").End(xlUp).EntireRow + 1
        i = i + 562
        wbk.Worksheets("单号销售明细").Range("B1").Select
        wbk.Close savechanges:=True

       ' xlsname = Dir
    End If
    xlsname = Dir
Loop
Application.DisplayAlerts = False
End Sub

qh8600

附件都没有，怎么测试啊