開始對指定文件的搜索。返回一個 Long 類型，如果沒有找到文件，則返回零 (0)，如果找到一個或多個文件，則返回一個正數(shù)。
expression.Execute(SortBy, SortOrder, AlwaysAccurate)
expression 必需。該表達(dá)式返回一個 FileSearch對象。
SortBy MsoSortBy 類型，可選。返回的文件的排序方法。
| MsoSortBy 可以為下列 MsoSortBy 常量之一。 |
| msoSortByFileName 默認(rèn)值 |
| msoSortByFileType |
| msoSortByLastModified |
| msoSortByNone |
| msoSortBySize |
SortOrder MsoSortOrder 類型，可選。返回的文件排序次序。
| MsoSortOrder 可以為下列 MsoSortOrder 常量之一。 |
| msoSortOrderAscending 默認(rèn)值 |
| msoSortOrderDescending |
AlwaysAccurate Boolean 類型，可選。設(shè)置為 True 使文件搜索包括上次更新文件索引以來添加、修改或刪除的文件。默認(rèn)值為 True。
對于命令欄對象，運(yùn)行指定給特定命令欄控件的過程或內(nèi)置命令。對于自定義控件，使用OnAction屬性指定要運(yùn)行的過程。
對于 msoFileDialogOpen 或 msoFileDialogSaveAs 類型的 FileDialog對象，在調(diào)用 Show方法后執(zhí)行用戶操作。
expression.Execute
expression 必需。該表達(dá)式返回上面對象之一。
本示例在 My Documents 文件夾中搜索以擴(kuò)展名 ".doc" 結(jié)尾的所有文件，然后顯示找到的每個文件的位置和名稱。本示例還以字母升序排序返回的文件名稱。
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應(yīng)用于 CommandBarButton、CommandBarComboBox、CommandBarControl 和 CommandBarPopup對象的情形。
本 Microsoft Excel 示例創(chuàng)建一個命令欄，然后向其添加內(nèi)置命令欄按鈕控件。該按鈕執(zhí)行 Excel AutoSum函數(shù)。本示例使用 Execute方法在顯示命令欄時計(jì)算選定單元格區(qū)域的總計(jì)。
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