利用shell（）函数在Word中打开Excel（2）

　　【分享成果，随喜正能量】保持快乐的秘诀，其实就是五个字：不要太用力。做事业不要急于求成，交朋友不要掏心掏肺，谈恋爱不要占有，过日子不要追求完美。。

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

　　教程共两册,二十个专题。今日分享内容是：利用shell()函数在Word中打开Excel（2）

　　

　　在WORD中打开EXCEL的方案中，作为通用讲解，我这里提供给大家两种方案。这种操作虽然有很多的方法，本节利用的两种方案也或许不符合你的编程习惯，但这没有关系，我的教程就是把我认为比较好的应用介绍给大家。读者可以尝试。

　　关于shell()函数，我在我的第一套教程“VBA代码解决方案”中给大家讲解过，这里再给大家讲解一下：shell（），它既不是工作表函数，也不是api函数，它是vba自带的函数。api是应用程序接口，shell是应用程序和系统之间的桥梁。

　　它的用法很简单，就是执行一个可执行文件。与开始菜单的运行功能一样。

　　语法：Shell(pathname[,windowstyle])

　　pathname 是要执行的程序名，可能还包括目录或文件夹

　　Windowstyle 表示在程序运行时窗口的样式

　　常数 值 描述

　　vbHide　　　　　 　 0 窗口是隐藏的，并且焦点被传递给隐藏窗口。

　　vbNormalFocus　　 1 窗口拥有焦点，并且恢复到原来的大小与位置。

　　vbMinimizedFocus 　 2 窗口缩小为图符并拥有焦点。

　　vbMaximizedFocus 　 3 窗口最大化并拥有焦点。

　　vbNormalNoFocus 　 4 窗口被恢复到最近一次的大小与位置。当前活动窗口仍为活动窗口。

　　vbMinimizedNoFocus 6 窗口缩小为图符。当前活动窗口仍为活动窗口。

　　下面我们看看打开”001 工作表.XLSM"，的代码：

　　Sub mynz()

　　myfile = Chr(34) & ActiveDocument.Path & "001 工作表.XLSM" & Chr(34)

　　Shell "excel.exe " & myfile

　　End Sub

　　代码截图：

　　

　　代码讲解：这段代码是非常简单的，将路径和文件名赋给shell函数后就可以实现，需要我们注意的是语句的写法，chr(34)代表的是双引号，需要用双引号将文件名再次括起来，然后这个函数才可以正确的读懂含有空格的文件名，当然不要忘了在excel.exe的后面也要加上空格。

　　本节知识点回向：上面的两种方案都是可以打开EXCEL文件的，我们在实际的应用中可以选择利用。在本节中我们需要注意下面几个知识点：

　　① 如何建立应用程序的引用。

　　② 如何利用OPEN语句打开文件。

　　③ 如何利用shell函数打开文件。

　　④ 利用shell函数如何处理文件名中的空格问题。

　　本节代码参考文件“001 在WORD中激活EXCEL.docm”

　　

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

　　

　　【分享成果，随喜正能量】获得什么便珍惜什么，失去什么便接受什么，给我的我欢喜，不给我的我不焦虑。就是这样，付七分力气，留三分给嬉戏。 。

　　举报/反馈