【Access文章】VBA编程技巧之Shell函数妙用

来源:红尘如烟 点击数:20942 　 | 收藏 | 复制

时　间:2014-07-11 08:16:32
作　者:缪炜 ID：24010 城市：江阴
摘　要:VBA中为我们提供了很多功能强大使用简单的函数，但一些函数的功能我们甚少使用，甚至根本不了解它们的相关用途。本文就Shell函数的用途做一些讲解，说明如何用Shell函数实现诸如打开文件、打开文件夹，复制文件、替换文件等功能。
正　文:

VBA中的Shell函数是一个功能强大简单易用的函数，但很多朋友只用它来简单的打开一个有绝对路径的可执行文件，其实它还有很多其它功能，很多可以从“开始菜单——运行”中执行的命令行都可以用Shell函数来完成。Shell函数有两个参数：pathname和Windowstyle，Windowstyle参数在帮助文档里面已经有了详细说明，这样就不再重复，主要讲一下pathname参数。

在帮助文档里面关于pathname参数的说明如下：

pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。

我们可以看到，帮助里的说明过于简略，甚至有些语焉不详，让人很难理解。一般也就用它来运行可执行文件，类似于Shell “C:\test.exe”这样简单的使用一下。下面就讲一下pathname参数的详细使用方法。

1、 运行可执行程序（扩展名为.exe）

对于普通可执行程序：将pathname参数直接设为该程序文件的路径名即可，如：Shell "D:\新建文件夹\test.exe"。

对于某些特殊系统文件夹（如Windows、system、system32等）中的可执行程序，或在注册表子项HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths下注册过的程序，可以不用指定路径,甚至扩展名也可以不用指定，如打开计算器我们就可以直接这样调用：

Shell "calc", vbNormalFocus

否则必须要指定打开程序的路径名，如：

Shell "F:\MyNotepad.exe D:\test.txt",vbNormalFocus。

2、 打开非可执行文件，如文本文件(.txt)、Word文档(.doc)等

我们必须先指定一个用来打开这个文件的程序，程序名放在前面，文件路径名放在后面。例如我们要用记事本打开一个文本文件D:\test.txt，Shell函数的调用方式就应该是：

Shell "notepad D:\test.txt",vbNormalFocus。

当文件名或路径名中存在空格时，必须要使用英文半角双引号（"）来对其进行界定，但这个双引号同时又是VBA中的字符串界定符，所以按照VBA的语法规定，我们要在字符串中使用双引号，就必须用两个双引号来表明这是一个用在字符串中的双引号。如：

Shell Shell "notepad ""D:\test 1.exe""", vbNormalFocus

如果我们要用一个变量来代表这个路径名，就应该是：

Dim strPathName As String

strPathName="D:\test 1.exe"

Shell Shell "notepad """ & strPathName & """", vbNormalFocus