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
猜你喜欢
- 如下图所示,我用英语输入了我的名字,Word却对我的名字开始疑神疑鬼了,亮出红色波浪线向我献殷勤。 我不能容忍Wo
- word导入pdf图片的时候总是压缩图像该怎么办?图片是使用 Acrobat做的pdf图片,但是导入word后发现一个问题,导入的图片经常被
- 对于 Outlook (以 Outlook 2010 为例)新建一份邮件。然后在新建邮件中,单击“文件-选项”。(Outlook 2007
- 本章来教大家如何让Excel2013的单元格中无法输入2位以上的小数,在有些情况下,我们还是会用到的之前我们介绍了很多限制单元格输入的教程,
- wps大纲级别自动生成文字目录怎么弄1、在写文档时,我们基本上已经知道要生成怎样的目录,如下图,我的这份文档一共有六大项,在第三大项下又分了
- 使用excel的时候,有的时候我们需要做下拉页面,其实操作方法不是很难,那么Excel怎么做下拉页面?下面小编就为大家介绍Excel下拉的按
- 在很多Excel操作步骤中都可以看到CTRL+G的影子,那么,Excel表格中ctrl+g组合快捷键的作用有哪些呢?今天小编就给大家整理了c
- 在使用Word文档工作时,难免会遇到部分页面要改成横向页面的格式,而你的文档是纵向的,那么word表格如何横向显示?一起来看看吧!1、表格横
- 我们在word 2010中使用多级列表为段落添加编号,可以通过编号的级别来区分段落的级别高低。对于添加到文档中的多级列表,用户可以使用增加或
- Win10怎么使用bat文件一键清理电脑系统垃圾?许多用户在使用电脑的时候,几乎都没有养成定期清理电脑缓存垃圾的习惯,导致电脑随着使用时间的
- 有些朋友自己装了Office2010,但是周围的朋友还在用Office2003,这时会出现文件格式的不兼容。比如Word 2010默认保存文
- Excel 是微软办公套装软件的一个重要的组成部分,它可以进行各种数据的处理、统计分析和辅助决策操作,广泛地应用于管理、统计财经、金融等众多
- 1.打开需要编辑修改的WPS文档 2.然后点击工具栏的“插入”→“形状” 3.插入直线,
- 在日常办公的过程中,我们可能会遇到这样一种现象:要把sheet1中的数据进行运算,但结果是显示在sheet2中,这是怎么做到的呢?如图:sh
- 使用word形状怎么设置成上下型环绕?想在文章正文里面插入Word形状,但会盖住文章内容该怎么设置?小Q来给您演示一下。1、点击插入>
- Word怎么设置自动重复首行文字标题?很多时候,word中表格一页装不小,需要延续到第二页,或者是很多页,这时候我们希望每多一页就会自动出现
- 怎么将扫描的A4纸张图片转换为PDF并压缩大小?在报考执业医师的时候,需要将A4图片但是不能超过2兆,但是扫面的A4照片是很大的,该怎么转化
- Win10如何强制删除流氓软件?我们在电脑中安装一些软件的时候总会遇到一个软件捆绑着好多流氓软件的情况,这种软件非常恶习,一旦进行安装,就是
- 我们可以对word文档中插入的艺术字进行编辑。word 2016编辑艺术字包括改变字体的填充效果、轮廓和外观。通过这些设置可以创建具有自身特
- pdf文件怎么设置双面打印?pdf文件很多,单面打印太浪费纸,所以像双面打印,但是打印机不支持双面打印,该怎么办呢?下面分享pdf双面打印设