搜索特定的文件

代 码 解 析： Sort 过 程 搜索同一 目录中的 所 有 Excel 文件并对 其进行操 作。
第 3 行代码 关闭屏幕 更 新 功 能，加快 代码的运 行速度。 第 4 行代码 为文件搜 索创建一 个 FoundFile s对象。 第 5 行代码 设置要搜 索的文件 夹，应用 于 FoundFile s 对 象 的 LookIn 属 性返回或 设置在指 定的文件 搜索过程 中要搜索 的文件夹 。 第 6 行代码 设置搜索 的文件类 型 为 Excel 文件，应 用 于 FoundFile s 对 象 的 FileType 属性返回 或设置文 件搜索过 程中要查 找的文件 类型，设 置 为 msoFileTy peExcelW orkbooks 返 回 Excel 文件。
第 9 行代码 判断返回 的 单 个 FoundFile s 对象的名 称是否是 示例文件 的名称， 如果否则 执行后续 代码。 第 10 行 代 码使用应 用 于 Workbook s 对 象 的 Open 方 法 打开由返 回的单个 FoundFile s 对象代表 的工作簿 。 第 11 行 到 第 14 行 代 码在打开 的活动工 作簿的工 作表中写 入打开时 间后保存 、关闭活 动工作簿 。 运 行 Sort 过程将打 开示例所 在文件夹 中所有的 Excel 文 件 并对其进 行相应的 操作。
第 7 行代码 开始对指 定文件进 行搜索， 应 用 于 FoundFile s 对 象 的 Execute 方 法用于搜 索文件， 语 法 如 下：
expressio n.Execute (SortBy, SortOrder , AlwaysAcc urate)
参 数 expressio n是 必 需 的，返回 一 个 FoundFile s对象。 参 数 SortBy 是 可选的， 用于对返 回的文件 进行排序 。 参 数 SortOrder 是 可 选 的，表明 所返回文 件的排序 顺序。
If .FoundFil es(i) <> ThisWorkb ook.FullN ame Then Workbooks .Open .FoundFil es(i) With ActiveWor kbook .Sheets(" Sheet1"). Range("A1 ") = " 最 后 打 开 时 间 ： " & Now .Close True End With End If Next End If End With Applicati on.Screen Updating = True End Sub
技巧1 搜索 特定的 文件
如果需要 对文件夹 中所有的 Excel 文 件 进行相同 的操作， 那么可以 使 用 Execute 方 法进行文 件搜索， 示例代码 如下所示 。
Sub Sort() Dim i As Byte Applicati on.Screen Updating = False With Applicati on.FileSe arch .LookIn = ThisWorkb ook.Path .FileType = msoFileTy peExcelWo rkbooks If .Execute > 0 Then For i = 1 To .FoundFil es.Count
参 数 AlwaysAc curate是可 选的，设 置 为 True 使文件搜 索包括上 次更新文 件索引以 来添加、 修改或删 除的文件 。 在 使 用 Execute 方 法搜索文 件时，如 果没有找 到文件， 则返回零 (0) ， 如 果 找到一个 或多个文 件，则返 回一个正 数。 第 8 行代码 使 用 For...Next 语句遍历 Execute 方 法返回的 返回的文 件列表。 应 用 于 FoundFile s 对 象 的 FoundFile s 属性返回 一 个 FoundFile s 对象，代 表由文件 搜索过程百度文库中返回的 文件列表 。