Question

我知道之前已经问过这个问题，但我只能找到在传输数据时在Word中创建表格的网站。

我有一个包含3个表格的Word文档，并希望将客户端发送的Excel文件中的数据提取到Word表格中的某些单元格中。 E.G我想在Excel中获取单元格D3的内容并将其放在Word第二个表格的单元格2,2中？有没有办法引用哪个表来插入数据？

任何人都可以帮忙解决这个问题，或者只是让我朝着正确的方向努力，因为我对Macros等相对较新。当我们使用Word文档并将Excel文件发送给我们时，会使Word中的宏更有益或者不？

由于

Answer 1

我已经设法修复它，通常它相对简单，但感谢@David Zemens推动正确的方向。我不知道我之前在搜索“ThisDocument”时错过了“桌子”的位置。

 Sub GetData()

Dim objExcel As New Excel.Application
Dim exWb As Excel.Workbook
Dim ExcelFileName As String

ExcelFileName = "{Put the directory of Excel file here}"
Set exWb = objExcel.Workbooks.Open(ExcelFileName)

'Set the text of the cell from Excel to the cell in the specified table in Word (the second table in this instance)
ActiveDocument.Tables(2).Cell(2, 2).Range.Text = exWb.Sheets("Test").Cells(2, 1)

' Close Excel bits
exWb.Close
Set exWb = Nothing

End Sub

从Excel中获取数据并插入预先存在的Word表中？

1 个答案: