vboffice办公技巧(API函数ShellExecute彻底解决VBA文件打开对话框打开任意类型文件)

各位Office办公的粉丝朋友大家好，我们前几期作品中多次出现通过对话框的形式选择文件或文件夹的操作，在一定意义上讲，选取文件或文件夹的自由度更高和更快捷。比如：我们经常将Excel或Word文档中的图片如何存储到外部指定的文件目录路径中，如果运用了对话框的形式，将大大提高了这种目录路径的选择的自由度；再比如：前期我们有一个关于Excel汇聚外部Excel文档数据的操作，我们也充分利用了文件选取对话框实现多个文件的选择操作，这样就比在代码中手动指定文件的信息国家的方便快捷。

然而，无独有偶的是，一个粉丝在私信我提到一个问题，可否实现选择一个文件，而且是任意类型的文件，当点击文件选择对话框的<打开>按钮后，能真实地打开选择的文件。这位粉丝朋友提到选择打开文件对话框“Application.FileDialog(msoFileDialogOpen)”的“.Execute”方法的局限性，他称这个对话框的“.Execute”方法只能对Word、Excel、PowerPoint文档有效果，似乎对于其他类型的文档文件不起任何作用。反对的人称，在该对话框中打开office文档，你干嘛要打开不相干的非office文档？没事做吗？呵呵，当然，这确实也是遭到其他要求该对话框的完美主义者所诟病的短板。

有没有解决这个问题的方法呢？带着这个问题，我认真琢磨了一下，大致有了些许眉目，实现的步骤是首先利用文件打开对话框选择文件的全路径信息(这一点不用质疑，应该很容易办到的)，然后采取调用Windows的外部API的强制打开文件的shell函数去实现打开指定路径的文档文件。关于shell，通俗地将就是Windows的内置的外部命令，它可以以最大权限执行应用程序内部没法执行的操作。当然，要使用它们，必须要在应用程序中先声明(关于API函数的声明，不是很复杂，各位可以去网上搜索就可以参照实现)，才可以使用。

下面，我先来熟知下本次作品的关于打开任意类型文件的API函数ShellExecute的用法吧。

一、API函数ShellExecute用法

(一)函数功能：

你可以给它任何文件的名字，它都能识别出来并打开它。

(二)函数原型：

HINSTANCE ShellExecute(HWND hwnd, LPCTSTR lpOperation,LPCTSTR lpFile, LPCTSTR lpParameters, LPCTSTR lpDirectory,INT nShowCmd);

(三)参数说明：

1--hwnd: 用于指定父窗口句柄。当函数调用过程出现错误时，它将作为Windows消息窗口的父窗口。

2--lpOperation: 用于指定要进行的操作。“open”操作表示执行由lpFile参数指定的程序，或打开由lpFile参数指定的文件或文件夹；“print”操作表示打印由lpFile参数指定的文件；“explore”操作表示浏览由lpFile参数指定的文件夹。当参数设为NULL时，表示执行默认操作“open”。

3--lpFile:用于指定要打开的文件名、要执行的程序文件名或要浏览的文件夹名。

4--lpParameters:若lpFile参数是一个可执行程序，则此参数指定命令行参数，否则此参数应为NULL.

5--lpDirectory:用于指定默认目录.

6--nShowCmd:若lpFile参数是一个可执行程序，则此参数指定程序窗口的初始显示方式，否则此参数应设置为0。

这个参数常用的常数：

(1)--SW_HIDE 隐藏窗口，活动状态给令一个窗口

(2)--SW_MINIMIZE 最小化窗口，活动状态给令一个窗口

(3)--SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态

(4)--SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态

(5)--SW_SHOWMAXIMIZED 最大化窗口，并将其激活

(6)--SW_SHOWMINIMIZED 最小化窗口，并将其激活

(7)--SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口

(8)--SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口

(9)--SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口

(10)--SW_SHOWNORMAL 与SW_RESTORE相同

若ShellExecute函数调用成功，则返回值为被执行程序的实例句柄。若返回值小于32，则表示出现错误。

(四)使用方法：

1--语法格式使用举例：

ShellExecute(NULL,"open","iloveu.bmp",NULL,NULL,SW_SHOWNORMAL);

2--说明：

用缺省的位图编辑器打开一个叫iloveu.bmp的位图文件，这个缺省的位图编辑器可能是 Microsoft Paint, Adobe Photoshop, 或者 Corel PhotoPaint。

3--使用意义：

这个函数能打开任何文件，甚至是桌面和URL快捷方式（ .ink或 .url）。ShellExecute解析系统注册表HKEY_CLASSES_ROOT中所有的内容，判断启动那一个执行程序，并且启动一个新的实例或使用DDE将文件名连到一打开的实例。然后，ShellExecute 返回打开文件的应用的实例句柄。

