VBA遍历文件夹下的文件并且合并工作簿到一个工作簿中

最新推荐文章于 2024-08-18 19:16:24 发布

Don Corleone__

最新推荐文章于 2024-08-18 19:16:24 发布

阅读量1.2w

点赞数 2

本文链接：https://blog.csdn.net/baidu_36779760/article/details/80084430

版权

使用VBA编程，可以高效地遍历指定文件夹下的所有Excel文件，并将它们的内容合并到一个单一的工作簿中，实现数据整合与管理自动化。

摘要由CSDN通过智能技术生成

这里整合指把Sheet移动到一个workbook中。

没有覆盖到子文件夹中的文件。

Sub Test()

Debug.Print (ThisWorkbook.Path)

Dim p, stockcode As String
Dim f

p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xlsx") '遍历文件夹下的文件


  Do While f <> ""
        If f <> ThisWorkbook.Name Then
        
        stockcode = Mid(f, 11, 9)
        Debug.Print (p & f)
        Debug.Print (stockcode)
        Workbooks.Open Filename:=p & f 'open
        Sheets("已恢复_Sheet1").Move After:=Workbooks("新建 Microsoft Excel 工作表.xlsm").Sheets(ThisWorkbook.Worksheets.Count) '需要移动到最后一个。这里的Sheet名称全部都是“