Question

Excel表格内容自动填充到word中的指定位置

有没有办法可以让excel表格中的数据，自动填充到新生成的word文档中的指定位置去。
就比如说一个excel制作的报表，填完表格计算出数据后。这个结果可以自动填到另外一个word中的指定位置，生成一个报告文档。因为我不需要移植整个表格只需要当中的几项数据。

Answer 1

可以，下面演示具体操作方法：

一、如下图，这里把Excel和Word同时打开，并复制Excel中的部分单元格。

二、进入Word窗口，点击“开始菜单”下的“粘贴”—“选择性粘贴”。

三、打开选择性粘贴窗口后，点击“粘贴链接”，右边选择“带格式文本（RTF）”，点击“确定”。

四、这时即可把Excel中选中的单元格以链接的形式粘贴入Word中。

五、效果如下图，当把成绩栏中95分的成绩改为15分后，右边分数范围中60分以下人数变为3人，这时Word中60分以下人数同步变为3人。

Answer 2

这个可以使用word的邮件合并功能进行完成：
excel每行的数据可以合并成一个单独的文档
方法如下：
第一步：word->邮件->选择收件人->使用现有列表：选择存放数据的excel表格
第二步：在word文档中将光标移动到需要插入数据的位置，然后选择菜单->邮件->插入合并域，选择需要插入的数据列标题。
第三步：逐个位置插入完毕后，选择 邮件->完成并合并 菜单 根据需要选择1个或多个 就可以将记录合并到word文档了。
建议将该表格放置到该word所在目录或固定目录，这样以后excel数据改变后，需要再合并时就不用重新设置了

Answer 3

Sub t()

Dim ExcelApp As Object

Dim ws As Object

Dim sht As Object

excelFile = "C:\Users\syj\Desktop\21.xlsx"

Set ExcelApp = CreateObject("Excel.Application")

Set ws = ExcelApp.Workbooks.Open(excelFile)

Set sht = ws.Sheets(1)

For i = 1 To 10

sht.Cells(i, 11) = i

Next

Debug.Print ws.Save()

Debug.Print ws.Close

End Sub

然后就可以用excel的代码了。

Answer 4

这个是WORD邮件合并的重要功能之一。
邮件合并：在Office中，先建立两个文档：一个WORD包括所有文件共有内容的主文档（比如未填写的信封等）和一个包括变化信息的数据源EXCEL（填写的收件人、发件人、邮编等），然后使用邮件合并功能在主文档中插入变化的信息，合成后的文件用户可以保存为Word文档，可以打印出来，也可以以邮件形式发出去 。

word如何邮件合并，参阅百度百科：http://baike.baidu.com/link?url=is-WZpDkUe29gInngPuUYYBIJfj3bTIG8SZHw3J6VGSdmjfElv1xLvnoGcxKCiMkMizeDsZBDdt9jViDf16-4a

也可以有详细图文介绍的百度经验：http://jingyan.baidu.com/article/335530da51745219cb41c3ea.html

Answer 5

复制－选择性粘贴－粘贴链接－带格式文本－匹配目标格式并连接到EXCEL