Ошибка несоответствия типов '13' - Копирование объекта WorkSheet

Question

Я работаю с vba, чтобы заархивировать несколько рабочих листов в одну рабочую таблицу 'Archive DataBase'.У меня есть отдельная рабочая таблица «Архив», которая содержит названия листов для архивации.Я записал подпрограмму, которая должна выполнять процесс архивирования.Тем не менее я получаю ошибка времени выполнения «13» - несоответствие типов в строке 17 .Я обнаружил аналогичные проблемы VBA - ошибка несоответствия типов при попытке скопировать / вставить строку из одного листа в другой.Предоставленный код не сильно помог.

Sub ArchivetoDB()

    Dim Lrow As Integer
    Dim itr As Integer
    Dim db As Worksheet

    Set db = Worksheets("Archive DataBase")
    Lrow = Worksheets("Archive").Cells(Rows.Count, 1).End(xlUp).Row

    For itr = 2 To Lrow
        Application.CutCopyMode = True
        Worksheets("Archive").Select
        'Select Sheet Name to Archive
        Worksheets("Archive").Range("A" & itr).Select
        Worksheets(Selection.Value).Activate
        'Copy selected sheet
        Worksheets(Selection.Value).Cells.Copy
        'Paste sheet to Archive DataBase
        db.Paste
        DoEvents
        Application.CutCopyMode = False
    Next itr

End Sub

Answer 1

Теперь я могу понять, что вы хотите;в соответствии с вашими комментариями относительно всех рабочих листов в одной рабочей книге;Этот базовый код будет циклически проходить по каждому листу, кроме одного с именем «Архив», и помещать данные каждого листа в лист «Архива».

Dim ws As Worksheet, destSht As Range

Set destSht = ThisWorkbook.Sheets("Archive").[A1]

For Each ws In ThisWorkbook.Sheets
    If ws.Name <> "Archive" Then
        With ws.UsedRange
            .Offset(3).Resize(.Rows.Count - 3).Copy destSht
            Set destSht = destSht.Offset(.Rows.Count - 3)
        End With
    End If
Next ws