vba 中如何使用文件选择器

用文件对话框

With

Application.FileDialog(msoFileDialogOpen)

.Title

=

"选择文件"

.AllowMultiSelect

=

True

.Filters.Add

"Excel

Files",

"*.xls"

.FilterIndex

=

2

'默认的文件筛选条件的索引号

.Show

FileCount

=

.SelectedItems.Count

Filename

=

.SelectedItems(1)

End

With

VBA包含了许多用于文件 *** 作的语句和函数，可以满足绝大多数情况下的文件 *** 作要求。下面我们按照 *** 作目的进行一一介绍。

（一）文件处理

1.Name 语句

语法：Name oldpathname As newpathname

功能：重命名一个文件、目录、或文件夹，移动一个文件。

说明：在一个已打开的文件上使用 Name，将会产生错误。进行文件 *** 作时，一定要注意错误处理。

示例：

On Error Resume Next'错误处理

Name "f:\TEST.xls" As "f:\TEST123.xls" '重命名

Name "f:\TEST.xls" As "f:\dll\TEST.xls" '移动文件

Name "f:\TEST.xls" As "d:\TEST123.xls" '跨驱动器移动并重命名文件

注意：Name不能移动一个目录或文件夹。

2、FileCopy 语句

语法：FileCopy source, destination

功能：复制一个文件。

说明：如果对一个已打开的文件使用 FileCopy 语句，则会产生错误。

示例：

FileCopy "f:\TEST.xls", "e:\TEST.xls" '从F盘复制TEST.xls到E盘

3、Kill 语句

语法：Kill pathname

功能：从磁盘中删除文件。

说明：Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。如果使用 Kill 来删除一个已打开的文件，则会产生错误。

示例：

Kill "f:\TEST.xls" ’删除F盘的TEST.xls文件

Kill "f:\*.xls" ' 删除F盘所有xls文件

---