Vba excel automation error вызванный объект был отключен от клиентов

Ошибка автоматизации Excel VBA: вызванный объект отключился от своих клиентов

Я знаю, что видел ссылки на эту проблему раньше, но я пробовал несколько предложений, и я все еще получаю ошибку. У меня есть книга, которая собирает данные из другой книги и создает отчет. Затем я хочу создать новую книгу, скопировать информацию отчет в новую книгу, сохранить книгу и закрыть ее, а затем перейти к следующему докладу. Он должен сделать это около 10 раз. В той части моего кода, где я копирую и вставляю листы, я получаю ошибку

ошибка -2147417848 ошибка автоматизации вызываемый объект имеет отключен от своих клиентов

Я проверил другие сообщения об этой ошибке и попробовал предлагаемые решения без каких-либо результатов. интересно, что иногда он будет делать это через 5 циклов кода до взлома, иногда только 2. Единственная согласованность заключается в том, что он всегда ломается в одном и том же месте

fromBook.Листы («Отчет»).Копировать Перед:=newBook.Sheets(«Лист1»)

У меня есть опция Explicit в верхней части модуля, и я проверил, чтобы убедиться, что нет никаких глобальных переменных внутри суб это взлом. Тем не менее, вполне возможно, что я что-то упустил. Я также поставил «таймер» в один момент, чтобы убедиться, что листы excel не перешагивают друг через друга.

Мне действительно нужна помощь!

вот код моей подлодке:

6 ответов

у меня была эта проблема на нескольких проектах преобразования Excel 2000 в 2010. Вот что я нашел, что, похоже, работает. Я сделал два изменения, но не уверен, что вызвало успех:

1) я изменил, как я закрыл и сохранил файл (из close & save = true, чтобы сохранить как то же имя файла и закрыть файл:

2 )я вернулся и искал все.диапазон в коде и убедился, что это полная конструкция..

или (не 100% уверен, что это правильный синтаксис, но это «усилие», которое я сделал)

Я только что встретил эту проблему сегодня: я перенес свой проект Excel из Office 2007 в 2010. В определенный момент, когда мой макрос попытался вставить новую строку (например, ), то же сообщение об ошибке. Это происходит только тогда, когда ранее был отредактирован другой лист (мой макрос переключается на другой лист).

благодаря Google и вашему обсуждению я нашел следующее решение (на основе ответа, данного «красным» в ответ на Jul 30 ‘ 13 в 0: 27): после переключения на лист a Ячейка должна быть отредактирована перед вставкой новой строки. Я добавил следующий код:

«B1″можно заменить любой ячейкой на листе.

вы должны были использовать объект, отпустить его («отключить») и использовать его снова. Отпустите объект только после того, как вы закончите с ним, или при вызове Form_Closing .

У меня была такая же проблема в большой электронной таблице Excel 2000 с сотнями строк кода. Мое решение состояло в том, чтобы сделать рабочий лист активным в начале класса. И. Е. Файл Thisworkbook.Рабочие Листы («WorkSheetName»).Активировать Это было, наконец, обнаружено, когда я заметил, что если «WorkSheetName» был активен при запуске операции (кода), ошибка не произошла. Какое-то время я сходил с ума.

пару вещей, чтобы попробовать.

прокомментируйте вторую строку кода» Set NewBook».

У вас уже есть ссылка на книгу.

Сделайте ваши SaveAs после копирования листов.

ошибка в приведенной ниже строке кода (как указано запросчиком-William) обусловлена следующей причиной:

Источник

Вызванный объект отключился от своих клиентов [Fix]

Вызванный объект отключился от своих клиентов . Ошибка может быть довольно раздражающей, поскольку она не позволит вам получить доступ к вашим файлам. Если вы когда-либо сталкивались с этой ужасной ошибкой при попытке открыть ваши аудио и видео файлы в Windows 10, то вы знаете, как это происходит.

Все, что вам нужно, – чтобы Windows нормально воспроизводила видеофайлы и открывала выбранную фотографию после двойного щелчка по ней, но независимо от того, что вы делаете, ситуация сохраняется? Вы обеспокоены тем, что могли потерять свои файлы навсегда? Это, безусловно, не так, и в этой статье мы рассмотрим некоторые из лучших способов решения этой проблемы. Читай дальше, чтобы узнать больше.

