ActiveSheet.Paste выдает ошибку времени выполнения «1004» во время работы, но при отладке проблем нет

Question

ActiveSheet.Paste выдает ошибку «1004», затем я пытаюсь ее отладить. Но при отладке ошибки нет. Как это происходит? Есть ли решение, рекомендация? Примечание. Все переменные определены как глобальные.

For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder(fileDirec).Files

    Set yeni = CreateObject("Excel.Application")

    yeni.Workbooks.Open fileDirec& dosya.Name

    Set s1 = yeni.Workbooks(dosya.Name).Sheets(1)

    s1.Range("a2:s" & s1.[a65536].End(3).Row).Copy

    sat = Range("a65536").End(3).Row

    Cells(sat + 1, "a").Select

    ActiveSheet.Paste

    yeni.CutCopyMode = False
    yeni.Quit

    Set yeni = Nothing
Next

Answer 1

создается впечатление, что вы копируете и задаете место для копирования

, но у вас нет заданного местоположения для выбора или, по крайней мере, какой лист.

возможно попробуйте;

thisworkbook.sheets("Sheet1").cells(1,1).value = thisworkbook.sheets("Sheet2").cells(1,1).value 'cells can be replaces with a range 

или альтернативный вариант:

with thisworkbook

sheets("Sheet1").copy 'insert a range if you have
sheets("Sheet2").pastespecial 

end with 

попытаться разделить задачи, которые необходимо выполнить, на назначенные листы или, возможно, рабочие тетради