使用VBA合并多个TXT文件内容到Excel的不同列的实现

最新推荐文章于 2023-12-17 22:21:16 发布

进击的HHH

最新推荐文章于 2023-12-17 22:21:16 发布

阅读量3k

点赞数 3

文章标签： excel vba

本文链接：https://blog.csdn.net/Pumpkinman/article/details/116021635

版权

本文介绍了如何使用VBA编程技巧，将一个文件夹下的多个TXT文件内容逐一读取，并按顺序粘贴到Excel的不同列中，方便进行数据整理和分析。

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

需求

某一文件夹下有多个txt文件，文件里每行是一个内容，类似：
data1.txt

data2.txt

a
b
c
d
e

最终需要把这些txt内容复制到excel里，并存在同一个sheet的不同列里

编码

Sub AddWorkbook()
    'sub表示一个过程
    '声明一个变量
    Dim isSheetOk  As Boolean
    '调用一个叫做copyTXT2Sheet的函数
    isSheetOk = copyTXT2Sheet()
    If Not isSheetOk Then
        Exit Sub
    End If
    ' 保存结果
    saveResult
    
    
    
End Sub

Function copyTXT2Sheet() As Boolean '函数返回一个布尔值，函数返回值即  函数名=xxx 则表示返回了 xxx
    Dim resultName As String
    Dim xFile As String
    Dim xFileDialog As FileDialog
    Dim xToBook As Workbook
    Dim xWb As Workbook
    Dim xFiles As New Collection
    '文件选择弹窗
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "选择包含txt的文件夹"
    If xFileDialog.Show = -