利用VBA控制其它应用程序.docx

第九章利用VBA控制其它应用程序

作者：JulittaKoro翻l译：TigerChenApr5’2005

你每天在办公室里或者家里在你的电脑上工作时，都要用到很多种应用程序。要从你的硬盘或者软盘上查找某个文件的话，你就要打开视窗浏览器。当你要设置系统时间或者更改屏幕外观的话，可以点击控制面板上的相应的图标。如果你的电脑上安装了微软办公软件套餐的话，就可以使用Word创建各种各样的文件，并且依靠Excel进行所有的计算。微软Access对于保存重要的数据表非常有用，而PowerPoint则有助于你使用声音和图片。最后，微软Outlook使你易于保存你的联系、时间和约会并且分享给他人。使用这些应用软件的时候，你经常要在他们之间切换，你可以使用键盘直接输入数据或者复制或移动数据。这些操作——打开应用程序以及在它们之间传输数据时不需要手动操作的。它们可以通过一些很有趣的VBA函数和指令来自动完成。在本章，你将学习多种从VBA过程里打开应用程序的方法，并且找到如何使用称为自动化的技术直接从微软Excel直接控制其它应用程序。

启动应用程序

启动一个应用程序的方法不止一个，实际上，你至少可以使用五种方法手动打开某个程序：通过“开始”|“程序”菜单，快捷键，“运行”命令，MS-DOS 窗口，或者在视窗浏览器里双击可执行文件。

本节假设你对手动启动应用程序很熟悉，并且很想从Excel内部的VB编辑窗口试验其它启动应用程序的方法。

我们从最简单的开始吧——Shell函数。该函数使你可以从VBA过程里直接打开任意程序。假设你的过程必须打开视窗记事本，要打开记事本，你所有要做的就是在关键字Sub和EndSub之间加上一条语句，或者更好的方法是在立即窗口里输入下述语句，并且按下回车键：

Shellnotepad.exe,vbMaximizedFocus

你将立即看到结果。

在上面的语句里，“notepad.exe”是你要打开的程序的名称。如果你担心程序找不到的话，那么该名称就应该包含完整的路径

（启动器名称和文件夹名称）。注意，程序名称用双引号括起来了。Shell函数的第二个参数可以忽略。该参数明确窗口形式（也就是当程序启动的时候，它如何显示在屏幕上的）。在上面的例子里，记事本将显示为最大化的窗口。如果没有明确窗口形式，那么程序就会被最小化（参见表9-1）。

窗口形式常数

值

窗口显示情况

vbHide

0

窗口被隐藏

vbNormalFocus

1

普通大小，并带焦点

vbMinimizedFocus（默认设置）

2

最小化，并带焦点（这是缺省设置）

vbMaximizedFocus

3

最大化，并带焦点

vbNormalNoFocus

4

普通大小，并失去焦点

vbMinimizedNoFocus

6

最小化，并失去焦点

如果Shell函数能够启动某个可执行文件，那么它就会返回一个叫做任务ID的号码。该号码是指示应用程序启动的唯一号码。如果Shell函数不成功的话（也就是说某应用程序不能打开），VB就会产生一错误。如果你要使用Shell函数启动的应用程序的话，就不要在Shell函数后面输入任何语句。Shell函数启动程序是不同时的，意思是说VB启动Shell函数指定的应用程序，并且，VB在启动程序后，立即就回到过程里面去继续剩余的指令（因此，你没有机会立即使用该应用程序）。你如果使用Shell函数来启动控制面板呢？

打开一新工作簿，保存为Chap09.xls

在VB编辑器窗口，插入新模块

重新命名工程为WorkWApplets，模块名为ShellFunction

输入下面显示的过程StartPanel：SubStartPanel()

ShellControl.exe,vbNormalFocusEndSub

控制面板里面有很多图标，每个图标执行一个或者多个任务。众所周知，在每个图标后面都有一个程序的，当用户双击图标或者用箭头选择该图标然后按下Enter键，该程序都会被激活。作为一个规律，你总是可以通过查看某个图标的属相来检查什么文件名驱动某个图标。不幸的是，控制面板里面的图标的属性选择都被禁止了。然后，你可以通过创建一个到该图标的快捷键来查找控制面板里图标文件。例如，在你创建一个更改电脑原始设置的过程之前，我们来找出激活该图标的文件名称。

从“开始”菜单里选择“设置”，然后选择“控制面板”（在WindowsXP开始菜单里可以直接看到“控制面板”）

在控制面板窗口里，右键单击“初始选项”图标，并且从快捷菜单中选择创建快捷键

点击确定，将快捷键放在桌面上

关闭控制面板窗口

返回桌面，在初始选项的快捷键上单击右键，然后选择属性