Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » vukula
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Рандомная ошибка. "Run-time error '-2147417848 (80010108)' Automation error. The object invoked has disconnected from its clients"
 
#
24.11.2015 09:09:05
вот что говорит микрософт
правда мне это не помогло
Изменено: vukula - 24.11.2015 09:09:47
 
Перейти    
Рандомная ошибка. "Run-time error '-2147417848 (80010108)' Automation error. The object invoked has disconnected from its clients"
 
#
23.11.2015 16:14:24
Спасибо за участие.
Минимизировал селекты, НО ошибка все равно вылетает.
Выявил следующую зависимость.
Файл сохраняется как шаблон эксель с поддержкой макросов.
Изначально Name забито как "2013" (т.е. год).
Если я открываю файл и запускаю макрос, не меняя Name, ошибка не вылетает.
Если открываю файл и ввожу первый отчетный период, отличный от сохраненного в шаблоне, например, 2014й, ошибка вылетает.
Файл вкладываю.
Изменено: vukula - 23.11.2015 17:20:59
 
Перейти    
Рандомная ошибка. "Run-time error '-2147417848 (80010108)' Automation error. The object invoked has disconnected from its clients"
 
#
23.11.2015 12:43:54
Цитата
CAHO написал: Пропишите нормальные пути к листам и ячейкам
Что Вы подразумеваете под "нормальными путями"?
Пример, в смысле "файл"?
 
Перейти    
Рандомная ошибка. "Run-time error '-2147417848 (80010108)' Automation error. The object invoked has disconnected from its clients"
 
#
23.11.2015 12:09:26
Excel 2010
Имеет место рандомная ошибка. Т.е. иногда возникает, иногда - нет.
"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
 
Перейти    
Страницы: 1
Наверх