如何在EXECEL文件下用VBA新建WORD文件，然后赋予该新建WORD文件文件名为变量时报警需要对象。

你是否为每一个对象定义了呢？，需要定义多个变量，两个对象哦。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Row = 1 And Target.Column = 1 Then
    Dim wd As Object, doc As Object         
    Set wd = CreateObject("word.application") '这个word的对象为了建立doc对象用的。
    Set doc = CreateObject("word.Document") '这个word的对象是为了保存用的。
    Dim fileName As String, a As String
a = Sheet1.Cells(1, 2)   '这个word文件名定义为sheet1表的A2单元格。
fileName = ThisWorkbook.Path & "\" & a & ".doc"
Set doc = wd.Application.Documents.Add
    doc.SaveAs fileName
    doc.Close
    Set doc = Nothing
    wd.Quit
    Set wd = Nothing
End If
End Sub

这个word文件名复制为sheet1表的A2单元格。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/y2j3fxejv.html