Копирование данных с одного рабочего листа на другой рабочий лист не работает

Question

Что у меня есть: Я копирую данные в один лист книги в другой лист книги, следуя коду VBA, который я записал. Когда я запускаю его, отображается ошибка приложения.

Workbooks(mainworkbook).Sheets(ws.Name).Range("A1").Value = Workbooks(dataworkbook).Sheets(ws.Name).Range(Cells(1, 1), Cells(clearrow, lcol1)).Value

Answer 1

Ячейки не полностью квалифицированы. Смотрите добавленные точки, они имеют огромное значение:

With Workbooks(dataworkbook).Sheets(ws.Name)
    Workbooks(mainworkbook).Sheets(ws.Name).Range("A1").Value = .Range(.Cells(1, 1), .Cells(clearrow, lcol1)).Value
End With

Похожие проблемы:

• Пошаговое выполнение дает другой результат, чем просто выполнение
• Переменная не сохраняется в коде при изменении листа