OfficeVBA教程：Execute方法

OfficeVBA教程：Execute⽅法
开始对指定⽂件的搜索。

返回⼀个 Long 类型，如果没有找到⽂件，则返回零 (0)，如果找到⼀个或多个⽂件，则返回⼀个正数。

expression.Execute(SortBy, SortOrder, AlwaysAccurate)
expression 必需。

该表达式返回⼀个 FileSearch对象。

SortBy MsoSortBy类型，可选。

返回的⽂件的排序⽅法。

MsoSortBy 可以为下列 MsoSortBy 常量之⼀。

msoSortByFileName 默认值
msoSortByFileType
msoSortByLastModified
msoSortByNone
msoSortBySize
SortOrder MsoSortOrder类型，可选。

返回的⽂件排序次序。

MsoSortOrder 可以为下列 MsoSortOrder 常量之⼀。

msoSortOrderAscending 默认值
msoSortOrderDescending
AlwaysAccurate Boolean 类型，可选。

设置为 True 使⽂件搜索包括上次更新⽂件索引以来添加、修改或删除的⽂件。

默认值为 True。

Execute⽅法应⽤于 CommandBarButton、CommandBarComboBox、CommandBarControl、CommandBarPopup 和 FileDialog对象的情形。

对于命令栏对象，运⾏指定给特定命令栏控件的过程或内置命令。

对于⾃定义控件，使
⽤OnAction属性指定要运⾏的过程。

对于 msoFileDialogOpen 或 msoFileDialogSaveAs 类型的 FileDialog对象，在调⽤ Show⽅法后执⾏⽤户操作。

expression.Execute
expression 必需。

该表达式返回上⾯对象之⼀。

VBA⽰例
应⽤于 FileSearch对象的情形。

本⽰例在 My Documents ⽂件夹中搜索以扩展名 ".doc" 结尾的所有⽂件，然后显⽰找到的每个⽂件的位置和名称。

本⽰例还以字母升序排序返回的⽂件名称。

Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileName = "*.doc"
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
应⽤于 CommandBarButton、CommandBarComboBox、CommandBarControl 和CommandBarPopup对象的情形。

本 Microsoft Excel ⽰例创建⼀个命令栏，然后向其添加内置命令栏按钮控件。

该按钮执⾏Excel AutoSum函数。

本⽰例使⽤ Execute⽅法在显⽰命令栏时计算选定单元格区域的总计。

Dim cbrCustBar As CommandBar
Dim ctlAutoSum As CommandBarButton
Set cbrCustBar = CommandBars.Add("Custom")
Set ctlAutoSum = cbrCustBar.Controls _
.Add(msoControlButton, CommandBars("Standard") _
.Controls("AutoSum").Id)
cbrCustBar.Visible = True
ctlAutoSum.Execute。