VBA常用技巧代码解析

fjxhd

老师不遗余力令我非常敬仰！

yuanzhuping

技巧178         删除指定的文件
       使用Kill方法删除指定的文件，如下面的代码所示。

1. #001  Sub KillFile()
   
2. #002      Dim myFile As String
   
3. #003      myFile = ThisWorkbook.Path & "\123.xls"
   
4. #004      If Dir(myFile) <> "" Then Kill myFile
   
5. #005  End Sub

复制代码

代码解析：
       KillFile过程使用Kill方法示例文件所在文件夹中的“123.xls”文件。
       第3行代码指定所要删除文件的路径和文件名称。
       第4行代码使用Dir函数返回指定文件名，（关于Dir函数请参阅技巧173 ）如果存在该文件则使用Kill语句删除。Kill语句从磁盘中删除文件，语法如下：

1. Kill pathname

复制代码

参数pathname是必需的，用来指定一个文件名的字符串表达式，可以包含目录或文件夹、以及驱动器。
       在Microsoft Windows中，Kill方法支持多字符 (*) 和单字符(?)的统配符来指定多重文件，如需要删除当前目录下所有*. Xls文件可以使用下面的代码：
       Kill "*.xls"
       注意 使用Kill方法不能删除已打开的文件，否则会产生错误。

gljzyp

继续学习

yuanzhuping

技巧179         搜索特定的文件
       如果需要对文件夹中所有的Excel文件进行相同的操作，那么可以使用Execute方法进行文件搜索，示例代码如下所示。

1. #001  Sub Sort()
   
2. #002      Dim i As Byte
   
3. #003      Application.ScreenUpdating = False
   
4. #004      With Application.FileSearch
   
5. #005          .LookIn = ThisWorkbook.Path
   
6. #006          .FileType = msoFileTypeExcelWorkbooks
   
7. #007          If .Execute > 0 Then
   
8. #008              For i = 1 To .FoundFiles.Count
   
9. #009                  If .FoundFiles(i) <> ThisWorkbook.FullName Then
   
10. #010                      Workbooks.Open .FoundFiles(i)
    
11. #011                      With ActiveWorkbook
    
12. #012                          .Sheets("Sheet1").Range("A1") = "最后打开时间：" & Now
    
13. #013                          .Close True
    
14. #014                      End With
    
15. #015                  End If
    
16. #016              Next
    
17. #017          End If
    
18. #018      End With
    
19. #019      Application.ScreenUpdating = True
    
20. #020  End Sub

复制代码

代码解析：
       Sort过程搜索同一目录中的所有Excel文件并对其进行操作。
       第3行代码关闭屏幕更新功能，加快代码的运行速度。
       第4行代码为文件搜索创建一个FoundFiles对象。
       第5行代码设置要搜索的文件夹，应用于FoundFiles对象的LookIn属性返回或设置在指定的文件搜索过程中要搜索的文件夹。
       第6行代码设置搜索的文件类型为Excel文件，应用于FoundFiles对象的FileType属性返回或设置文件搜索过程中要查找的文件类型，设置为msoFileTypeExcelWorkbooks返回Excel文件。
       第7行代码开始对指定文件进行搜索，应用于FoundFiles对象的Execute方法用于搜索文件，语法如下：
       expression.Execute(SortBy, SortOrder, AlwaysAccurate)
       参数expression是必需的，返回一个FoundFiles对象。
       参数SortBy是可选的，用于对返回的文件进行排序。
       参数SortOrder是可选的，表明所返回文件的排序顺序。
       参数AlwaysAccurate是可选的，设置为True使文件搜索包括上次更新文件索引以来添加、修改或删除的文件。
       在使用Execute方法搜索文件时，如果没有找到文件，则返回零(0)，如果找到一个或多个文件，则返回一个正数。
       第8行代码使用For...Next 语句遍历Execute方法返回的返回的文件列表。应用于FoundFiles对象的FoundFiles属性返回一个FoundFiles对象，代表由文件搜索过程中返回的文件列表。
       第9行代码判断返回的单个FoundFiles对象的名称是否是示例文件的名称，如果否则执行后续代码。
       第10行代码使用应用于Workbooks对象的Open方法打开由返回的单个FoundFiles对象代表的工作簿。
       第11行到第14行代码在打开的活动工作簿的工作表中写入打开时间后保存、关闭活动工作簿。
       运行Sort过程将打开示例所在文件夹中所有的Excel文件并对其进行相应的操作。

ntrggy

感谢楼主，谢谢

j563661618

谢谢啊 学习中

鱼求雨

极力推选版主为微软最有价值专家

zzuwenfeng

呵呵 太感谢你啊，这个对于我这个菜鸟级别的是非常有帮助的啊。

andy_liu25

我也在努力的学习中，感谢楼主了，太强大了。

jiaginger

刚入门学习　非常感谢　LZ