excel文件打开乱码 excel文件打不开( 二 ) _云知道

    Dim fileCount As Integer, maxRow As Integer
    Dim iRow As Integer, iCol As Integer
    Dim sFile As String

    Set ws = ThisWorkbook.Sheets(1)
    Dim sht As Worksheet

    '清空历史内容，防重复
    ws.Cells.ClearContents
    Application.ScreenUpdating = False
    If sPath <> "" Then
        sPath = sPath & "\\"
        sFile = Dir(sPath & "*.xls?")
        Do While Len(sFile) > 0
            fileCount = fileCount + 1
            Set wb = Workbooks.Open(sPath & sFile)
            Set sht = wb.Sheets(1)
            '数据的行列数
            With sht.Range("a1").CurrentRegion
                iRow = .Rows.Count
                iCol = .Columns.Count
            End With

            If ws.Range("a1") = "" Then '第一次粘贴
                ws.Range("a1").Resize(iRow, iCol).Value = https://atx106.com/_
                sht.Range("a1").CurrentRegion.Value
            Else
                maxRow = ws.Cells(Rows.Count, 1).End(3).Row + 1
                ws.Cells(maxRow, 1).Resize(iRow – 1, iCol).Value = https://atx106.com/_
                sht.Range("a2").Resize(iRow – 1, iCol).Value
            End If
            wb.Close 0
            sFile = Dir
        Loop
    End If
    Application.ScreenUpdating = True
    MsgBox "合并完成,共合并" & fileCount & "个文件", vbOKOnly, "提示"
End Sub
说完VBA，我们最后再来说一下，Power Query如何实现汇总，我知道很多新手朋友都是一步一步操作，这里我们就直接使用M函数来写，所谓的函数式编程：

Excel办公实战一起学习Excel，0基础、进阶、高级图文动画教程！技巧，函数，技巧，VBA，可视化图表，PBI！视频教程、免费模板、精英培训！VLOOKUP系列教程！ 1107篇原创内容
▲1000+精心原创，您有问题，这里有方案

excel文件打开乱码 excel文件打不开( 二 )

推荐阅读

迅捷CAD编辑器在CAD图纸里连续标注尺寸的方法

生豆浆要煮多久喝才安全生豆浆要煮多久

功夫熊猫阿宝喜欢吃什么功夫熊猫主角喜欢吃什么

为什么羽绒服那么轻而且保暖

一两银子等于多少人民币

社交电商是什么概念

澄迈县美食

个性签名女生简单气质简单个性签名

美的热水器不打火是什么原因

春季果树晚霜冻的防治

狗狗缺钙会怎么样？狗狗缺钙的表现有哪些

矶竿主要钓什么鱼，路亚竿和矶钓竿哪个实用

篮球运动与健康的关系

海口人才，海口人才落户去哪里办理

建材行业招标需要什么,技术标投标五大流程全掌握

降低首付比例房价会上涨吗