Добрый день! Есть 2 файла ворд и эксель, эксель - является формой в которой заполняются исходные данные, ворд является шаблоном куда эти данные экспортируются. при вставке таблицы в ворд, VBA выдает ошибку "Ошибка при выполнении '5941': Запрашиваемый номер семейства не существует". Подскажите пожалуйста в связи с чем это связано? файлы с примером прикладываю
Это код в котором происходит ошибка (в строке wd.Bookmarks("Табл" & i).Range.Paste)
Это код в котором происходит ошибка (в строке 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 |
Изменено: - 15.11.2015 16:42:36
