个人网站制作成品图片,流量套餐网站,网站建设早会说什么,昆明市门户网站《VBA信息获取与处理》教程(10178984)是我推出第六套教程#xff0c;目前已经是第一版修订了。这套教程定位于最高级#xff0c;是学完初级#xff0c;中级后的教程。这部教程给大家讲解的内容有#xff1a;跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网…《VBA信息获取与处理》教程(10178984)是我推出第六套教程目前已经是第一版修订了。这套教程定位于最高级是学完初级中级后的教程。这部教程给大家讲解的内容有跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作剪贴板应用、Split函数扩展、工作表信息与其他应用交互FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的更具研究的价值。
教程共两册,二十个专题。今日分享内容是第四节1EXCEL中判断一个WORD文件是否被打开 【分享成果随喜正能量】茶可以品尝人生百味书可以找回心灵的皈依。轻拥一米阳光入怀和着书香任流淌的心事在季节中浅漾生命就在这悠然的时光中婉约成一朵花。。
第四节在EXCEL中打开及修改WORD文件
在上面的专题中我们讲了如何在WORD中打开EXCEL。那么同理如何在EXCEL中打开WORD呢在这讲中我给出专题的讲解这个讲解中我们将利用CreateObject函数和GetObject 函数分别建立一个引用及获取已经打开的WORD文件信息。这讲的内容为了增加实用性我在程序中还给出了如何向WORD的表格非嵌套中添加数据这个数据来源于EXCEL。
1EXCEL中判断一个WORD文件是否被打开
在EXCEL中判断WORD文件是否被打开我们可以利用GetObject 函数获取一个WORD主程序的返回情况。这里我利用一个WordIsOpen的函数过程。代码如下
Function WordIsOpen(ByVal strDocName As String) As Boolean
判断Word文档是否被重复打开
Dim myWd As Object
WordIsOpen False
nbsp;Set myWd Nothing
nbsp;On Error Resume Next
nbsp;strDocName UCase(strDocName)
nbsp;判断是否有Word程序被打开
nbsp;Set myWd GetObject(, WORD.Application)
nbsp;For Each doc In myWd.Documents
nbsp;nbsp;nbsp;nbsp;nbsp;UU UCase(doc.FullName)
nbsp;nbsp;nbsp;nbsp;nbsp;If UU strDocName Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WordIsOpen True
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Exit For
nbsp;nbsp;nbsp;nbsp;nbsp;End If
nbsp;nbsp;Next
Set myWd Nothing
End Function 代码截图 代码讲解这是一个函数过程需要输入一个strDocName的字符串用于我们核对是否打开那个文件的文件名然后我们利用Set myWd GetObject(, WORD.Application)语句捕获是否有word打开的主程序如果有我们将提取每个文件的文件名用于我们的判断。下面看具体的讲解
① WordIsOpen Falsenbsp;首先令WordIsOpen初始值为FALSE
② On Error Resume Nextnbsp;是建立一个错误处理语句这个语句是当没有word文件打开时以便对后续错误进行处理
③ For Each doc In myWd.Documents
nbsp;nbsp;nbsp;nbsp;nbsp;UU UCase(doc.FullName)
nbsp;nbsp;nbsp;nbsp;nbsp;If UU strDocName Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WordIsOpen True
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Exit For
nbsp;nbsp;nbsp;nbsp;nbsp;End If
nbsp;nbsp;Next
上述语句是一个遍历的循环如果打开的文件中含有名称为给出的文件名的文件那么返回的将是WordIsOpen True。 (待续) 备注本节代码参考文件“001 工作表.xlsm” 我20多年的VBA实践经验全部浓缩在下面的各个教程中教程学习顺序
