神马文学网Office VBA教程：Execute方法
来源：百度文库 编辑：神马文学网 时间：2024/07/04 23:32:10
开始对指定文件的搜索。返回一个 Long 类型，如果没有找到文件，则返回零 (0)，如果找到一个或多个文件，则返回一个正数。
expression.Execute(SortBy, SortOrder, AlwaysAccurate)
expression 必需。该表达式返回一个 FileSearch对象。
SortBy MsoSortBy 类型，可选。返回的文件的排序方法。
MsoSortBy 可以为下列 MsoSortBy 常量之一。 msoSortByFileName 默认值 msoSortByFileType msoSortByLastModified msoSortByNone msoSortBySizeSortOrder MsoSortOrder 类型，可选。返回的文件排序次序。
MsoSortOrder 可以为下列 MsoSortOrder 常量之一。 msoSortOrderAscending 默认值 msoSortOrderDescendingAlwaysAccurate 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