这是一个非常有趣的技能！你可以通过你给的文件名得到可以在电脑中打开文件的EXE程序，也就是你可以执行这个程序。有时候，我们可能真的需要找一个可以打开指定文件名的EXE程序，然后打开它。或者，看看电脑里有没有可以打开指定文件名的EXE程序，然后决定做下一步。

获取可在计算机中打开指定文件的EXE程序的代码：

' API语句。

声明函数FindExecutable Lib" shell32.dll "别名" FindExecutableA " "

(按值文件作为字符串，按值目录作为字符串，按值结果作为字符串)一样长

函数执行路径(作为字符串的文件)作为字符串

将目录作为字符串变暗

将字符串路径调暗为字符串

变暗lrc为长

lpDirectory=" "

strExePath=空间(255)

lrc=查找可执行文件(lpFile，lpDirectory，strExePath)

strExePath=Left$(strExePath，InStr(strExePath，Chr $(0))1)

ExePath=strExePath

结束功能

现在，我们希望得到一个Excel应用程序，它可以打开代码所在的工作簿，并使用代码：

MsgBox ExePath(此工作簿。全名)

结果如下图1所示。

图1

您也可以指定一个文件来获取它的EXE程序，例如：

Sub Test_ExePath()

将字符串形式的字符串修改为字符串

Strspec file="d: 附件13g.pdf "。

如果ExePath(strSpecFile)=" "那么

MsgBox“在这台计算机上找不到这个文件的可执行程序。”，vbCritical，“错误”。

出口接头

其他

MsgBox ExePath(strSpecFile)

如果…就会结束

末端接头

运行结果如下图2所示。

图2。