ShellExecute(NULL, "open", "http://www.microsoft.com", NULL, NULL, SW_SHOWNORMAL);

这个代码使你能访问微软的主页。当ShellExecute遇到文件名前面的“http:”时，可以判断出要打开的文件是Web文件，随之启动Internet Explorer 或者 Netscape Navigator 或者任何你使用的别的浏览器打开文件。

ShellExecute还能识别其它协议，象FTP、GOPHER。甚至识别“mailto”，如果文件名指向“mailto:zxn@hq.cninfo.net”,它启动电子邮件程序并打开一个待编辑的新邮件，例如：

ShellExecute(NULL, "open",“mailto:zxn@hq.cninfo.net”, NULL, NULL, SW_SHOWNORMAL);打开新邮件窗口。

总之，ShellExecute函数就是如此简单地打开磁盘文件和Internet文件。如果将第二个参数“OPEN”改为“PRINT”或者“EXPLORE”，ShellExecute将能打印文件和打开文件夹。ShellExecute还有一个扩展函数ShellExecuteEx，所带参数中有一个特殊的结构，功能更强，或者任何你使用的别的浏览器打开文件

从上面我们可以看到，功能上API函数ShellExecute还是比较强大的，有了对ShellExecute的熟悉认识，下面我们就来看看具体对它的运用吧。

二、用ShellExecute打开任意类型文件的Word文档界面设计

我们本次作品在一个Word文档中实现，前端操作界面里，我们插入一个ActiveX命令按钮，并设置其属性。如下图所示

图1 ShellExecute打开任意类型文件的Word文档界面

三、用ShellExecute打开任意类型文件的操作体验

(一)点击上面界面的命令按钮<调用API外部命令Shell打开任意类型文件>，将弹打开文件的文件选取对话框。如下图所示

图2 弹出的选取文件对话框

(二)如果在上面的对话框中点击<取消>或该对话框的标题栏的按钮，将弹出取消操作的提示。如下图所示

图3 取消了打开文件对话框的文件的选取操作

(三)在上面的对话框中选择一个Excel文档文件，点击<打开>按钮，将执行打开该类型文档文件的命令。如下图所示

图4 选择一个Excel类型的Office文档文件，准备打开

(四)打开的该Excel类型的Office文档文件效果。如下图所示

图5 打开的该Excel类型文件

(五)在上面的对话框中若重新选择一个Word文档文件，点击<打开>按钮，将执行打开该类型文档文件的命令。如下图所示

图6 选择一个Word类型的Office文档文件，准备打开

(六)打开的该Word类型的Office文档文件效果。如下图所示

图7 打开的该Word类型文件

(七)在上面的对话框中若重新选择一个PowerPoint文档文件，点击<打开>按钮，将执行打开该类型文档文件的命令。如下图所示

图8 选择一个PowerPoint类型的Office文档文件，准备打开

(八)打开的该PowerPoint类型的Office文档文件效果。如下图所示

图9 打开的该PowerPoint类型文件

(九)在上面的对话框中若重新选择非Office类型的文件，点击<打开>按钮，将执行打开该类型文件的命令。如下图所示

图10 选择一个非Office类型的文件，准备打开

(十)打开一个非Office类型的文件效果。如下图所示

图11 打开一个非Office类型的文件

从上面，我们已经见证了Windows的API Shell函数ShellExecute的强大功能，事实上，该shell命令不仅可以打开普通的文件，甚至还可以打开基于URL的任意资源，这种操作功能明显大大强于打开文件对话框“Application.FileDialog(msoFileDialogOpen)”的“.Execute”方法属性，可以在某种意义上将该ShellExecute函数强大到和诸多的文件对话框没有朋友。哈哈，这里只是调侃一下，如果我们要求不高，仅仅是Office内部文档的打开的情况下，用“Application.FileDialog(msoFileDialogOpen)”的“.Execute”方法属性足够啦！

操作体验过后，我们是不是也该对后台VBA代码如何实现知其所以然呢？下面，我们，就来分享一下后台VBA功能代码吧。

四、用ShellExecute打开任意类型文件实现的VBA后台功能代码

(一)ThisDocument内的前端命令按钮的单击事件代码截图

图12 前端命令按钮的单击事件代码

(二)模块1中用shell打开文件的功能代码截图

图13 用shell打开文件的功能代码

至此，完整给各位粉丝朋友分享了关于打开任意类型文件的超强操作方法，希望这个大家好好收藏，大胆去实现吧！

最后，还是那句老话，非常感谢各位粉丝朋友的长期关注(头条号：跟我学Office高级办公)、推广和对作品的点评！疫情快过去了，加之天气越来越热了，大家还是要多多注意身体健康哦，与此同时，也请多多关注我的Office高级办公有实用意义的后续原创作品哦！谢谢！