Спасибо, сам разобрался, метод паузы работает)))
Вставка таблицы в ворд, При попытке вставить таблицу из эксель в ворд VBA выдает ошибку 5941
Вставка таблицы в ворд, При попытке вставить таблицу из эксель в ворд VBA выдает ошибку 5941
15.11.2015 12:10:38
Добрый день! Есть 2 файла ворд и эксель, эксель - является формой в которой заполняются исходные данные, ворд является шаблоном куда эти данные экспортируются. при вставке таблицы в ворд, VBA выдает ошибку "Ошибка при выполнении '5941': Запрашиваемый номер семейства не существует". Подскажите пожалуйста в связи с чем это связано? файлы с примером прикладываю
Это код в котором происходит ошибка (в строке wd.Bookmarks("Табл" & i).Range.Paste)
Изменено: |
|||
|
копирование (или удаление) данных исключая защищенные ячейки
копирование (или удаление) данных исключая защищенные ячейки
копирование (или удаление) данных исключая защищенные ячейки
копирование (или удаление) данных исключая защищенные ячейки
копирование (или удаление) данных исключая защищенные ячейки
копирование (или удаление) данных исключая защищенные ячейки
11.04.2013 07:10:40
Добрый день! тема уже обсуждалась на форуме в ней был предложен следующий макрос для ее решения:
Sub Copy_Only_FreeCells() Dim rCopyRange As Range, rPasteRange As Range, rCell As Range On Error Resume Next: Application.DisplayAlerts = False Set rCopyRange = Application.InputBox("Выберите диапзаон для копирования", "Выбор данных", Type:= If rCopyRange Is Nothing Then MsgBox "Не выбран диапазон", vbCritical, "Ошибка": Exit Sub Set rPasteRange = Application.InputBox("Выберите диапзаон для вставки", "Выбор данных", Type:= If rPasteRange Is Nothing Then MsgBox "Не выбран диапазон", vbCritical, "Ошибка": Exit Sub On Error GoTo 0: Application.DisplayAlerts = True rCopyRange.Parent.Activate For Each rCell In rCopyRange If rCell.Locked = False Then rCell.Copy rPasteRange.Parent.Range(rCell.Address) Next rCell End Sub Применив на своем примере результата не получил. Подскажите пожалуйста в чем ошибка или как его можно модернизовать для моего примера. Версия Excel - 2010 ссылка на тему ранее обсуждавшуюся
Изменено: |
|
|
Таблица уникальных значений
Таблица уникальных значений