如何用VBA将Excel中单元格数据传入wOrd中

以下是一个示例VBA代码，它将Excel中的单元格数据传递到Word中：

Sub CopyToWord()
'打开Word应用程序
Dim wordApp As Word.Application
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True

'打开Word文档
Dim wordDoc As Word.Document
Set wordDoc = wordApp.Documents.Open("C:\Users\UserName\Documents\MyWordDocument.docx")

'从Excel中获取单元格数据
Dim cellData As String
cellData = Sheet1.Range("A1").Value

'将数据插入到Word文档中
wordDoc.Content.InsertAfter "单元格数据为: " & cellData

'保存并关闭Word文档
wordDoc.Save
wordDoc.Close

'关闭Word应用程序
wordApp.Quit
End Sub

请注意，此代码假设您将要将数据插入到名为Sheet1的工作表的A1单元格中，并且您需要将文件路径更改为您的Word文档的实际路径。您还可以使用其他Word对象和方法来格式化数据和文档。