Как я могу исправить вызванный объект отключился от ошибки клиента?

Изменить свойства файла
Использовать средство проверки системных файлов
Восстановить установку Windows 10

1. Измените свойства файла

В этом примере мы будем предполагать, что файлы, которые не могут быть открыты, являются файлами изображений (он работает с файлами любого типа одинаково).
Откройте папку, в которой хранятся ваши фотографии.
Нажмите правой кнопкой мыши на одной из фотографий и выберите Свойства.
Откроется окно Свойства .
На вкладке Общие рядом с ней находится раздел Открывается с помощью и кнопка Изменить .
Нажмите кнопку Изменить , после чего появится новое окно, в котором вы сможете выбрать программу с жесткого диска или из Магазина Windows.
Нажмите “Применить” и “ОК” .
Теперь фотографии должны открываться без проблем.

Примечание. . Если проблема не устранена, вы можете попробовать другие варианты программного обеспечения из магазина WindowsStore, а если все они не пройдены, вы можете попробовать следующие 2 решения.

2. Используйте проверку системных файлов

Нажмите кнопку Пуск и найдите папку Система Windows .
Откройте его и щелкните правой кнопкой мыши в Командная строка> Еще> и выберите в меню Запуск от имени администратора.
После открытия командной строки введите cd и нажмите Enter .
Введите sfc/scannow и снова нажмите Enter .
После завершения процесса введите выход>, нажмите Enter и перезагрузите компьютер.

3. Восстановить установку Windows 10

Либо смонтируйте файл Windows ISO на свой ПК, либо вставьте физический установочный компакт-диск/DVD-диск Windows в компакт-диск/DVD-диск.
Это откроет меню установки Windows.
Выберите параметр Обновить , чтобы не потерять личные файлы, настройки и приложения.
Вам не понадобится ключ продукта, так как активация будет выполнена автоматически.

Мы надеемся, что решения, представленные в этой статье, решили вашу проблему с ошибкой Вызванный объект отключился от своих клиентов . По сообщениям, пользователи решили проблему, просто попробовав первое решение, но если это не помогло, у вас все еще есть два полезных варианта.

Пожалуйста, не стесняйтесь сообщить нам, помогло ли вам это руководство, используя раздел комментариев, найденный ниже.

Источник

Вызванный объект отключился от своих клиентов

При входе в Windows 10 или при попытке открыть какой-либо файл (например, видео, фотографии, музыку, документы Word и электронные таблицы Excel) определенного типа на вашем устройстве с Windows 10 может появиться сообщение об ошибке. Вызванный объект отключился от своих клиентов.. Некоторые затронутые пользователи даже видят это сообщение об ошибке при попытке запустить определенные приложения или программы. В этом посте мы предложим наиболее подходящие решения, которые вы можете попробовать, чтобы успешно решить проблему.

Вызванный объект отключился от своих клиентов.

Всякий раз, когда вы получаете это сообщение об ошибке в Windows 10, это просто означает, что конкретная программа, назначенная для открытия файлов определенного типа, не может этого сделать. Предмет относится к конкретному приложению на вашем компьютере, которое вы выбрали для открытия файла, который вы пытаетесь открыть. Его клиенты естественно относится к этому типу файлов. Таким образом, все сообщение об ошибке сообщает вам, что файлы нельзя открыть, потому что связанная с ними программа была отключена по какой-то причине.

Другие пользователи видят эту ошибку, когда пытаются сохранить свои файлы, особенно документы Word и Excel. Появляется сообщение, и файл не может быть сохранен. Сообщение выглядит так:

Вызванный объект отключился от своих клиентов

Если вы столкнулись с этой проблемой, в зависимости от сценария, это происходит во время входа в Windows 10 или при открытии файлов. вы можете попробовать наши рекомендуемые решения в разделах ниже в произвольном порядке и посмотреть, поможет ли это решить проблему.

Вызванный объект отключился от своих клиентов при входе в Windows 10.

Без возможности загрузки Windows 10 на рабочий стол устранить неполадки гораздо сложнее. Однако есть эффективные способы избавиться от этой ошибки и восстановить доступ к вашему компьютеру.

1]Выполните восстановление системы

