Question

你能帮我吗？

我在编写宏以将数据从Excel传输到Word时出错。宏是：

    Private Sub CommandButton1_Click()
       Sub CopyToWord()

        Dim objWord As New Word.Application
        Range("A1:B10").Copy

        With objWord
            .Documents.Add
            .Selection.Paste
            .Visible = True
        End With

    End Sub
 End Sub

，错误是

编译错误：预期结束子

我不知道这个问题是什么，因为我没有错过End sub。

请指导感谢。

Answer 1

您尝试使用的代码需要Microsoft Word 16.0 Object Library（或其他任何版本号），如果没有它，您将获得user-defined type not defined）。只需使用后期绑定（代之以objWord为Object，然后Set：

Private Sub CommandButton1_Click()

Dim objWord As Object
Set objWord = CreateObject("Word.Application")

Range("A1:B10").Copy

With objWord
    .Documents.Add
    .Selection.Paste
    .Visible = True
End With

Set objWord = Nothing

End Sub

我有一个错误：预期结束Sub写一个宏来将数据从Excel传输到Word

1 个答案: