第四节(1):EXCEL中判断一个WORD文件是否被打开

这篇具有很好参考价值的文章主要介绍了第四节(1):EXCEL中判断一个WORD文件是否被打开。希望对大家有所帮助。如果存在错误或未考虑完全的地方,请大家不吝赐教,您也可以点击"举报违法"按钮提交疑问。

《VBA信息获取与处理》教程(10178984)是我推出第六套教程,目前已经是第一版修订了。这套教程定位于最高级,是学完初级,中级后的教程。这部教程给大家讲解的内容有:跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作,剪贴板应用、Split函数扩展、工作表信息与其他应用交互,FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的,更具研究的价值。

教程共两册,二十个专题。今日分享内容是:第四节(1):EXCEL中判断一个WORD文件是否被打开第四节(1):EXCEL中判断一个WORD文件是否被打开,VBA,OFFICE,开发语言

【分享成果,随喜正能量】茶,可以品尝人生百味;书可以找回心灵的皈依。轻拥一米阳光入怀,和着书香,任流淌的心事,在季节中浅漾,生命就在这悠然的时光中婉约成一朵花。。

第四节在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

 Set myWd = Nothing

 On Error Resume Next

 strDocName = UCase(strDocName)

 '判断是否有Word程序被打开

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

 For Each doc In myWd.Documents

     UU = UCase(doc.FullName)

     If UU = strDocName Then

       WordIsOpen = True

       Exit For

     End If

  Next

Set myWd = Nothing

End Function

代码截图:

第四节(1):EXCEL中判断一个WORD文件是否被打开,VBA,OFFICE,开发语言

代码讲解:这是一个函数过程,需要输入一个strDocName的字符串,用于我们核对是否打开那个文件的文件名,然后我们利用Set myWd = GetObject(, "WORD.Application")语句捕获是否有word打开的主程序,如果有,我们将提取每个文件的文件名,用于我们的判断。下面看具体的讲解:

① WordIsOpen = False 首先令WordIsOpen初始值为FALSE

② On Error Resume Next 是建立一个错误处理语句,这个语句是当没有word文件打开时以便对后续错误进行处理

③ For Each doc In myWd.Documents

     UU = UCase(doc.FullName)

     If UU = strDocName Then

       WordIsOpen = True

       Exit For

     End If

  Next

上述语句是一个遍历的循环,如果打开的文件中含有名称为给出的文件名的文件,那么返回的将是WordIsOpen = True。

(待续)

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

第四节(1):EXCEL中判断一个WORD文件是否被打开,VBA,OFFICE,开发语言

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

第四节(1):EXCEL中判断一个WORD文件是否被打开,VBA,OFFICE,开发语言

第四节(1):EXCEL中判断一个WORD文件是否被打开,VBA,OFFICE,开发语言文章来源地址https://www.toymoban.com/news/detail-726671.html

到了这里,关于第四节(1):EXCEL中判断一个WORD文件是否被打开的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处: 如若内容造成侵权/违法违规/事实不符,请点击违法举报进行投诉反馈,一经查实,立即删除!

领支付宝红包 赞助服务器费用

相关文章

  • element ui vue 附件预览组件、可预览图片、excel 、pdf.word等文件(浏览器打开文件的方式)

    目录 1.组件源码  2.html 代码 3.组件源码  此组件就是一个单纯的预览图片、浏览器打开文件的形式简单的组合了下而成的,word、excel是直接下载、pdf浏览器打开的形式,如果想本地打开直接预览的话就直接不用看了。word、excel、pdf 的图片是我放到服务器上的图片地址。 1.组

    2024年02月11日
    浏览(77)
  • Java Excel 打开文件报发现“xx.xlsx”中的部分内容有问题。是否让我们尽量尝试恢复问题解决

    发现“文件.xlsx”中的部分内容有问题。是否让我们尽量尝试恢复? 1、后端的导出接口写的不对,又返回流数据,又返回响应体数据,导致前端将流数据和响应体数据都下载到了excel文件中。  解决办法: 接口仅返回流数据即可。

    2024年02月13日
    浏览(63)
  • 对于双击用Microsoft Office(包括Word、Excel、Powerpoint)打开文件之后展示文件名自动更改、文件名加1等情况的解决办法

    本方法由微软客服提供。其不只提供了一种方法,本人按照提供的方法按序操作但是最终解决本人问题的只有最后一种方法。代码段来自微软帮助我解决问题的客服人员。感谢他们的工作和付出。 戴尔G15        Windows11重装Windows10        正版 Microsoft Office 家庭和学生版 2

    2024年02月12日
    浏览(287)
  • 修改注册表来解决Microsoft Office中word和excel表格打开新文件时前面最小化的文件重新弹出显示的问题

    word: 1. 关闭所有Word窗口。 2. 打开注册表编辑器(运行输入regedit并按回车) 3. 打开以下注册表路径: HKEY_CLASSES_ROOTWord.Document.12ShellOpencommand 4. 右击右侧栏\\\"默认\\\",点修改,在数据数值框中,在/n前加上/q命令(/q和/n中间有个空格) 5. 点击确定。 注:(1)针对docx文件 HKEY_C

    2024年02月04日
    浏览(123)
  • 判断电话号码是否重复-excel

    有时候重复的数据不需要或者很烦人,就需要采取措施,希望以下的方法能帮到你。 方法一: 1)针对第一个单元格输入等号,以及公式countif(查找记录数的范围,需要查找的单元格) 2)输入enter之后,然后鼠标变为黑色的加号后,往下拉自动填充,如下图所示。 方法二:先

    2024年02月03日
    浏览(58)
  • 解决python workbook处理excel文件后打开报错问题:发现“.xlsx”中的部分内容有问题。是否让我们尽量尝试恢复?如果您信任此工作簿的源,请单击“是”。

    使用python workbook处理excel文件、保存后,再次打开提示: #发现“新建 Microsoft Excel 工作表.xlsx”中的部分内容有问题。是否让我们尽量尝试恢复?如果您信任此工作簿的源,请单击“是”。 #Excel 已完成文件级验证和修复。此工作簿的某些部分可能已被修复或丢弃。 #单击查看

    2024年02月11日
    浏览(50)
  • Android 应用内打开Word、Excel、PPT、PDF等文档

    Android平台中,可以使用以下几种方式打开Word和Excel文档: 预览图: 一:直接上传给第三方之后用webview打开         1、微软:         https://view.officeapps.live.com/op/view.aspx?src=文件链接         2、XDOC文档预览服务         http://www.xdocin.com/xdoc?_func=to_format=html_cache=tru

    2024年02月16日
    浏览(43)
  • VBA技术资料MF34:检查Excel自动筛选是否打开

    【分享成果,随喜正能量】聪明人,抬人不抬杠;傻子,抬杠不抬人。聪明人,把别人抬得很高,别人高兴、舒服了,看你顺眼了,自然就愿意帮你!而傻人呢?不分青红皂白,和人家抬杠,别人不高兴、不舒服,怎么会愿意帮你呢?果真是:会说话的想着说,不会说话的抢

    2024年02月15日
    浏览(41)
  • 怎么判断一个ip地址是否正确

    在网络通信和计算机领域中,IP地址(Internet Protocol Address)是一个关键的概念。但是,很多人对于如何判断一个IP地址是否正确感到困惑。本文将深入探讨这个问题,并提供一些实用的方法来验证IP地址的正确性。 IP地址是由四个数字组成,每个数字的范围是0到255之间,用点

    2024年02月09日
    浏览(65)
  • js中判断一个对象是否存在

    一、Boolean()方法 用Boolean()方法可以将Js中的任意数据类型转为布尔值: 二、用于判断xx是否存在 js一般会自动执行Boolean()方法,我们可以借此判断某个对象在js当前的执行环境中知否存在。如: 又如,可以判断当前环境下某个对象是否存在。 在为一个元素绑定了某个事件后,

    2024年02月13日
    浏览(60)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

博客赞助

微信扫一扫打赏

请作者喝杯咖啡吧~博客赞助

支付宝扫一扫领取红包,优惠每天领

二维码1

领取红包

二维码2

领红包