Скопировать таблицу из Excel в файл Word - VBA
Формулировка задачи:
Не нашел решения в Инете, может тут кто-то подскажет дельное.
Есть документ Word, а конкретнее приказ, в котором необходимо вставить таблицу из Excel. Все что нашел связано с созданием нового файла Word, либо запись с 1-й строки с удалением информации. Шаблон также не устраивает.
Пытался указать закладку после которой скопировалась бы таблица, но тогда дает ошибку 424.
Пытаюсь делать что-то такое:
Листинг программы
- Private Sub Prikaz()
- Dim wda As Object 'Word.Application
- Dim wdd As Object 'Word.Document
- On Error GoTo ErrStartWord
- Set wdd = GetObject("I:\Deloproizvodstvo\Prikaz.docx")
- Set wda = wdd.Parent
- wda.Visible = True
- wdd.Bookmarks("zakladka").Select
- Range("A1:D300").Copy
- WordDoc.Range(0).Paste
- Set wdd = Nothing
- Set wda = Nothing
- Exit Sub
- ErrStartWord: MsgBox Err.Description & " " & Err.Number, vblnformation
- Exit Sub
- End Sub
Решение задачи: «Скопировать таблицу из Excel в файл Word»
textual
Листинг программы
- Private Sub Test()
- Range("A1:D300").Copy
- With GetObject("I:\Deloproizvodstvo\Prikaz.docx")
- .Bookmarks("ImportExcel").Range.Paste
- '.Bookmarks("ImportExcel").Range.PasteExcelTable False, False, True
- .Parent.Visible = True
- End With
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д