Excel VBA 读取当前文件夹下的txt文件名

最新推荐文章于 2024-02-26 14:56:53 发布

Hello_World_2021

最新推荐文章于 2024-02-26 14:56:53 发布

阅读量3.2k

点赞数 3

CC 4.0 BY-SA版权

分类专栏： Excel VBA 文章标签： excel

本文链接：https://blog.youkuaiyun.com/Hello_World_2021/article/details/105513923

本文介绍了如何通过Excel VBA宏编程来读取当前工作簿所在文件夹下的所有TXT文件的名称。教程详细讲解了VBA代码实现过程，帮助用户自动化处理相关文件操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub read_txt_file_name()
'读取当前文件夹下txt文件的文件名,写入sheet1的第一列

Dim r As Long
Dim Fso As Object
Dim myfile As Object
Dim mySheet As Worksheet
Dim txtFolder As Object


r = 1

Set txtFolder =

最低0.47元/天解锁文章

200万优质内容无限畅学

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

Hello_World_2021

关注关注

3
点赞
踩
10

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

专栏目录

EXCEL VBA自动读取文件夹中不同格式的文件名写入excel并加上超链接

SsuperBao的博客

05-28

2595

这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题，有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants创建一个自定义列表如何创建一个注脚注释也是必不可少的KaTeX数学公式新的甘特图功能，丰富你的文章UML 图表FLowchart流程图导出与导入导出导入欢迎使用Markdown编辑器你好！这是你第一次使用 Markdown编辑器所展示的欢迎页。如果你想学习如何使用Mar

VBA查找指定文件夹下的所有文件（包括子文件夹）

phil1234的博客

12-18

1万+

Sub 所有文件夹() Dim fs As New FileSystemObject, arr(), i, j, k Dim fd, subfd As Folder Dim files As file 'Range(“A:A”).Clear Set fp = Application.FileDialog(msoFileDialogFolderPicker) fp.Show Set paths = fp.SelectedItems ReDim arr(1) arr(0) = paths(1) ‘文件夹路径赋给

参与评论您还未登录，请先登录后发表或查看评论

VBA读取文件夹下所有文件

04-04

VBA读取文件夹下所有文件的三种方法，能够读取到子文件夹下所有的文件。

VBA获取文件夹文件

11-26

使用VBA获取文件夹里的所有文件名和文件属性. 速度较快.

VBA读取文件

dang

12-22

1745

VBA 打开当前目录下的文件

RobbenEmi的专栏

11-22

1万+

Dim wb As Workbook paths = ThisWorkbook.Path &amp; "\" Set wb = Workbooks.Open(paths &amp; "test.xlsx") wb.Close

Excel VBA - 遍历某个文件夹中文件、文件夹及批量建立txt

热门推荐

11-03

10万+

我们可能会经常要将一个文件夹中的所有文件都遍历一遍，然后进行修改，下面就介绍用Dir函数实现遍历*.xlsx文件的方法 Dir 函数返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。语法 Dir[(pathname[, attributes])] 第一个参数即是文件的地址，第一次引用的时候要标注，第二次用的时候就不必指出了

VBA'提取文件夹下所有文件名[张志晨]

01-09

- **文件名读取**：使用`Dir`函数读取文件夹下的文件名，通过循环将每个文件名依次写入Excel表格的A列中。 - **异常处理**：通过`On Error Resume Next`语句忽略执行过程中可能出现的错误，提高程序的健壮性。 ####...

Excel使用Vba读取文件夹下所有文件.docx

10-01

### Excel使用VBA读取文件夹下所有文件 #### 知识点概述本文将详细介绍如何使用VBA（Visual Basic for Applications）在Excel中读取指定文件夹下的所有文件名。这种方法不仅适用于Excel 2021版本，也兼容Excel ...

Excel VBA 操作拆分当前Excel表中 / 所选取文件夹所有子文件中所有sheet保存到对应文件夹路径中拆分表内

06-05

