【word表格数据来源怎么插入】在EXCEL中操作WORD应用程序

【分享成果，顺熙正能量】这个世界上最不想接触的是没有能力但同时拥有很多感情的人。VBA可以提高你的能力，学习可以磨砺你的感情。

《VBA信息获取与处理》教程是我推出的第六个教程，目前第一版已经修订。本教程定位为高级、初级、中级结束后的教程。

信息、意义非常广泛，是我们日常生活中不可缺少的一部分。从天气和预报、人际关系到宇宙洪荒，都是信息的一部分。信息在一定程度上是数据，也可以用数据表示，获得信息就是数据的获取。本教程介绍了收集应用程序信息、利用随机信息、发送电子邮件、收集VBA internet数据、VBA延迟操作、剪贴板应用程序、Split函数扩展、工作表信息以及与其他应用程序的交互、利用FSO对象、收集工作表和文件夹信息、收集图形信息以及定制工作表信息函数非常抽象，更有研究价值。

本教程共2册、84册，今后一段时间内将陆续推出修订后的教程内容。今天的内容是第4课：在EXCEL中操作WORD应用程序

第4节在EXCEL中打开和修改WORD文件

上述主题说明了如何在WORD中打开EXCEL。那么，如何在EXCEL中打开WORD呢？本课介绍了使用CreateObject函数和GetObject函数设置引用以及获取已打开的WORD文件信息的主题。为了提高实用性，程序还提供了向WORD表单(非嵌套)添加数据的方法。此数据来自EXCEL。

1确保在EXCEL中打开了WORD文件

在EXCEL确定WORD文件是否打开后，可以使用GetObject函数获取WORD主程序的返回。在这里，我使用WordIsOpen的函数过程。代码如下：

function word is open(byval strdocname as string)as boolean

确定Word文档是否重复打开

Dim myWd As Object

WordIsOpen=False

Set myWd=Nothing

On Error Resume Next

StrDocName=UCase(strDocName)

请确认单词程序已打开。

Set mywd=getobject(，' word.application ')

For Each doc In myWd。Documents

UU=UCase)

If UU=strDocName Then

WordIsOpen=True

Exit For

End If

next

Set myWd=Nothing

End Function

代码屏幕截图：

代码说明：这是函数过程。必须输入strDocName字符串。输入此字符串以确保该文件的文件名已打开，然后使用set mywd=getobject(，' word.application ')语句查看word是否已打开的具体说明。

WordIsOpen=False首先将WordIsOpen的初始值设置为False

On Error Resume Next是创建错误处理语句，该语句在word文件未打开时打开，以处理后续错误。

For Each doc In myWd。Documents

UU=UCase)

If UU=strDocName Then

WordIsOpen=True

Exit For

End If

next

上面的语句是遍历的循环。如果打开的文件包含指定文件名的文件，则返回WordIsOpen=True。

两周程序和在WORD中修改表单数据的程序

在中，主程序使用WordIsOpen函数来确定需要判断的文件，如果未打开，则执行打开操作，然后进行修改。如果已打开，请执行修改操作。

代码如下

下：

Sub MYNZB()

Dim RR As Boolean

Dim myWdA As Object

Dim MyDocument As Object

RR = WordIsOpen & "\001 在WORD中激活EXCEL.docm")

If Not RR Then '创建Word对象

Set myWdA = CreateObject("Word.Application")

myWdA.Visible = True '打开指定文档

Set MyDocument = myWdA.Documen & "\001 在WORD中激活EXCEL.docm")

'获取当前Excel的SHEET2的单元格C2数据

mystr = T(2).Cells(2, 3).Value

'将取得得值设定到Word表格的1行2列中

MyDocument.Tables(1).Cell(2, 3).Range.Text = mystr

MyDocument.Save

Set myWdA = Nothing

Set MyDocument = Nothing

Else

Set myWdA = GetObject(, "WORD.Application")

For Each doc In myWdA.Documents

UU = UCase)

If doc.FullName = T & "\001 在WORD中激活EXCEL.docm" Then

mystr = T(2).Cells(2, 3).Value

'将取得得值设定到Word表格的1行2列中

doc.Tables(1).Cell(2, 3).Range.Text = mystr

doc.Save

Set doc = Nothing

Exit For

End If

Next

Set myWdA = Nothing

End If

End Sub

代码截图：

代码解读：上述代码先利用WordIsOpen函数判断"001 在WORD中激活EXCEL.docm"是否已经打开，如果没有打开，那么利用CreateObject函数建立引用，然后打开这个文件，打开后修正文件文件，如果已经打开了文件，那么首先定位到打开的文件，然后在修正。下面看代码的重点讲解：

① If Not RR Then '创建Word对象

Set myWdA = CreateObject("Word.Application")

myWdA.Visible = True '打开指定文档

Set MyDocument = myWdA.Documen & "\001 在WORD中激活EXCEL.docm")

'获取当前Excel的SHEET2的单元格C2数据

mystr = T(2).Cells(2, 3).Value

'将取得得值设定到Word表格的1行2列中

MyDocument.Tables(1).Cell(2, 3).Range.Text = mystr

MyDocument.Save

Set myWdA = Nothing

Set MyDocument = Nothing

上述代码是打开文件及修正文件的代码。

② Set myWdA = GetObject(, "WORD.Application")

For Each doc In myWdA.Documents

UU = UCase)

If doc.FullName = T & "\001 在WORD中激活EXCEL.docm" Then

mystr = T(2).Cells(2, 3).Value

'将取得的值设定到Word表格的1行2列中

doc.Tables(1).Cell(2, 3).Range.Text = mystr

doc.Save

Set doc = Nothing

Exit For

End If

Next

Set myWdA = Nothing

上述代码是当文件已经打开，定位所给出的文件，然后修订文件的代码。

③ 上述文件修订的代码，我给出的比较简单，大家在实际利用的时候可以发挥使用。

本节知识点回向：如何利用CreateObject函数和GetObject 函数来判断一个给定的文件是否打开？当已经得到文件已经打开时如何定位到这个文件？以上两个问题就是本节要讲解的主要问题，其中的代码完全可以用作通用代码来对待。

备注：本节代码参考文件“001 工作表.xlsm”

我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8

各套教程内容简介:

第7套教程（共三册）：《VBA之EXCEL应用》：是对VBA基本的讲解

第1套教程（共三册）：《VBA代码解决方案》：是入门后的提高教程

第4套教程（16G）：VBA代码解决方案之视频（第一套的视频讲解）

第3套教程（共两册）：《VBA数组与字典解决方案》：是对数组和字典的专题讲解

第2套教程（共两册）：《VBA数据库解决方案》：是对数据库的专题讲解

第6套教程（共两册）：《VBA信息获取与处理》：讲解VBA的网络及跨程序应用

第5套教程（共两册）：VBA中类的解读和利用：类及接口技术的讲解

第8套教程（共三册）：VBA之Word应用（最新教程）：word中VBA的利用

• 第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。