word 和excel相关联制表数据如何更新

（一）在Word中调用Excel
下例将Word中活动文档的第一段发送到Excel中，并将内容放到B3单元格中——
’’’’==========Word联系Excel例===========
Sub 联系例一()
Dim Arange
Dim Aexl
Arange = ActiveDocument.Paragraphs(1).Range’取得Word中第一段的文字
Set Aexl = CreateObject("Excel.Application")’利用标识符启动Excel
Aexl.Visible = True’将Excel显示出来
Aexl.workbooks.Add’新建一个工作簿
Aexl.Range("B3") = Arange’将文字写入工作表中的B3单元格
Set Aexl = Nothing'终止两个程序间的联系
End Sub
代码说明：
Set与CreateObject关键字，用于创建一个对其它Office组件对像的引用，无论您是在任意Office组件中，引用其它的任意Office组件，都必须使用这两个关键字。
Nothing关键字用于终止两个程序间的联系，如果没有这个关键字，程序的联系始终存在，将消耗掉大量的系统资源，容易造成死机。
“Aexl.Visible = True”这段代码用于将Excel对像显示出来。如果没有这一句，Excel将在后台运行，您可以按下“Ctrl+Alt+Del”三键，从系统进程中看到。
（二）在Excel中调用Word
本例在Excel中运行，假定在C盘Text文件夹下有一个MyDoc.doc文件，我们将在excel中启动word，并将MyDoc.doc文件第二自然段的内容写入到Excel第一个工作表的“b8”单元格中。