excel表格指定单元格数据写入word表格指定单元格

可以通过 VBA 宏实现将 Excel 表格中的数据写入到 Word 表格中的指定单元格中。下面是一个简单的示例：

1. 在 Excel 文件中打开 Visual Basic 编辑器（VBE），并创建一个新的模块。在模块中编写以下代码：

Sub ExportToWord()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdRange As Object
    Dim xlSheet As Worksheet
    Dim xlRange As Range
    
    '打开 Word 应用程序
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    
    '打开 Word 文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\File.docx")
    
    '选择 Word 表格中的单元格
    Set wdRange = wdDoc.Tables(1).Cell(1, 1).Range
    
    '在 Excel 中选择单元格
    Set xlSheet = ThisWorkbook.Sheets("Sheet1")
    Set xlRange = xlSheet.Range("A1")
    
    '将 Excel 单元格中的值写入到 Word 单元格中
    wdRange.Text = xlRange.Value
    
    '保存 Word 文档并关闭应用程序
    wdDoc.Save
    wdDoc.Close
    wdApp.Quit
    
    '释放对象
    Set wdRange = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
    Set xlRange = Nothing
    Set xlSheet = Nothing
End Sub

2. 在上面的代码中，需要替换以下内容：

- `C:\Path\To\Your\Word\File.docx`：Word 文件的路径和文件名。
- `"Sheet1"`：Excel 文件中包含数据的工作表名称。
- `"A1"`：Excel 文件中包含数据的单元格地址。
- `wdDoc.Tables(1).Cell(1, 1).Range`：Word 文件中需要写入数据的表格单元格地址。

3. 运行宏，Excel 中的数据将被写入到 Word 表格中指定的单元格中。