[已解决]在Excel VBA中建立word文件

kevin_2010

Sub re()
Dim tes As Object, fd As Object
Dim filename As String
filename = ThisWorkbook.Path & "\tt.doc"
Set tes = CreateObject("word.application")
Set fd = CreateObject("word.Document")
tes.Visible = True
fd = tes.Application.documents.Add
fd.SaveAs filename
Set tes = Nothing
End Sub

以上有“应用程序定义或者对象定义错误”，为什么？我在网上摘抄的啊，这样都不行？
***************************************************
不好意思，题目写错了：（

我加了一个 on error resume next，结果就没有这个报错了，功能也正常。但只是不知道为什么会有这个报错。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-8-26 12:06

1. Sub re()
   
2.     Dim tes As Object, fd As Object
   
3.     Dim filename As String
   
4.     filename = ThisWorkbook.Path & "\tt.doc"
   
5.     Set tes = CreateObject("word.application")
   
6.     'Set fd = CreateObject("word.Document")
   
7.     With tes
   
8.         '.Visible = True
   
9.         Set fd = .documents.Add
   
10.         fd.SaveAs filename
    
11.         .Quit
    
12.     End With
    
13.     Set tes = Nothing
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

zhp3

在word工具栏里有个插入excel的按钮，可以根据需要点击直接插入excel表格。

hwc2ycy

1. Sub re()
   
2.     Dim tes As Object, fd As Object
   
3.     Dim filename As String
   
4.     filename = ThisWorkbook.Path & "\tt.doc"
   
5.     Set tes = CreateObject("word.application")
   
6.     'Set fd = CreateObject("word.Document")
   
7.     With tes
   
8.         '.Visible = True
   
9.         Set fd = .documents.Add
   
10.         fd.SaveAs filename
    
11.         .Quit
    
12.     End With
    
13.     Set tes = Nothing
    
14. End Sub
    

复制代码