Execute 方法

全部显示

Execute 方法应用于 FileSearch 对象的情形。

开始对指定文件的搜索。返回一个 Long 类型，如果没有找到文件，则返回零 (0)，如果找到一个或多个文件，则返回一个正数。

expression.Execute(SortBy, SortOrder, AlwaysAccurate)

expression 必需。该表达式返回一个 FileSearch 对象。

SortByMsoSortBy 类型，可选。返回的文件的排序方法。

SortOrderMsoSortOrder 类型，可选。返回的文件排序次序。

AlwaysAccurateBoolean 类型，可选。设置为 True 使文件搜索包括上次更新文件索引以来添加、修改或删除的文件。默认值为 True。

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

对于命令栏对象，运行指定给特定命令栏控件的过程或内置命令。对于自定义控件，使用 OnAction 属性指定要运行的过程。

对于 msoFileDialogOpen 或 msoFileDialogSaveAs 类型的 FileDialog 对象，在调用 Show 方法后执行用户操作。

expression.Execute

expression 必需。该表达式返回上面对象之一。

示例

应用于 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