[求助]查找并插入文件的问题

duke008

Sub insertfile() Dim filename As String, i As Integer For i = 1 To 31 filename = "金山公司(剪报)08." & VBA.Format(i, "00") & ".doc" On Error Resume Next Set fs = Application.FileSearch With fs .NewSearch .filename = filename .LookIn = "F:\Document\盛大\08月\" .SearchSubFolders = True If .Execute Then Selection.insertfile filename:=filename, Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False Selection.InsertBreak Type:=wdPageBreak End If End With Next i End Sub 以上程序只能把"F:\Document\盛大\08月\"下符合要求的文档插入，而其子文件夹下的文档就不能插入了。现在的情况是这样的： “F:\Document\盛大\08月\”这个文件夹下有很多子文件夹，如“0802”，“0803”等，要插入的文档都放在这些子文件夹下，请守柔老师帮忙改一下程序。

gues1688

要遍历子文件夹比较麻烦，一般来说要使用递归的方法。网络有不少递归访问所有子文件夹的范例。

搜索一下守柔老大的代码，可能守柔老大已经有过这样的代码了。

c81

http://club.excelhome.net/viewthread.php?tid=134543&replyID=&skin=0

gues1688

抱歉，没有试过你的代码，胡乱发言了。

似乎你再查一下帮助文档就有结果了？我改为超级链接，试一下：

Sub insertfile()
Set fs = Application.FileSearch
With fs
.LookIn = "f:\My Documents"
.SearchSubFolders = True
.FileName = "*.doc"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
.FoundFiles(i), TextToDisplay:=.FoundFiles(i)
Selection.TypeParagraph
Next i
Else
MsgBox "文件没找到！"
End If
End With
End Sub