这涉及到使用`FileSystemObject`来检查文件类型和读取文件夹结构。以下是扩展版的VBA代码： ```vba ' 引入文件系统对象 Private Declare PtrSafe Function GetObject Lib "oleaut32" _ Alias "GetActiveObject" ...

VBA遍歷文件夾下的文本文件,並讀取文本文件

rfb0204421的专栏

12-20

1227

Sub test() Dim rr As String, n As Integer, xx As Integer Dim cn As Integer Dim MyName As String MyName = Dir("d:\*.log") xx = InputBox("輸入您要讀取的行數！ ", "

excel vba 自动读取文件名与文件夹名

07-18

excel vba 自动读取文件名与文件夹名

【vba】【excel】获取文件夹中的所有子文件夹

weixin_61256014的博客

02-26

786

【代码】【vba】【excel】获取文件夹中的所有子文件夹。

ifix vba 读取计算机中的txt文件，截取字符串显示

cash.yuan

09-17

561

利用vba脚本，使用Scripting.FileSystemObject对象可以实现对文本文件的操作，下面以一个朋友的实际例子为例将截获的字符串进行页面显示。 Private Sub CommandButton3_Click() Dim fso Dim txtfile Dim msrt3 As String Dim ma3() As String Dim msrt1, ma1, msrt2, ...

Excel VBA 循环读取一个目录下面多个文件的内容，放到另外一个文件中

sun0322

08-03

7639

循环读取一个目录下面多个文件的内容，放到另外一个文件中 Public Sub getInputInfo() On Error GoTo errl 'OUT対象ファイル開く Dim wbOut As Workbook Application.DisplayAlerts = False Set wbOut = Workbooks.Open(OUT_FI

实用VBA：12.用VBA将txt文本文件导入Excel表格

周公笃行的博客

12-16

4017

小伙伴们工作中时常遇到处理文本文件的情况。有些业务系统中的数据记录、日志文件、格式化输出的数据等是以txt文本文件的方式记录的。但是在进行数据处理和分析时，如果需要处理大量的文本文件、或对文本文件中特定的字段、数据等进行处理，会显得繁琐而棘手。如果能够导入到excel文件中，就可以发挥Excel进行数据统计分析功能的优势。

vba打开txt文件_VBA基础入门（34）读取txt文本文件

weixin_39915700的博客

12-14

9577

对于这样的txt文本文件，我们怎么一行一行去读取数据呢？#00001 65536*00001 65536说说常用的两种方法，一种是把txt文本文档读到Excel中，然后获取最大行数，做个循环来遍历这个文件。一种是用Line Input这个方法遍历整个txt文本文件。第一种方法就用Workbooks.open Filename:= (文件路径)就可以了，举个例子，如果你知道文件路径(pat...

VBA小模板：如何把 txt / json /xml 文件内容读入到excel 表里

奔跑的犀牛先生

03-22

4376

如何把 txt / json /xml 文件内容读入到excel 表里

【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格

自信的尘埃 www.gocpplua.com

08-06

3万+

我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下： 1111 222 222 333 333 444 接着我们进行文件的读取，并且写入到Excel中，代码如下： Sub bb() Dim a, k%, i% Open "a.txt" For Input As #1 a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCr

EXCEL VBA宏来读取文件夹目录结构和文件名和所在文件夹和扩展名

最新发布

07-16

<think>我们使用VBA来读取文件夹目录结构，包括文件名、路径和扩展名。我们可以使用Dir函数遍历文件夹中的文件，同时使用FileSystemObject（FSO）来获取更详细的信息，比如文件大小、修改日期等（虽然用户当前只要求文件名、路径和扩展名，但FSO更强大且易于扩展）。不过，用户的问题中明确要求：文件名、所在文件夹路径和文件扩展名。步骤： 1. 创建一个新的子过程（Sub）。 2. 定义变量：用于文件夹路径、文件名、行号等。 3. 使用Dir函数循环遍历文件夹中的每个文件。 4. 对于每个文件，我们将文件名、路径和扩展名输出到工作表中。 5. 注意：扩展名可以通过文件名的后缀获取，我们可以使用VBA的InStrRev和Mid函数来提取，或者使用FileSystemObject的GetExtensionName方法。但是，为了代码的清晰和可扩展性，我们使用FileSystemObject（FSO）来获取扩展名。同时，FSO也可以用来获取其他属性（如日期、大小等），为后续扩展留有余地。我们将采用以下两种方法之一：方法A：仅使用Dir函数（轻量，但扩展名需要自己处理）方法B：使用FileSystemObject（推荐，因为更规范，且便于以后添加其他属性）这里我们使用方法B，因为用户后续可能还需要添加文件大小和修改日期（见用户之前的问题中的相关问题3）。具体步骤： 1. 引用Microsoft Scripting Runtime（也可以后期绑定，这里使用后期绑定避免引用问题）。 2. 创建FSO对象。 3. 获取文件夹对象。 4. 遍历文件夹中的文件。 5. 输出每个文件的名称、路径、扩展名。注意：用户要求的是“所在文件夹路径”，即文件所在的文件夹路径，而不是包括文件名的完整路径。但注意，用户要求的是三个信息：文件名、所在文件夹路径、文件扩展名。因此，我们输出： 文件名（不带路径）所在文件夹路径（即文件夹路径）文件扩展名（如：.xlsx）我们也可以输出完整路径，但用户没有要求完整路径。所以按用户要求。代码结构： 1. 定义变量 2. 设置文件夹路径 3. 创建FSO对象和文件夹对象 4. 循环遍历文件 5. 将信息写入工作表我们将允许用户选择文件夹路径（可以通过输入框输入），也可以直接在代码中修改。下面编写代码：</think>以下是通过Excel VBA宏读取文件夹目录结构（包括文件名、路径和扩展名）的完整解决方案： ### 解决方案代码 ```vba Sub GetFolderDirectory() Dim fso As Object ' FileSystemObject Dim folder As Object ' 文件夹对象 Dim file As Object ' 文件对象 Dim ws As Worksheet ' 工作表对象 Dim folderPath As String ' 文件夹路径 Dim rowNum As Integer ' 起始行号 ' 设置参数 Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称 folderPath = "C:\YourFolderPath\" ' 修改为目标文件夹路径 rowNum = 1 ' 起始行号 ' 清空原有数据（保留标题行） If rowNum < ws.UsedRange.Rows.Count Then ws.Rows(rowNum + 1 & ":" & ws.UsedRange.Rows.Count).ClearContents End If ' 创建文件系统对象 Set fso = CreateObject("Scripting.FileSystemObject") ' 检查文件夹是否存在 If Not fso.FolderExists(folderPath) Then MsgBox "文件夹不存在: " & folderPath, vbCritical Exit Sub End If ' 获取文件夹对象 Set folder = fso.GetFolder(folderPath) ' 写入标题 ws.Cells(rowNum, 1).Value = "文件名" ws.Cells(rowNum, 2).Value = "文件路径" ws.Cells(rowNum, 3).Value = "扩展名" rowNum = rowNum + 1 ' 遍历文件夹中的文件 For Each file In folder.Files ws.Cells(rowNum, 1).Value = file.Name ' 文件名 ws.Cells(rowNum, 2).Value = file.ParentFolder & "\" ' 文件路径 ws.Cells(rowNum, 3).Value = fso.GetExtensionName(file) ' 扩展名 rowNum = rowNum + 1 Next file ' 自动调整列宽 ws.Columns("A:C").AutoFit ' 清理对象 Set file = Nothing Set folder = Nothing Set fso = Nothing MsgBox "目录生成完成！共找到 " & folder.Files.Count & " 个文件", vbInformation End Sub ``` ### 使用说明 1. **准备Excel**： - 按 `Alt + F11` 打开VBA编辑器 - 在左侧工程资源管理器右键 → 插入 → 模块 - 粘贴上述代码 2. **修改参数**： - 将 `folderPath` 改为你的目标文件夹路径（例如 `"D:\Documents\"`） - 修改 `ws` 的工作表名称（默认使用"Sheet1"） 3. **执行宏**： - 返回Excel界面 - 按 `Alt + F8` → 选择 `GetFolderDirectory` → 点击"执行" 4. **结果示例**： | 文件名 | 文件路径 | 扩展名 | |-------|---------|-------| | Report.docx | C:\Docs\ | docx | | Budget.xlsx | C:\Docs\ | xlsx | | Image.png | C:\Docs\ | png | ### 关键功能说明 1. **文件系统对象(FSO)**： - 使用 `Scripting.FileSystemObject` 访问文件系统 - 支持遍历文件夹、获取文件属性等操作[^1] 2. **路径处理**： - `file.ParentFolder` 获取文件所在文件夹路径 - `fso.GetExtensionName()` 提取文件扩展名 3. **错误处理**： - 自动检测文件夹是否存在 - 清空旧数据前保留标题行 - 操作完成显示统计信息 ### 扩展功能 ```vba ' 添加文件大小和修改日期（扩展代码） ws.Cells(rowNum, 4).Value = file.Size / 1024 & " KB" ' 文件大小(KB) ws.Cells(rowNum, 5).Value = file.DateLastModified ' 修改日期 ' 添加超链接（点击打开文件） ws.Cells(rowNum, 1).Hyperlinks.Add _ Anchor:=ws.Cells(rowNum, 1), _ Address:=file.Path, _ TextToDisplay:=file.Name ``` > ⚠️ 注意事项： > 1. 路径需以反斜杠结尾（如 `"C:\Folder\"`） > 2. 首次使用需启用宏（文件 → 选项 → 信任中心） > 3. 支持递归遍历子文件夹（需添加递归函数）