使用VBA将多个txt批量转换成excel表并保存

VBA将多个txt批量转换成excel表并保存

python 复制代码
Sub ykcbf() 
    Set fso = CreateObject("scripting.filesystemobject")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    p = ThisWorkbook.Path & ""
    On Error Resume Next
    For Each f In fso.GetFolder(p).Files
        If f.Name Like "*.txt" Then
            fn = fso.GetBaseName(f)
            zrr = Split(ReadUTFText(f), Chr(13))
            ReDim brr(1 To 1000, 1 To 6)
            m = 0
            For i = 0 To UBound(zrr)
                If zrr(i) <> Empty Then
                    s = WorksheetFunction.Trim(zrr(i))
                    b = Split(s, ",")
                    m = m + 1
                    brr(m, 1) = b(0)
                    brr(m, 3) = b(4)
                    brr(m, 4) = b(1)
                    brr(m, 5) = fn
                    brr(m, 6) = b(2)
                End If
            Next
            Application.SheetsInNewWorkbook = 1
            Set wb = Workbooks.Add
            With wb.Sheets(1)
                .Columns(4).NumberFormatLocal = "@"
                .[a1:f1] = Array("姓名", "电话", "省份", "身份证号", "住址", "民族")
                .[a2].Resize(m, 6) = brr
                With .[a1].Resize(m + 1, 6)
                    .Borders.LineStyle = 1
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                    .EntireColumn.AutoFit
                End With
                .SaveAs p & fn
                .Close 1
            End With
        End If
    Next f
    Application.ScreenUpdating = True
    MsgBox "OK!"
End Sub
相关推荐
枫,为落叶2 小时前
【vue】导出excel
前端·vue.js·excel
星空的资源小屋3 小时前
RoboIntern,一款自动化办公小助手
运维·人工智能·pdf·自动化·电脑·excel
会飞的小菠菜16 小时前
大量Excel工作簿中的图片怎么批量提取出来
excel·导出·图片·提取·批量·保存·另存为
nongcunqq16 小时前
abap 操作 excel
java·数据库·excel
CodeCraft Studio19 小时前
国产化Excel开发组件Spire.XLS教程:将Python列表转换为Excel表格(3种实用场景)
开发语言·python·excel·spire.xls·python列表转excel·国产化文档开发
企鹅侠客19 小时前
基于python写的PDF表格提取到excel文档
python·pdf·excel·pdf文档表格转excel
忘忧记21 小时前
Excel VLOOKUP函数完全教程:从基础到高级实战
excel
葡萄城技术团队21 小时前
突破Excel局限!SpreadJS让电子表格“活”起来
java·数据库·excel
左师佑图1 天前
Apache POI SXSSFWorkbook 报错“没有那个文件或目录”问题排查与解决方案
java·apache·excel
monkeyhlj1 天前
excel-mcp-server rocky linux简单部署
linux·运维·excel