Function InsertIntoDoc(strPath as string)

　　Set fso=CreateObject("Scripting.FileSystem")

　　Set objFolder=fso.GetFolder(strPath)

　　Set objFiles=objFolder.Files

　　For each objFile In objFiles

　　　　Debug.Print objFile.Name

　　　　Set fout=fso.OpenTextFile(strPath & "\" & objFile.Name,1,False)

　　　　tmpOut=fout.ReadAll

　　　　str1=str1 & objfile.Name & chr(13)

　　　　str1=str1 & tmpout & chr(13) & chr(13) & chr(13)

　　Next

　　Selection.TypeText Text:=str1

End Sub

 

CommandButton1_Click()

　　Call InsertIntoDoc("E:\......\DataBase")

End Sub