Ошибка выполнения 1004: не удалось вставить метод класса рабочей таблицы

Существует много информации об этой ошибке и о том, как исправить, но я пробовал так много из них, и ничего не сработало: см. Ниже проблему куска кода

Range("A1:K2").Select Selection.Copy Windows("EIL Depannage Register.xlsm").Activate Sheets("Raising Depannage").Select ActiveSheet.Unprotect Sheets("Import_Sheet").Select ActiveSheet.Unprotect Range("A1").Select Application.Wait (Now + TimeValue("00:00:10")) ActiveSheet.Paste <<<<<error happens at this line 

Ошибка в последней строке с .Paste.

Команды .Unprotect ваш .CutCopyMode поэтому практически нечего вставлять. Перед началом операции копирования и вставки вам нужно будет снять защиту листов.

 Dim ws As Worksheet Set ws = ActiveSheet Windows("EIL Depannage Register.xlsm").Activate With ActiveWorkbook .Worksheets("Raising Depannage").Unprotect With .Worksheets("Import_Sheet") .Unprotect ws.Range("A1:K2").Copy Destination:=.Range("A1") End With End With 

Мне не нравится использовать ActiveSheet для квалификации исходного листа, но ваш код не указал книгу или рабочий лист, и это оставило мне мало выбора.

Можете ли вы попробовать это так?

 Range("A1:K2").Copy Windows("EIL Depannage Register.xlsm").Activate Sheets("Raising Depannage").Unprotect Sheets("Import_Sheet").Unprotect Sheets("Import_Sheet").Range("A1").Paste 

Изменить: как это выглядит так:

 Dim wb As Workbook Dim ws As Worksheet set wb = activeworkbook set ws = activesheet Windows("EIL Depannage Register.xlsm").Activate Sheets("Raising Depannage").Unprotect Sheets("Import_Sheet").Unprotect wb.ws.Range("A1:K2").Copy Windows("EIL Depannage Register.xlsm").Activate Sheets("Import_Sheet").Range("A1").Paste 

Играйте немного, это должно сработать.

пытаться

 dim shSrc as worksheet dim shTarget as worksheet set shSrc =Workbooks("EIL Depannage Register.xlsm").Sheets("Raising Depannage") set shTarget =Workbooks("EIL Depannage Register.xlsm").Sheets("Raising Depannage") shSrc.unprotect shTarget.unprotect shSrc.Range("A1:K2").Copy shTarget. Range("A1").Paste shSrc.protect shTarget.protect set shsrc=nothing set shtarget=nothing` 

просто исправить источник и цель и проверить диапазоны

  • Первый код VBA: ошибка времени запуска поиска цели 1004
  • Ошибка выполнения 438 при импорте данных в Excel с защищенного веб-сайта с использованием VBA
  • Невозможно получить доступ к ячейкам в Sub из переданного в рабочем листе
  • Ошибка выполнения «1004» Метод «Диапазон» объекта «_Global» не удался - имена динамических таблиц, циклы, поиск между рабочими листами
  • Объект Var или с блоком не установлен VBA
  • Массивная версия генератора частичной перестановки в VBA Excel
  • Ошибка выполнения 1004 Документ не сохраняется при попытке сохранить файл с датой в имени файла
  • Ошибка времени выполнения «7»: Недостаточно памяти
  • Именованные диапазоны с использованием функции index / Match для возврата значений
  • Метод Диапазон объекта Глобальный не удалось
  • Аргумент VBA не является необязательной ошибкой userfrom listbox
  • Interesting Posts

    Как подключить Mongodb из Excel

    Использование индекса и соответствия для поиска по вертикали и по горизонтали

    Обновление определенного столбца, содержащего формулу Excel

    Изменение содержимого ячейки в зависимости от того, что уже в этой ячейке

    Excel Удаление строк с несколькими значениями

    Оптимизация массивов excel

    Копировать значения и формат в VBA macro excel

    Поиск нескольких значений в двух строках на нескольких столбцах Excel

    Создайте список дат и избегайте изменения переменной (ошибка VBA 91)

    Можно ли удалить подпись из тела электронной почты при импорте ее из Outlook в Excel с помощью VBA

    Чтение Excel в Delphi 5 с автоматизацией и Excel 2007

    Как удалить предупреждение в Excel с помощью apache poi в JAVA?

    NPOI Редактирование файлов Excel с сводными таблицами и динамическими диаграммами

    Excel Считайте количество раз в диапазоне, что ячейки в столбце A меньше, чем соответствующая ячейка в столбце B

    Почему случайный ноль появляется каждый раз, когда я запускаю этот макрос?

    Давайте будем гением компьютера.