| 今天帮一位网友弄的，A列为文件名，B列为对应的文本文件内容。此代码只适用于Excel2003及以下版本，因FileSearch方法被微软阉割了。
Sub listfile()
''''''''''''''''''''''''''''''''''''''''''''''
' 批量获取指定目录下所有文本文件名和内容 '
' '
''''''''''''''''''''''''''''''''''''''''''''''
Dim fs, fso, fl
Dim mypath As String
Dim theSh As Object
Dim theFolder As Object
Dim strtmp As String
Application.ScreenUpdating = False
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject") '设置搜索路径
Set theSh = CreateObject("shell.application")
Set theFolder = theSh.BrowseForFolder(0, ", 0, ")
If Not theFolder Is Nothing Then
mypath = theFolder.Items.Item.Path
End If
'搜索开始
Set fs = Application.FileSearch
With fs
.NewSearch
.SearchSubFolders = True '搜索子目录
.LookIn = mypath '搜索路径
.FileName = "*.txt" '搜索文件类型为txt
If .Execute(SortBy:=msoSortByFileName) = 0 Then
C = .FoundFiles.Count '统计搜索到的文件个数
For i = 1 To C
strtemp = .FoundFiles(i) '设置临时文件
n = InStrRev(strtemp, ") '获取文件路径长度（不包括文件名）
'获取文件名及扩展名
strfilename = Replace(strtemp
|
