Создание документа Word из Excel через VBA

Question

Folks.У меня есть файл Excel и я хочу создать документ Word с данными на листе.Программа показывает ошибку, и я не могу найти причину.

Я пытался использовать следующий код:

Private Sub CommandButton1_Click()
' Objetos Word
  Dim obj1 As New Application
  Dim wdDoc As Word.Document

' Objetos Excel
  Dim wbBook As Workbook
  Dim wsSheet As Worksheet

  Dim Caminho, Arquivo, Nome_aluno, Ender As String
  Dim Gen_p, Gen_a, Hora, Prof, Resp As String
  Dim i, Comp As Integer
  Dim Coord_C As Integer
  Dim Coord_L As Integer
  Caminho = "D:\Data\Office\Excel\"
  Arquivo = "Anexo D - Ata de defesa TCC.docx"

Код продолжается, но пока не имеет значения.Дело в том, что когда я запускаю код, я получаю сообщение:

Определяемый пользователем тип не определен

Это странно, потому что в другом файле Excel я могу его запустить,и работает нормально.Что я пропустил?Должен ли я что-то связать?

Answer 1

, поскольку ваш код использует:

Dim obj1 As New Application

Вы должны установить ссылку на VBA для любого приложения (Word?), К которому относится obj1.Это делается с помощью Tools | References.Вы должны также сообщить VBA, что это за приложение.Например:

Dim obj1 As New Word.Application

Answer 2

Чтобы создать новый документ Word из другого приложения, добавьте ...

Dim appWD As Word.Application 

Set appWD = CreateObject("Word.Application") 
appWD.Documents.Add

https://docs.microsoft.com/en-us/office/vba/excel/concepts/working-with-other-applications/controlling-one-microsoft-office-application-from-another