如何批量提取指定文件夹下所有文档的内容到新文档中？

tangqingfu

请教如何通过VBA，批量提取指定文件夹下所有文档的内容至新文档中并将其保存在该文件夹下？提取内容的顺序依据文件名的排序顺序。

[ 本帖最后由 tangqingfu 于 2009-12-2 14:23 编辑 ]

良凤精品

如果全是txt 文件就好办.

kqbt

      试试：

1. Sub kqbt_hb()
   
2.   Application.ScreenUpdating = False
   
3.   Dim MyPath As String, myName As String, i As Integer
   
4.   With Application.FileDialog(msoFileDialogFolderPicker)
   
5.     .Title = "选择目标文件夹"
   
6.     If .Show = -1 Then
   
7.       MyPath = .SelectedItems(1)
   
8.     Else
   
9.       Exit Sub
   
10.     End If
    
11.   End With
    
12.   With Application.FileSearch
    
13.     .LookIn = MyPath
    
14.     .FileType = msoFileTypeWordDocuments
    
15.     If .Execute > 0 Then
    
16.       Set meDoc = Documents.Add
    
17.       For i = 1 To .FoundFiles.Count
    
18.         Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Visible:=False)
    
19.         myDoc.Range.Copy
    
20.         Selection.Paste
    
21.         myDoc.Close False
    
22.       Next
    
23.     End If
    
24.     meDoc.SaveAs FileName:=MyPath & "\合并文档.doc"
    
25.     meDoc.Close True
    
26.   End With
    
27.   Application.ScreenUpdating = True
    
28. End Sub

复制代码

wjhere

其实使用插入菜单下文件更好，可以保留格式，速度也快。可以插入的类型也多，录制一个宏试试吧。

tangqingfu

谢谢kqbt兄，测试成功！

tangqingfu

原帖由 wjhere 于 2009-12-2 17:19 发表
其实使用插入菜单下文件更好，可以保留格式，速度也快。可以插入的类型也多，录制一个宏试试吧。

谢谢wjhere兄的提醒。好久未见wjhere兄了。
方式的确可行。

wjhere

qingfu兄荣升了，可喜可贺，我太懒了。向你学习！