正文

VBA轻松合并多个TXT文件，一键实现文件整理大法！

/0 浏览量
1106

在信息化时代，我们经常会遇到需要处理大量文本文件的情况。对于Excel用户来说，使用VBA（Visual Basic for Applications）来合并多个TXT文件，无疑是一种高效便捷的方法。下面，我就来为大家详细讲解如何使用VBA一键实现多个TXT文件的合并，让你的文件整理工作变得轻松愉快！

1. 准备工作

在开始之前，请确保你的电脑已经安装了Microsoft Office，并且打开了一个Excel工作簿。接下来，你需要做以下准备工作：

  • TXT文件准备：将你需要合并的TXT文件放在同一个文件夹内，以便后续操作。
  • 宏设置：在Excel中，点击“文件”>“选项”>“信任中心”>“信任中心设置”，在弹出的窗口中，勾选“对受信任位置执行所有操作”，并点击“添加新位置”，选择包含TXT文件的文件夹，这样VBA就可以访问这些文件了。

2. 编写VBA代码

在Excel工作簿中，按下Alt + F11键，打开VBA编辑器。然后，在“插入”菜单中选择“模块”，在弹出的模块窗口中粘贴以下代码：

Sub 合并TXT文件()
    Dim 源文件夹路径 As String
    Dim 目标文件路径 As String
    Dim 文件名 As String
    Dim 文件号 As Integer
    
    ' 设置源文件夹路径和目标文件路径
    源文件夹路径 = "C:\你的文件夹路径\" ' 请根据实际情况修改
    目标文件路径 = "C:\合并后的文件.txt" ' 请根据实际情况修改
    
    ' 创建一个目标文件
    Open 目标文件路径 For Output As #1
    
    ' 遍历文件夹中的所有TXT文件
    文件号 = Dir(源文件夹路径 & "*.txt")
    Do While 文件号 <> ""
        ' 读取当前文件并写入目标文件
        Open 源文件夹路径 & 文件号 For Input As #2
        Do While Not EOF(2)
            Line Input #2, 文件内容
            Print #1, 文件内容
        Loop
        Close #2
        
        ' 获取下一个文件名
        文件号 = Dir
    Loop
    
    ' 关闭目标文件
    Close #1
    MsgBox "合并完成！"
End Sub

3. 运行VBA代码

返回Excel界面，按下Alt + F8键，在弹出的“宏”窗口中找到“合并TXT文件”选项，点击“运行”。稍等片刻，你就会看到所有TXT文件已经被合并成一个文件，并且保存在指定的目标路径。

4. 总结

通过以上步骤，你就可以轻松地使用VBA合并多个TXT文件了。这种方法不仅节省了时间，还提高了工作效率。希望这篇文章能帮助你更好地掌握VBA在文件整理方面的应用。如果你还有其他问题，欢迎在评论区留言交流！

-- 展开阅读全文 --