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

使用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名称全部都是“
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值