看这个——〉
Word与Excel相互调用
(一)在Word中调用Excel
首先,我们熟悉一下Excel的基本对像:工作簿对像与集合(Workbook、Workbooks)、工作表对像与集合(Worksheet、Worksheets)、单元格对像Range。这些对像在实际使用时,与我们前面介绍的“面向对像”的思想完全相同。
下例将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”单元格中。
启动Excel打开VBA,写入如下代码:
Sub 联系的例子二()
Dim wd
Dim Arange
Set wd = CreateObject("word.application")’利用标识符启动WOrd
wd.Visible = True’显示Word
wd.documents.Open ("C:\Text\MyDoc.doc")’打开欲操作的对像
Arange = wd.documents(1).paragraphs(2).Range’取得要使用的文字
Workbooks(1).Worksheets(1).Range("b8") = Arange’将文字写入相应单元格
Set wd = Nothing '终止两个程序间的联系
End Sub
与前例类似,就无需解释了吧?