Это может произойти, если вы недавно выполнили обновление или установили более новую версию компонента Windows или приложения. Вы можете попробовать выполнить восстановление системы, чтобы узнать, решит ли это проблему.

2]Включить безопасную загрузку и защиту устройства

Наряду с такими функциями, как Device Guard и Secure Boot, Windows 10 более безопасна, чем любая из предыдущих операционных систем Windows.

Это решение требует, чтобы вы загрузили компьютер с Windows 10 с включенной безопасной загрузкой. При запуске эта функция предотвращает загрузку потенциально вредоносных приложений, неподписанных драйверов и неавторизованных EXE-файлов при запуске Windows. Если одна из них вызывает ошибку, которую вы получаете, использование безопасной загрузки должно заставить ее исчезнуть.

Выключите компьютер.
Включите ваш компьютер.

На первом экране вы видите, когда ваш компьютер загружается, нажмите назначенную клавишу на клавиатуре, чтобы войти в BIOS / UEFI компьютера. Эта назначенная клавиша варьируется от одного производителя компьютера к другому, но всегда будет указана на первом экране, отображаемом компьютером при загрузке, поэтому вы можете увидеть, какую клавишу нужно нажать на этом экране, если вы еще не знаете.

Как только вы войдете в BIOS компьютера, перейдите к Безопасность таб.
Найдите Безопасная загрузка вариант в Безопасность вкладку и выберите ее.
Убедитесь, что Безопасная загрузка вариант включено.
Вернитесь к Безопасность вкладку, найдите и выберите Защита устройства вариант.
Убедитесь, что Защита устройства вариант также включено.
Сохранять изменения, которые вы внесли в BIOS компьютера и выход Это.

После этого запустите компьютер и проверьте, сохраняется ли проблема.

3]Выполните восстановление Windows 10 с обновлением на месте

Это решение требует, чтобы вы попробовали ремонт с обновлением на месте и посмотрите, поможет ли это. В противном случае переустановка Windows 10 на вашем устройстве после того, как вы исчерпали все возможные варианты, — это последний вариант, который вы можете предпринять для решения Вызванный объект отключился от своих клиентов при входе в Windows 10.

Вызванный объект отключился от своих клиентов при открытии файлов.

Если вы можете войти в Windows без каких-либо проблем, но столкнулись с ошибкой при попытке открыть определенные типы файлов, вы можете попробовать решения в этом разделе, чтобы избавиться от ошибки и восстановить доступ к своим файлам.

1]Перезагрузите устройство с Windows 10.

Этот метод также работает, когда вы застряли на экране входа в Windows с Вызванный объект отключился от своих клиентов. сообщение об ошибке отображается на видном месте. Если вы недавно выполнили обновление или обновление, возможно, остались файлы, для удаления которых требуется перезагрузка.

2]Запустить сканирование SFC

Это решение требует, чтобы вы запустили сканирование SFC и посмотрите, поможет ли это.

3]Выберите другую программу по умолчанию

Если вы получаете сообщение об ошибке при попытке открыть файлы на устройстве с Windows 10, наиболее эффективное решение, которое вы можете попробовать, — это изменить программу или приложение по умолчанию, используемое вашим компьютером для открытия этих конкретных файлов.

Известно, что приложение Photo в Windows 10 вызывает эту ошибку. Если это так и для вас, вы можете заменить его приложением для просмотра изображений по умолчанию. Если ваш выбор не устранил проблему, вы можете сделать другое приложение средством просмотра фотографий по умолчанию. Вы можете найти довольно много программ для просмотра изображений в Магазине Windows. Большинство из них можно загрузить бесплатно.

4]Перезапустите проводник Windows.

Чтобы перезапустить проводник Windows, сделайте следующее:

Источник

Automation error vba вызванный объект был отключен от клиентов

Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ !
4. Используйте теги [ code=vba ] . текст программы. [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
FAQ Сайта FAQ Раздела Кладовка Наши Исходники API-Guide Поиск по Разделу MSDN Library Online Google
Ваше мнение о модераторах: SCINER, B.V.

Источник

Содержание

Vba excel automation error вызванный объект был отключен от клиентов
Вызванный объект отключился от своих клиентов [Fix]
Как я могу исправить вызванный объект отключился от ошибки клиента?
1. Измените свойства файла
2. Используйте проверку системных файлов
3. Восстановить установку Windows 10

Доброго времени суток!

Выходит ошибка, которая ссылается на Insert. Причем выходит, если например удалить какие то строки в таблице вручную и запустить макрос.
Подскажите пожалуйста, что не так. Использую офис 2016. В 2010 работает. Спасибо.

200?’200px’:»+(this.scrollHeight+5)+’px’);»> ‘обработка ошибки при обращении к файлу
Function IsOpenable(AFile As String) As Long

Dim FN As Variant
FN = FreeFile
On Error Resume Next
Open AFile For Input Access Read Lock Read Write As #FN
IsOpenable = Err.Number
Close #FN

‘Код построен без учета дублирующихся ID задач, т.е. они все уникальны
‘Application.DisplayAlerts = False
‘Application.ScreenUpdating = False

Dim FPath As String

With Application.FileDialog(msoFileDialogOpen) ‘открываем диалоговое окно
.Title = «Выберите файл для загрузки!»
.ButtonName = «Загрузить»
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add «Отчет_Битрикс24», «*.xls», 1
If .Show = -1 Then
FPath = .SelectedItems(1) ‘ & «/»

‘проверяем возможность открытия файла
Select Case IsOpenable(FPath)
Case 70:
MsgBox «Закройте выбранный файл!», vbInformation, «Сообщение»
Exit Sub
Case 53, 76:
MsgBox «Выбранный файл отсутствует!», vbInformation, «Сообщение»
Exit Sub
Case 0:
Case Else:
MsgBox «Файл не может быть открыт!», vbCritical, «Ошибка!»
Exit Sub
End Select

Application.Workbooks.Open Filename:=FPath, Notify:=False ‘.Execute

‘запоминаем имя файла отчета для сохранения в дальнейшем
Dim FName As String
FName = ActiveWorkbook.Name

‘определяем номер последней строки ID в отчете
Dim LRow As Long
LRow = Cells(Rows.Count, 1).End(xlUp).Row

Dim ARow As Long
Dim XRow As Long
Dim ID As String
Dim IDP As String
Dim IDRng As Range
Dim TLevelRng As Range
Dim TLevelCol As Integer
Dim TStatus As String

With ActiveWorkbook.ActiveSheet
‘проверка на пустое ID на всякий случай, такого быть не должно, но если есть, то это ошибка в загружаемом отчете
Set IDRng = .Range(«A2:A» & LRow).Find(what:=»», LookIn:=xlValues, lookAt:=xlWhole)
If Not IDRng Is Nothing Then
MsgBox «Обнаружено незаполненное поле ID в загружаемом отчете!», vbCritical, «Ошибка»
IDRng.Select
Exit Sub
End If
End With

With ThisWorkbook.Sheets(«Задачи»)
‘проверка на пустое ID в задачах, такого быть не должно, но если есть, то это ошибка в файле-приемнике — задачах
Set IDRng = .Range(«ЗадачиНомера»).Find(what:=»», LookIn:=xlValues, lookAt:=xlWhole)
If Not IDRng Is Nothing Then
MsgBox «Обнаружен незаполненный номер в задачах!», vbCritical, «Ошибка»
.Activate
.Rows(IDRng.Row).Select
Exit Sub
End If
‘проверка на пустое поле в уровнях в задачах, такого быть не должно, но если есть, то это ошибка в файле-приемнике — задачах
Set TLevelRng = .Range(«ЗадачиУровни»).Find(what:=»», LookIn:=xlValues, lookAt:=xlWhole)
If Not TLevelRng Is Nothing Then
MsgBox «Обнаружена задача с незаполненным наименованием!», vbCritical, «Ошибка»
.Activate
.Rows(TLevelRng.Row).Select
Exit Sub
End If

Dim ImportVar As String ‘Размещение задач снизу или сверху
Dim ImportStatus1 As String ‘Статус 1
Dim ImportStatus2 As String ‘Статус 2
Dim ImportEval As String ‘Оценка

