Office VBA教程:Execute方法

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

开始对指定文件的搜索。返回一个 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

上页:Office VBA教程:EndWizard方法 下页:Office VBA教程:FindControl方法

Office VBA教程:Execute方法

Office VBA教程:FindControl方法 Office VBA教程:FindControls方法
Office VBA教程:Help方法 Office VBA教程:Item方法
Office VBA教程:LoadFromFile方法 Office VBA教程:Move方法
Office VBA教程:NewSearch方法 Office VBA教程:Open方法
Office VBA教程:PasteFace方法 Office VBA教程:RefreshDocument方法
Office VBA教程:RefreshProject方法 Office VBA教程:RefreshScopes方法
Office VBA教程:ReleaseFocus方法 Office VBA教程:Remove方法
Office VBA教程:RemoveItem方法 Office VBA教程:Reset方法
Office VBA教程:ResetFileList方法 Office VBA教程:ResetTips方法
Office VBA教程:SaveCopyAs方法 Office VBA教程:SetAvoidRectangle方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号