Question

伙计。我有一个Excel文件，想用工作表中的数据创建Word文档。程序显示错误，我找不到原因。

我尝试使用以下代码：

With cell
    'enter the formula in the current cell
    .Formula = "=SUMPRODUCT(SUMIF(" & MyRg1.Address & "," & MyRg2.Address & "," & MyRg3.Address & "))"
    'convert the formula into a value
    .Value = .Value
End With

代码仍在继续，但暂时不相关。关键是我在运行代码时收到消息：

未定义用户定义的类型

这很奇怪，因为我可以在另一个Excel文件中运行它，并且效果很好。我错过了什么？我必须链接一些东西吗？

Answer 1

要从其他应用程序创建新的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

Answer 2

因为您的代码使用：

Dim obj1 As New Application

您必须将obj1涉及的任何应用程序（Word？）设置为VBA引用。这是通过“工具|参考”完成的。您必须还必须告诉VBA那是什么应用程序。例如：

Dim obj1 As New Word.Application

通过VBA从Excel创建Word文档

2 个答案: