做平面素材好的网站,响水县住房和城乡建设局网站,电子商务推广方式,装修设计公司图片《VBA信息获取与处理》教程(10178984)是我推出第六套教程#xff0c;目前已经是第一版修订了。这套教程定位于最高级#xff0c;是学完初级#xff0c;中级后的教程。这部教程给大家讲解的内容有#xff1a;跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网…《VBA信息获取与处理》教程(10178984)是我推出第六套教程目前已经是第一版修订了。这套教程定位于最高级是学完初级中级后的教程。这部教程给大家讲解的内容有跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作剪贴板应用、Split函数扩展、工作表信息与其他应用交互FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的更具研究的价值。
教程共两册,二十个专题。今日分享内容是第四节2修改WORD中表格数据的方案 【分享成果随喜正能量】人生像一只皮箱需要用的时候提起不用的时就把它放下应放下的时候却不放下就像拖着沉重的行李无法自在。人生的岁月有限认错、尊重、包容才能让人接受放下才自在啊。
第四节在EXCEL中打开及修改WORD文件
在上面的专题中我们讲了如何在WORD中打开EXCEL。那么同理如何在EXCEL中打开WORD呢在这讲中我给出专题的讲解这个讲解中我们将利用CreateObject函数和GetObject 函数分别建立一个引用及获取已经打开的WORD文件信息。这讲的内容为了增加实用性我在程序中还给出了如何向WORD的表格非嵌套中添加数据这个数据来源于EXCEL。
2主程序及修改WORD中的表格数据的方案
在中主程序中我们将利用WordIsOpen函数对我们需要判断的文件进行判断如果没有打开那么执行打开操作再进行修改如果已经打开那么执行修改操作。 代码如下
Sub MYNZB()
nbsp;nbsp;nbsp;nbsp;Dim RR As Boolean
nbsp;nbsp;nbsp;nbsp;Dim myWdA As Object
nbsp;nbsp;nbsp;nbsp;Dim MyDocument As Object
nbsp;nbsp;nbsp;nbsp;RR WordIsOpen(ThisWorkbook.Path \001 在WORD中激活EXCEL.docm)
nbsp;nbsp;nbsp;nbsp;If Not RR Then 创建Word对象
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Set myWdA CreateObject(Word.Application)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;myWdA.Visible True 打开指定文档
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Set MyDocument myWdA.Documents.Open(ThisWorkbook.Path \001 在WORD中激活EXCEL.docm)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;获取当前Excel的SHEET2的单元格C2数据
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mystr ThisWorkbook.Sheets(2).Cells(2, 3).Value
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;将取得得值设定到Word表格的1行2列中
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;MyDocument.Tables(1).Cell(2, 3).Range.Text mystr
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;MyDocument.Save
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Set myWdA Nothing
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Set MyDocument Nothing
nbsp;nbsp;nbsp;nbsp;Else
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Set myWdA GetObject(, WORD.Application)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;For Each doc In myWdA.Documents
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;UU UCase(doc.FullName)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;If doc.FullName ThisWorkbook.Path \001 在WORD中激活EXCEL.docm Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mystr ThisWorkbook.Sheets(2).Cells(2, 3).Value
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;将取得得值设定到Word表格的1行2列中
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;doc.Tables(1).Cell(2, 3).Range.Text mystr
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;doc.Save
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Set doc Nothing
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Exit For
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End If
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Next
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Set myWdA Nothing
nbsp;nbsp;nbsp;nbsp;End If
End Sub 代码截图 代码解读上述代码先利用WordIsOpen函数判断001 在WORD中激活EXCEL.docm是否已经打开如果没有打开那么利用CreateObject函数建立引用然后打开这个文件打开后修正文件文件如果已经打开了文件那么首先定位到打开的文件然后在修正。下面看代码的重点讲解
① If Not RR Then 创建Word对象
nbsp;nbsp;Set myWdA CreateObject(Word.Application)
nbsp;nbsp;myWdA.Visible True 打开指定文档
nbsp;nbsp;Set MyDocument myWdA.Documents.Open(ThisWorkbook.Path \001 在WORD中激活EXCEL.docm)
nbsp;nbsp;获取当前Excel的SHEET2的单元格C2数据
nbsp;nbsp;mystr ThisWorkbook.Sheets(2).Cells(2, 3).Value
nbsp;nbsp;将取得得值设定到Word表格的1行2列中
nbsp;nbsp;MyDocument.Tables(1).Cell(2, 3).Range.Text mystr
nbsp;nbsp;MyDocument.Save
nbsp;nbsp;Set myWdA Nothing
nbsp;nbsp;Set MyDocument Nothing
上述代码是打开文件及修正文件的代码。
② Set myWdA GetObject(, WORD.Application)
nbsp;nbsp;nbsp;For Each doc In myWdA.Documents
nbsp;nbsp;nbsp;nbsp;nbsp;UU UCase(doc.FullName)
nbsp;nbsp;nbsp;nbsp;nbsp;If doc.FullName ThisWorkbook.Path \001 在WORD中激活EXCEL.docm Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mystr ThisWorkbook.Sheets(2).Cells(2, 3).Value
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;将取得的值设定到Word表格的1行2列中
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;doc.Tables(1).Cell(2, 3).Range.Text mystr
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;doc.Save
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Set doc Nothing
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Exit For
nbsp;nbsp;nbsp;nbsp;nbsp;End If
nbsp;nbsp;nbsp;Next
nbsp;nbsp;nbsp;Set myWdA Nothing
上述代码是当文件已经打开定位所给出的文件然后修订文件的代码。
③ 上述文件修订的代码我给出的比较简单大家在实际利用的时候可以发挥使用。 本节知识点回向如何利用CreateObject函数和GetObject 函数来判断一个给定的文件是否打开当已经得到文件已经打开时如何定位到这个文件以上两个问题就是本节要讲解的主要问题其中的代码完全可以用作通用代码来对待。 备注本节代码参考文件“001 工作表.xlsm” 我20多年的VBA实践经验全部浓缩在下面的各个教程中教程学习顺序
