Скопировать таблицу из Excel в файл Word - VBA

Узнай цену своей работы

Формулировка задачи:

Не нашел решения в Инете, может тут кто-то подскажет дельное. Есть документ Word, а конкретнее приказ, в котором необходимо вставить таблицу из Excel. Все что нашел связано с созданием нового файла Word, либо запись с 1-й строки с удалением информации. Шаблон также не устраивает. Пытался указать закладку после которой скопировалась бы таблица, но тогда дает ошибку 424. Пытаюсь делать что-то такое:
Листинг программы
  1. Private Sub Prikaz()
  2. Dim wda As Object 'Word.Application
  3. Dim wdd As Object 'Word.Document
  4. On Error GoTo ErrStartWord
  5. Set wdd = GetObject("I:\Deloproizvodstvo\Prikaz.docx")
  6. Set wda = wdd.Parent
  7. wda.Visible = True
  8. wdd.Bookmarks("zakladka").Select
  9. Range("A1:D300").Copy
  10. WordDoc.Range(0).Paste
  11. Set wdd = Nothing
  12. Set wda = Nothing
  13. Exit Sub
  14. ErrStartWord: MsgBox Err.Description & " " & Err.Number, vblnformation
  15. Exit Sub
  16. End Sub

Решение задачи: «Скопировать таблицу из Excel в файл Word»

textual
Листинг программы
  1. Private Sub Test()
  2.     Range("A1:D300").Copy
  3.  
  4.     With GetObject("I:\Deloproizvodstvo\Prikaz.docx")
  5.          .Bookmarks("ImportExcel").Range.Paste
  6.          '.Bookmarks("ImportExcel").Range.PasteExcelTable False, False, True
  7.         .Parent.Visible = True
  8.     End With
  9. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут