Excel批量获取指定目录下文本文件内容VBA代码
发布时间：2023-10-21 02:10:54
今天帮一位网友弄的，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, Left(strtemp, n), "")
‘从A2单元格开始输出格式为：文件名
Cells(i + 1, 1) = Left(strfilename, Len(strfilename) – 4)
Set fl = fso.opentextfile(strtemp, 1)
strtmp = fl.readall ‘读取文本内容
Range("b" & i + 1) = strtmp ‘B2开始写入内容
fl.Close
Next
Else
MsgBox "该文件夹里没有符合要求的文件!"
End If
End With
Set fs = Nothing
Application.ScreenUpdating = True
End Sub
0
投稿猜你喜欢
word怎么自动计算总和？word文档其实兼容了excel表格的计算公式，也能够进行自动计算总和等公式，那么在word里要怎么进行这个操作呢- Word2013使用域进行数据计算步骤1：在Word文档中选择需要计算的数据，在“插入”选项卡中单击“书签”按钮，打开“书签”对话框，创建一
- 如何浏览Word的“高级布局”布局？若要查看Word 2011的所有文本环绕样式，请首先在文档中选择一个对象。然后，在Office 2011
- Win7系统的电脑有时候会因为USB供电不足，弹出集线器端口上的电涌提示，这个问题该如何解决呢？下面来看看具体方法。解决方法：1、在电脑图标
- Excel中如何为文档进行密码设置呢?接下来是小编为大家带来的excel2003密码设置的教程，供大家参考。excel2003密码设置的教程
- MAC用户喜欢在重装系统前使用Transmit备份一些电脑中重要的数据，不过在重装完系统之后，却又找不到Transmit将数据备份在哪里。对
- 对于在使用win10的小伙伴，微软再一次更新了新的系统版本win1019041也就是Windows10 20H1快速预览版、慢速预览版的更新
- Win7笔记本合盖后唤醒不了怎么办？正常情况下，如果电脑处于使用状态，当我们合上盖子，可以节省电源，再次想用时只要按下电源按钮即可启动。但是
- 由于个人隐私和安全性等综合考虑，许多人都希望关闭Win10 1909系统中的位置服务，但他们不知道该怎么办！ 针对这种情况，我将简要介绍一下
- 经常玩游戏的人对360安全卫士的360游戏保险箱应该比较了解，这是一个保护游戏账号密码安全的工具，但是有些用户发现无法打开360游戏保险箱，
- 用户在wps软件中收获到了许多功能的帮助，让用户简单轻松的编辑好自己需要的文件，因此这款办公软件受到了很多用户的喜欢和欢迎，当用户在wps软
- 笔记本Win11怎么进入安全模式？最近有用户询问这个问题，不知道怎么解决，安全模式是很多系统都自带的，可以帮助用户解决系统中无法解决的问题，
- 很多信息量较大的 PPT 中，为了让页面的逻辑结构更清晰，导航栏的使用，是一个不错的选择。这篇文章教授你两点轻松掌握导航栏的制作，分别是层级
- 安装的时候选错了国家语言，安装好Win8系统后又该如何去更改，下面我们将告诉大家如何为Win8添加不同国家的语言，有此需要的朋友可以参考下大
- Excel中的冻结行和列具体该如何操作呢?接下来是小编为大家带来的excel中冻结行和列的方法，供大家参考。excel中冻结行和列的方法：冻
- 今日微软推送了最新的Win10 Mobile一周年更新预览版14376，主要是修复大量Bug，提升系统稳定性等，小编下面为介绍Win10 M
- 电脑文件后缀怎么显示?有时候查看一些文件，由于没有扩展名，导致我们用了错误的软件进行打开，文件自己如果默认了这个软件打开文件，就很有可能使文
- Excel不认识的数学不等式如图所示，朋友所在的面粉厂，要求生产的面粉每袋质量不能小于495克，也不能超过500克，否则该袋面粉将被定为“不
- win10系统在帮扫描病毒后会将文件隔离到一个位置里，这样能有效保护系统安全，又避免误杀好的文件。如果有发现一些好的文件被误扫描到，可以来到
- 今天给大家介绍下常见“Word安全模式”问题。是否正打开计算机准备打开Word工作时，却突然进入了“安全模式”，真是太奇怪了，明明只是启动W
