在EXCEL VBA中打开word文档，声明一直出错

fangru520v

Sub 生成报告()
    Dim wordapp As word.Application
    Dim worddoc As word.Document
    Set worddoc = word.Application.Documents.Open("E:\生成\格式.docx")
end sub

麻烦大神帮忙看一下，为什么我在EXCELVBA中打开word文档，一直提示对象未定义

zhanglei1371

两个都定义为as object

gwjkkkkk

两种方法
Sub 生成报告()'后期绑定
    Dim wordapp As object
    Dim worddoc As object
    set  wordapp= CreateObject("Word.Application")
    Set worddoc = word.Application.Documents.Open("E:\生成\格式.docx")
end sub

gwjkkkkk

‘需要引用Microsoft Word Object Library
Sub 生成报告() '前期绑定
    Dim wordapp As Word.Application
    Dim worddoc As Word.Document
    Set wordapp = CreateObject("Word.Application")
    Set worddoc = Word.Application.documents.Open("E:\生成\格式.docx")
End Sub

杨建营

1. Sub 生成报告()
   
2.     Dim wordapp As New Word.Application
   
3.     Dim worddoc As New Word.Document
   
4.     Set worddoc = Word.Application.Documents.Open("E:\生成\格式.docx")
   
5. End Sub
   

复制代码

添加一个new，就可以了。

batmanbbs

杨建营 发表于 2023-8-29 20:19
添加一个new，就可以了。

你是什么版本，通过不过啊
PS：gwjkkkkk 老师写清楚了，需要引用Microsoft Word Object Library