Excel 2010
Имеет место рандомная ошибка. Т.е. иногда возникает, иногда - нет.
"Run-time error '-2147417848 (80010108)'
Automation error. The object invoked has disconnected from its clients"
Если возникает, то дальнейший дебаг и запуск дает
"Run-time error '1004': Метод Insert класса Range завершен неверно"
Помогите пжл. В каком направлении искать. Спасибо.
Имеет место рандомная ошибка. Т.е. иногда возникает, иногда - нет.
"Run-time error '-2147417848 (80010108)'
Automation error. The object invoked has disconnected from its clients"
Если возникает, то дальнейший дебаг и запуск дает
"Run-time error '1004': Метод Insert класса Range завершен неверно"
Помогите пжл. В каком направлении искать. Спасибо.
| Код |
|---|
Sub addOp()
Dim Name As String
Name = Cells(5, 2)
Size = Cells(2, 2).Value
Avr = Cells(6, 2).Value
Eop = Cells(7, 2).Value
Sheets("tmpl").Copy Before:=Sheets(13)
Sheets("tmpl (2)").Name = Name
Sheets(Name).Visible = True
Sheets(Name).Select
Cells(3, 2) = Name
Cells(2, 1) = Size
Cells(1, 2) = Avr
Cells(2, 2) = Eop
'вставка в рублевый лист
Sheets("tmplFrur").Visible = True
Sheets("tmplFrur").Select
Range("B1:B147").Select
Selection.Copy
Sheets("resumeRur").Select
Range("C1").Select
Selection.Insert Shift:=xlToRight 'вот на этой строке вылетает ошибка. А иногда не вылетает.
Cells(1, 3) = Avr
Cells(2, 3) = Eop
Cells(3, 3) = Name
Columns("c:m").ColumnWidth = 12.5
Sheets("tmplFrur").Visible = False
Sheets("tmplFcur").Visible = False
Sheets(Name).Select
Range("b4").Select
Application.CutCopyMode = False
End Sub |