With ThisWorkbook.Sheets(«Справочник»)
ImportVar = .Range(«ПорядокИмпортаЗадачРазмещение»).Value
ImportStatus1 = .Range(«ПорядокИмпортаЗадачСтатус1»).Value
ImportStatus2 = .Range(«ПорядокИмпортаЗадачСтатус2»).Value
ImportEval = .Range(«ПорядокИмпортаЗадачОценка»).Value
End With

‘перебираем каждый ID в отчете и ищем в задачах
For ARow = 2 To LRow
‘пропускаем итерацию при выбранных условиях порядка импорта в справочнике
If Cells(ARow, 7).Value = ImportStatus1 Or Cells(ARow, 7).Value = ImportStatus2 Or Cells(ARow, 15).Value = ImportEval Then
GoTo Continue
End If

ID = Cells(ARow, 1).Value

‘полученный ID в отчете ищем в этой книге в задачах
Set IDRng = .Range(«ЗадачиНомера»).Find(what:=ID, LookIn:=xlValues, lookAt:=xlWhole)

‘если не нашли, ищем ID родителя, т.к. возможно следует включить задачу к существующей, как подчиненную, если будет найден родитель
If IDRng Is Nothing Then
IDP = Cells(ARow, 2).Value
Set IDRng = .Range(«ЗадачиНомера»).Find(what:=IDP, LookIn:=xlValues, lookAt:=xlWhole)

‘если не нашли ID родителя или ID родителя пустое в отчете
If IDRng Is Nothing Or IDP = «» Then

TLevelCol = 8 ‘указываем столбец задачи 1 уровня, чтобы вставить ее наименование
TStatus = «Создана новая задача » & ID

If ImportVar = «Сверху» Then
‘если выбран вариант загрузки Сверху, указываем первую строку задачи для вставки новой задачи первого уровня
XRow = 7 ‘вставляем сверху
End If
If ImportVar = «Снизу» Then
‘если выбран вариант загрузки Снизу, указываем следующую за последней строкой задачи для вставки новой задачи первого уровня
XRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 ‘Range(«ЗадачиID»).Count + 1 ‘вставляем снизу
End If

‘если нашли ID родителя
Else

TLevelCol = 7 + .Cells(IDRng.Row, 2).Value + 1
TStatus = «Создана новая подчиненная задача » & ID & » к » & IDP

If ImportVar = «Сверху» Then
‘определяем первую строку подчиненной новой задачи под найденным родителем
XRow = IDRng.Row + 1
End If
If ImportVar = «Снизу» Then
‘определяем уровень (вправо) и последнюю строку подчиненной задачи под найденным родителем
XRow = .Cells(IDRng.Row, TLevelCol — 1).End(xlDown).Row
If XRow = 1048576 Then ‘если последняя ячейка листа, т.е. задач ниже нет
XRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End If
End If

End If
‘добавляем новую строку в зависимости от условий выше, родитель или подчиненный
.Rows(7).Copy
.Rows(XRow).Insert Shift:=xlDown ‘, CopyOrigin:=xlFormatFromLeftOrAbove
Application.CutCopyMode = False

‘если нашли ID, переходим к существующей задаче и обновляем ее
Else
TStatus = «Обновлена существующая задача » & ID
XRow = IDRng.Row
TLevelCol = 7 + .Cells(XRow, 2).Value
End If

‘заполняем поля в соответствии с отчетом (3 типа: новая / новая подчиненная / существующая обновляемая)
‘если будут изменяться столбцы, то поменять нумерацию ниже, либо добавить имена и ссылаться на номера их столбцов. Выше см тоже!
.Cells(XRow, 1).Value = ID
.Cells(XRow, 3).Value = Cells(ARow, 4).Value ‘постановщик имя
.Cells(XRow, 5).Value = Cells(ARow, 5).Value ‘ответственный имя
.Cells(XRow, 6).Value = Cells(ARow, 17).Value ‘категория
.Range(«H» & XRow & «:L» & XRow).Value = «» ‘очищаем наименование задачи по всем уровням, т.к. строка скопирована с задачей первой строки
.Cells(XRow, TLevelCol).Value = Cells(ARow, 3).Value ‘наименование задачи
.Cells(XRow, 13).Value = TStatus

Доброго времени суток!

200?’200px’:»+(this.scrollHeight+5)+’px’);»> ‘обработка ошибки при обращении к файлу
Function IsOpenable(AFile As String) As Long

Dim FN As Variant
FN = FreeFile
On Error Resume Next
Open AFile For Input Access Read Lock Read Write As #FN
IsOpenable = Err.Number
Close #FN

Dim FPath As String

Application.Workbooks.Open Filename:=FPath, Notify:=False ‘.Execute

‘запоминаем имя файла отчета для сохранения в дальнейшем
Dim FName As String
FName = ActiveWorkbook.Name

‘определяем номер последней строки ID в отчете
Dim LRow As Long
LRow = Cells(Rows.Count, 1).End(xlUp).Row

Dim ARow As Long
Dim XRow As Long
Dim ID As String
Dim IDP As String
Dim IDRng As Range
Dim TLevelRng As Range
Dim TLevelCol As Integer
Dim TStatus As String

ID = Cells(ARow, 1).Value

‘полученный ID в отчете ищем в этой книге в задачах
Set IDRng = .Range(«ЗадачиНомера»).Find(what:=ID, LookIn:=xlValues, lookAt:=xlWhole)

‘если не нашли ID родителя или ID родителя пустое в отчете
If IDRng Is Nothing Or IDP = «» Then

TLevelCol = 8 ‘указываем столбец задачи 1 уровня, чтобы вставить ее наименование
TStatus = «Создана новая задача » & ID

‘если нашли ID родителя
Else

TLevelCol = 7 + .Cells(IDRng.Row, 2).Value + 1
TStatus = «Создана новая подчиненная задача » & ID & » к » & IDP

Источник

Вызванный объект отключился от своих клиентов [Fix]

Как я могу исправить вызванный объект отключился от ошибки клиента?

Изменить свойства файла
Использовать средство проверки системных файлов
Восстановить установку Windows 10

1. Измените свойства файла

В этом примере мы будем предполагать, что файлы, которые не могут быть открыты, являются файлами изображений (он работает с файлами любого типа одинаково).
Откройте папку, в которой хранятся ваши фотографии.
Нажмите правой кнопкой мыши на одной из фотографий и выберите Свойства.
Откроется окно Свойства .
На вкладке Общие рядом с ней находится раздел Открывается с помощью и кнопка Изменить .
Нажмите кнопку Изменить , после чего появится новое окно, в котором вы сможете выбрать программу с жесткого диска или из Магазина Windows.
Нажмите “Применить” и “ОК” .
Теперь фотографии должны открываться без проблем.

2. Используйте проверку системных файлов

Нажмите кнопку Пуск и найдите папку Система Windows .
Откройте его и щелкните правой кнопкой мыши в Командная строка> Еще> и выберите в меню Запуск от имени администратора.
После открытия командной строки введите cd и нажмите Enter .
Введите sfc/scannow и снова нажмите Enter .
После завершения процесса введите выход>, нажмите Enter и перезагрузите компьютер.

3. Восстановить установку Windows 10

Либо смонтируйте файл Windows ISO на свой ПК, либо вставьте физический установочный компакт-диск/DVD-диск Windows в компакт-диск/DVD-диск.
Это откроет меню установки Windows.
Выберите параметр Обновить , чтобы не потерять личные файлы, настройки и приложения.
Вам не понадобится ключ продукта, так как активация будет выполнена автоматически.

Источник

При Insert выходит Вызванный объект отключен от клиентов

BertProx

Дата: Суббота, 18.03.2017, 00:15 |
Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация:
0
±

Замечаний:
0% ±

Excel 2013

Доброго времени суток!

Сообщение отредактировал BertProx — Суббота, 18.03.2017, 09:36

Ответить

bmv98rus

Дата: Суббота, 18.03.2017, 08:24 |
Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3979

Репутация:
749
±

Замечаний:
0% ±

Excel 2013/2016

BertProx,
1. Обратите внимание, что спойлер у Вас не получился.
2. Для VBA есть специальный раздел.
3. Пример файла мог бы сильно облегчить понимание.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus — Суббота, 18.03.2017, 08:35

Ответить

BertProx

Дата: Суббота, 18.03.2017, 09:57 |
Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация:
0
±

Замечаний:
0% ±

Excel 2013

bmv98rus,
1. Исправил.
2. Да, поторопился, позже увидел раздел VBA, перенести не смог, создать новую тему в другом разделе?
3. Приложить здесь или уже в новом разделе, если нельзя перенести?

Сообщение отредактировал BertProx — Суббота, 18.03.2017, 09:57

Ответить

BertProx

Дата: Суббота, 18.03.2017, 10:56 |
Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация:
0
±

Замечаний:
0% ±

Excel 2013

bmv98rus,
Приложил 2 файла. «Дела» подгружает данные из файла «ОТЧЕТ».

Ответить

bmv98rus

Дата: Суббота, 18.03.2017, 15:03 |
Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3979

Репутация:
749
±

Замечаний:
0% ±

Excel 2013/2016

У меня ошибка не вопроизводится. Excel 2016

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

BertProx

Дата: Воскресенье, 19.03.2017, 08:54 |
Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация:
0
±

Замечаний:
0% ±

Excel 2013

bmv98rus,
У меня бывает тоже срабатывает, вот как раз в варианте, что выложил. Ошибка возникает при манипуляциях с данными, например попробуйте удалить нижнюю часть до 17 строки включительно и повторить операцию, а также можно попробовать поменять на листе «Справочник», в столбце «F» условия, в коде можно увидеть зачем они нужны. Спасибо.

Сообщение отредактировал BertProx — Воскресенье, 19.03.2017, 09:07

Ответить

bmv98rus

Дата: Воскресенье, 19.03.2017, 10:00 |
Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3979

Репутация:
749
±

Замечаний:
0% ±

Excel 2013/2016

Как бы не мучал, все без збоев.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

BertProx

Дата: Воскресенье, 19.03.2017, 10:38 |
Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация:
0
±

Замечаний:
0% ±

Excel 2013

bmv98rus,
) да уж, на виртуалке на вин 10, в 2010 офисе тоже работает) не понимаю) интересно а может это быть связано с тем, что книги в разных окнах открывается? На виртуалке в рамках приложения окна, а на рабочем в разных.

Ответить

_Boroda_

Дата: Понедельник, 20.03.2017, 09:33 |
Сообщение № 9

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16561

Репутация:
6446
±

Замечаний:
0% ±

2003; 2007; 2010; 2013 RUS

BertProx, Код макроса нужно обрамлять специальными тегами. Это я про первый Ваш пост. Вы там уже поправить не сможете, я сам сделаю как нужно.
Но на будущее прочитайте Правила форума

Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

BertProx

Дата: Понедельник, 20.03.2017, 10:01 |
Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация:
0
±

Замечаний:
0% ±

Excel 2013

_Boroda_,
Хорошо, прочту, учту, спасибо.
Правда, решение проблемы так и не получил.

Сообщение отредактировал BertProx — Понедельник, 20.03.2017, 10:02

Ответить

BertProx

Дата: Понедельник, 20.03.2017, 17:34 |
Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация:
0
±

Замечаний:
0% ±

Excel 2013

_Boroda_,
Возможно перенести в раздел VBA ? Или можно такую же тему создать в том разделе, не будет считаться дублем?

Ответить

BertProx

Дата: Вторник, 21.03.2017, 11:20 |
Сообщение № 12

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация:
0
±

Замечаний:
0% ±

Excel 2013

Разобрался, порыл инет, оказалось при изменении данных на листе лучше отключать обработку событий.

[vba]

Код

Application.EnableEvents = False

[/vba]

Может кому будет полезно.

Сообщение отредактировал BertProx — Вторник, 21.03.2017, 15:50

Ответить

bmv98rus

Дата: Вторник, 21.03.2017, 12:03 |
Сообщение № 13

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3979

Репутация:
749
±

Замечаний:
0% ±

Excel 2013/2016

BertProx,
Да это известная тема, также как отключение обновления экрана и калькуляции когда это надо, однако странно, что в вашем случае это помогло и почему проявлялась ошибка именно на определенном ПК?

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

BertProx

Дата: Вторник, 21.03.2017, 15:43 |
Сообщение № 14

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация:
0
±

Замечаний:
0% ±

Excel 2013

bmv98rus,
Обновление экрана и калькуляцию тоже использую, но потребовалось похоже и это. Сам не понимаю почему, но как и говорил ранее на этом же ПК, только в виртуалке в такой же винде, в 2010 офисе все работало и так.

Ответить

Источник