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

需求

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

1
2
3
4
5

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 = -
  • 3
    点赞
  • 18
    收藏
    觉得还不错? 一键收藏
  • 3
    评论
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值