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

Страницы: 1
Вставка таблицы в ворд, При попытке вставить таблицу из эксель в ворд VBA выдает ошибку 5941
 
#
15.11.2015 20:43:28
Спасибо, сам разобрался, метод паузы работает)))
 
Перейти    
Вставка таблицы в ворд, При попытке вставить таблицу из эксель в ворд VBA выдает ошибку 5941
 
#
15.11.2015 12:10:38
Добрый день! Есть 2 файла ворд и эксель, эксель - является формой в которой заполняются исходные данные, ворд является шаблоном куда эти данные экспортируются.  при вставке таблицы в ворд, VBA выдает ошибку "Ошибка при выполнении '5941': Запрашиваемый номер семейства не существует". Подскажите пожалуйста в связи с чем это связано? файлы с примером прикладываю

Это код в котором происходит ошибка (в строке   wd.Bookmarks("Табл" & i).Range.Paste)
Код
Private Sub CommandButton5_Click()
  Dim i As Integer
  i = 1
    Sheets("Табл" & i).Select
  Dim lLastRow As Long
Dim lLastCol As Long
iLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
iLastClm = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
    Dim iRow As Integer
    iRow = 1
    Range(Cells(1, 1), Cells(iLastRow, iLastClm)).Copy
  'Range(Cells(1, 1), Cells(l, m)).Copy
   Set wa = GetObject(, "Word.Application") 'Ищем уже открытый Word
   If Err.Number <> 0 Then 'Если не нашли - создаём новый экземпляр
      Err.Clear
      Set wa = CreateObject("Word.Application")
   End If
   'Set wd = wa.Documents.Open(UserForm1.TextBox1.Text) для работы с формой
   Set wd = wa.Documents.Open("G:\СибНИИНП\Шабаш\07+\03 Форма Сосуды\151024\ШАБЛОН_011.docx")
    wd.Tables(1 + i).Delete 
  wd.Bookmarks("Табл" & i).Range.Paste
  Application.ScreenUpdating = True
End Sub
Изменено: syt89 - 15.11.2015 16:42:36
 
Перейти    
копирование (или удаление) данных исключая защищенные ячейки
 
#
17.04.2013 14:00:47
Добрый день! Так как вопрос остался без ответа, обращаюсь еще раз за помощью разобраться с проблемой. Если вопрос сформулирован не конкретно  или не хватает исходных данных прошу написать.
С уважением, syt89
 
Перейти    
копирование (или удаление) данных исключая защищенные ячейки
 
#
13.04.2013 12:43:36
День добрый! Разобравшись в вышеуказанном макросе я понял, что с помощью него можно скопировать диапазон с одного листа и вставить в точно такой же диапазон другого листа, подскажите пожалуйста, как сделать возможным чтобы скопированные ячейки диапазона rCopyRanger вставлялись непосредственно в диапазон для вставки PasteRange. на примере это выглядило бы так запустив макрос копируемый диапазон указать $B$12:$BR$13 на листе "форма" и а диапазон для вставки  $B$14:$BR$15 на этом же листе
 
Перейти    
копирование (или удаление) данных исключая защищенные ячейки
 
#
12.04.2013 14:12:07
Уважаемые специалисты подскажите пожалуйста возможно ли с каким либо способом (вероятно макросом) в приложенном примере сделать следующее:
1) выделить диапазон который содержит защищенные и незащищенные ячейки и удалить значения только из не защищенных
2) выделить диапазон который содержит защищенные и незащищенные ячейки скопировать его и вставить на 10 строк ниже
 
Перейти    
копирование (или удаление) данных исключая защищенные ячейки
 
#
12.04.2013 08:28:49
Добрый день! Да действительно в спешке забыл поставить защиту листа выкладываю пример с установленной защитой листа. Посмотрите пожалуйста
 
Перейти    
копирование (или удаление) данных исключая защищенные ячейки
 
#
11.04.2013 12:24:37
Никто не может помочь или вопрос поставлен  не верно?
 
Перейти    
копирование (или удаление) данных исключая защищенные ячейки
 
#
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:= 8)
If rCopyRange Is Nothing Then MsgBox "Не выбран диапазон", vbCritical, "Ошибка": Exit Sub
Set rPasteRange = Application.InputBox("Выберите диапзаон для вставки", "Выбор данных", Type:= 8)
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
ссылка на тему ранее обсуждавшуюся http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=13499
Изменено: syt89 - 11.04.2013 07:12:04
 
Перейти    
Таблица уникальных значений
 
#
08.04.2013 11:56:29
Благодарю за ответы, вот состряпал своими силами
 
Перейти    
Таблица уникальных значений
 
#
08.04.2013 08:20:48
Доброго времени суток! Помогите пожалуйста сделать таблицу в которой будут собираться уникальные значения из нескольких столбцов а потом по этим значениям суммироваться кол-во. Пример прикладываю. Версия программы Excel 2010
 
Перейти    
Страницы: 1
Наверх