excel遍历操作word

时间:2015-11-27 15:06:46
【文件属性】:

文件名称:excel遍历操作word

文件大小:44KB

文件格式:XLS

更新时间:2015-11-27 15:06:46

遍历

Sub mysearch() Dim fs, i, arr(1 To 10000) Set fs = Application.FileSearch '设置一个搜索对象 With fs .LookIn = ThisWorkbook.Path & "/1" '设置搜索路径 .Filename = "A-JL-08 中间交工证书.doc" '要搜索文件名和类型 .SearchSubFolders = True '是否需要搜索子文件夹 If .Execute > 0 Then '如果找不到文件 MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." '显示文件找不到 For i = 1 To .FoundFiles.Count '通过循环把所有搜索到的文件存入到数组中 arr(i) = .FoundFiles(i)


网友评论