作者：乔山办公网日期：
返回目录：excel表格制作
打开文件 执行打印输出 就不会了 我也搞条码的 嘿嘿
mOpen = Shell("Explorer.exe D:\TM.BTW\", vbNormalFocus)
可以使用shell命令，例如下面的语句打开【记事本】：
shell "notepad.exe"
Private Sub Workbook_Open()
call 宏2
End Sub
将以上代码复制到book2的thisworkbook下
使用shell函数即可。
shell函数用法：Shell(pathname[,windowstyle])
函数带有两个参数：第一个pathname是必要参数。要执e799bee5baa6e79fa5e98193e4b893e5b19e361行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。第二个Windowstyle是可选参数。表示在程序运行时窗口的样式。如果省略，则程序是以具有焦点的最小化窗口来执行的。
第二参数Windowstyle 参数设置不同的值，打开的程序有不同的效果，其对应关系如下：
0——窗口被隐藏，且焦点会移到隐式窗口
1——窗口具有焦点，且会还原到它原来的大小和位置。
2——窗口会以一个具有焦点的图标来显示。
3——窗口是一个具有焦点的最大化窗口。
4——窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
6——窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
举例——假定用VBA来打开计算器程序，并使计算器窗口具有焦点，且还原到它原来的大小和位置，代码如下：
Sub VBA调用其他程序示例()
Shell "calc.exe", 1
End Sub
说明：
1、Shell函数具有返回值，如果打开程序成功的话，返回代表这个程序的任务ID，若不成功，则会返回0，示例中不需用它的返回值，按VBA规则就不能用括号。
2、这里打开的是系统文件夹里面的程序，所以省略了路径，如果打开其他文件夹的程序，则需要指明路径。