Ошибка 1004: ошибка, определяемая приложением или объект-ошибка. Excel

У меня есть sub в Excel 2010, который копирует информацию в ячейки. Когда я пытаюсь запустить его, я получаю «определенную приложением или объектную ошибку»:

With Worksheets("Parameters") .Range(.Cells(line + 3, amountCol), _ .Cells(line + 3, amountCol + 6)).Copy Destination:=amounts End With 

Это весь элемент до точки, где происходит ошибка.

 Dim numLine As Integer Dim line As Integer Dim allocationType As String Dim allocationRow As Integer Dim specialFund As Integer Dim amountCol As Integer Dim numCol As Integer Dim amounts As Range Dim i As Integer Dim costCol As Integer Dim alloCol As Integer Dim SFcol As Integer SFcol = 38 alloCol = 32 costCol = 34 'set number of allocation lines With Worksheets("Parameters") numLine = .Range(.Cells(3, 18), .Cells(3, 18).End(xlDown)).Count - 1 End With 'set allocation starting point allocationRow = 3 'set the amount starting columng With Worksheets("Parameters") numCol = .Range(.Cells(3, 18), .Cells(3, 18).End(xlToRight)).Count - 1 'look for the starting year For line = 1 To numCol If .Cells(3, 18 + line).Value = Worksheets(wks).Cells(2, costCol) Then amountCol = line + 18 Exit For End If Next line End With 'go through each line, if allocation, add For line = 1 To numLine With Worksheets("Parameters") allocationType = .Cells(3 + line, 18).Value End With 'check if needs to be included If InStr(allocationType, Worksheets("Parameters").Cells(6, 7).Value) Then With Worksheets(wks) 'format the type cell .Range(.Cells(allocationRow, alloCol), .Cells(allocationRow, alloCol + 1)).MergeCells = True .Range(.Cells(allocationRow, alloCol), .Cells(allocationRow, alloCol + 1)).HorizontalAlignment = xlLeft 'check if needs color If InStr(allocationType, "Roads") Then .Range(.Cells(allocationRow, alloCol), .Cells(allocationRow, alloCol + 1)).Interior.ColorIndex = 36 ElseIf InStr(allocationType, "Structures") Then .Range(.Cells(allocationRow, alloCol), .Cells(allocationRow, alloCol + 1)).Interior.ColorIndex = 34 Else 'check if special funding color For specialFund = 3 To Worksheets.Count - 2 If InStr(allocationType, Worksheets(specialFund).Name) Then .Range(.Cells(allocationRow, alloCol), .Cells(allocationRow, alloCol + 1)).Interior.ColorIndex = .Cells(2, SFcol + specialFund).Interior.ColorIndex End If Next End If 'add the allocation type .Range(.Cells(allocationRow, alloCol), .Cells(allocationRow, alloCol + 1)) = allocationType .Range(.Cells(allocationRow, alloCol), .Cells(allocationRow, alloCol + 1)).ShrinkToFit = True 'add the amounts range Set amounts = .Range(.Cells(allocationRow, costCol), .Cells(allocationRow, costCol + 6)) End With 'copy amounts With Worksheets("Parameters") .Range(.Cells(line + 3, amountCol), .Cells(line + 3, amountCol + 6)).Copy Destination:=amounts End With 

  • Код ошибки Excel 1004 - метод открытия рабочих книг объекта не выполнен
  • ObjWorkbook.Worksheets.Count не работает
  • Ошибка выполнения «9» при копировании рабочего листа в другую книгу
  • Недопустимый диапазон значений метода для листа объекта при вставке столбца
  • Что вызывает ошибку «Invalid advise flags» во время выполнения в Excel VBA?
  • Скопируйте серию ячеек на несколько листов, названных через ячейку
  • Отладка VBA отлично работает, но при запуске
  • Преобразовать строку с столбцами данных в столбец с несколькими строками (ERNOR)
  • Ошибка выполнения «9» при удалении модуля Excel VBA
  • Ошибка выполнения 6 - Переполнение, переменная, заданная как Long
  • Ошибка времени выполнения 91 - Excel vba из Access
  • Interesting Posts

    excel VBA возвращает результат функции

    как читать 09/09/2017 точно из xls используя php?

    VBA Excel: вставленный код в другую книгу не выполняет команду workbooks.open

    В Excel, как преобразовать HTML-текст в обычный текст в несколько ячеек

    Формула Excel обрабатывает числа в одной и той же ячейке по-разному

    Диапазон Excel, содержащий определенные значения

    цикл через ряд ячеек

    excel vba для повторного открытия файла excel без сохранения

    Excel VBA – использовать дату ввода пользователя (или использовать переменную) в формуле VBA R1C1

    VBA: поиск текста в текстовой ячейке и копия

    Объединить несколько строк в одну строку в Excel

    Сохранить документ Excel Apache POI

    используя excel vba, чтобы изменить значение выпадающего меню, которое после активации и заполнения второго выпадающего меню

    Можно ли увеличить предел 256 символов в раскрывающихся списках проверки правильности выбора?

    Vba, Excel, Изменение базы калькуляции в выпадающем списке и очистка ячейки, когда другие пустые

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