在excel中写一段VBA代码：如何把excel中A1单元格的数据复制到word中第二行

，第一列的位置？

你可以使用以下VBA代码将Excel中A1单元格的数据复制到Word中第二行，第一列的位置：

Sub CopyToWord()
Dim wdApp As Object
Dim wdDoc As Object
Dim rngCopy As Range

'打开Word应用
Set wdApp = CreateObject("Word.Application")

'打开Word文档
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\Test.docx")

'将Excel中A1单元格的数据复制到Word中第二行，第一列的位置
Set rngCopy = Range("A1")
rngCopy.Copy
wdDoc.Paragraphs(2).Range.PasteExcelTable False, False, False

'关闭应用和文档
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub