excel使用VBA获取能够打开指定文件的EXE程序
发布时间：2023-04-26 14:05:27
这是一个很有趣的技巧！可以通过你给定的文件名来获取计算机中可以打开该文件的EXE程序，即可执行程序。有时候，我们可能真的需要找到可以打开指定文件名的EXE程序，然后打开它。或者，要看看计算机中是否有可以打开指定文件名的EXE程序，然后好决定做下一步的操作。
实现获取计算机中可以打开指定文件的EXE程序的代码：
‘API声明
Declare Function FindExecutable Lib”shell32.dll” Alias “FindExecutableA” _
(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult AsString) As Long
Function ExePath(lpFile As String) As String
Dim lpDirectory As String
Dim strExePath As String
Dim lrc As Long
lpDirectory = “\”
strExePath = Space(255)
lrc = FindExecutable(lpFile, lpDirectory, strExePath)
strExePath = Left$(strExePath, InStr(strExePath, Chr$(0)) – 1)
ExePath = strExePath
End Function
现在，我们要获取能够打开代码所在工作簿的Excel应用程序，使用代码：
MsgBox ExePath(ThisWorkbook.FullName)
结果如下图1所示。
图1
也可以指定一个文件来获取其EXE程序，例如：
Sub Test_ExePath()
Dim strSpecFile As String
strSpecFile = “D:\附件13g.pdf”
If ExePath(strSpecFile) = “” Then
MsgBox “没有发现本计算机中有这个文件的可执行程序.”,vbCritical, “错误”
Exit Sub
Else
MsgBox ExePath(strSpecFile)
End If
End Sub
运行后的结果如下图2所示。
图2
0
投稿猜你喜欢
怎么点亮QQ输入法图标登录QQ，进入图标管理器找到QQ输入法图标，点击进入。 “QQ输入法”→“个人中- 今天，微软向负责在其组织系统上部署 Windows 更新的 IT 管理员发出警告，本文就为大家带来了详细的解决方法，需要的朋友一起看看吧微软
- win11 tpm是什么？近日，“TPM 2.0”成为了大家讨论的热点，很多用户之前都不了解这个功能作用，而现在它竟然成为了Windows
- 很多用户在使用电脑的时候浏览器自动弹出网页，遇到win8浏览器自动弹出网页怎么解决？下面小编就为大家介绍win8浏览器自动弹出网页解决方法。
- 现在很多的用户会需要使用办公软件，办公软件可以让用户在线编辑文件，利用软件里提供的功能来轻松完成，用户操作起来非常的便捷，说起办公软件，wp
- PPT怎么绘制类似海星的图形？ppt中想要绘制一个图形，看上去像是海星，但是是有多个相同的图形旋转的得到的新图形，下面我们就来看看详细的绘制
- Windows10系统下如何调出图标选中蓝色框？在Windows系统下，正常我们鼠标点选桌面图标的话，会出现蓝色的框框，但是有用户升级Win
- 很多时候，我们常常会误删一些文件，所以我们也经常去回收站里面还原文件。不过，最近却有Win7用户反映，误删文件后要去回收站里还原的时候，突然
- upupoo该怎样隐藏桌面图标？官网目前版本是1.1.0.20版本的啊噗啊噗软件，很多小伙伴碰到了安装完软件后，桌面无法显示原本桌面图标的情
- 通过设置Excel2010工作表的行高和列宽，可以使Excel2010工作表更具可读性。在Excel2010工作表中设置行高和列宽的步骤如下
- 根据下面的实例，我们来了解学习下如何通过Excel来进行资本预算编制计划。某食品生产商为了扩大生产规模和提高生产效率，要制定今后两年的资本预
- 本文主要研究了动态手势识别在PPT 播放当中的应用，即在播放过程中能够通过动态手势控制PPT 的翻页。首先在动态手势检测的研究中，通过采用背
- 和许多浏览器产品一样，火狐也会自动检查是否被用户设置为默认浏览器。当然，如果设备上存在多个浏览器产品的话，也可以禁止这一检查！那么，该怎么操
- 很多朋友在进行制作word文档时需要添加条形码，这可能很多老用户都不懂，今天小编便为大家带来word文档添加条形码的教程，让大家进一步了解w
- word2013怎么从某页开始设置页码?Word是一款功能强大的文字处理系统,需要熟练地掌握和巧妙使用Word的各种技巧,才能达到事半功倍的
- Excel中经常需要使用到公式减法为数据进行求差，公式减法具体该如何操作才能顺利求差呢?接下来是小编为大家带来的excel表格做公式减法的教
- 你知道如何启用或禁用Mac启动音吗？Mac具有独特的启动声音，每次启动Mac时都会发出。除了2016年至2020年之间售出的Mac外，它是每
- 今天小编为大家带来了win10更新包擅自卸载用户软件怎么办 解决方法介绍，感兴趣的朋友们可以跟着小编去下文了解一下哦win10正式版正式推出
- 生活中，年轻人经常戴着耳机听音乐和运动，耳机也是不一样的，比如蓝牙5.0和5.2的区别，我们听音乐时经常使用的蓝牙耳机你知道吗？区别在哪里？
- ARP防火墙怎么打开？ARP防火墙能够提供多种系统防护功能，那么Win10系统该如何开启ARP防火墙呢？本文就给大家介绍Win10系统电脑A
