求助VBA修改

Yaong_3

1. Sub 合并() '合并工作薄
   
2. Application.ScreenUpdating = False
   
3. Dim f_name As String
   
4. Dim bok1 As Workbook
   
5. f_name = Dir(ThisWorkbook.Path & "" & "*.xlsx") '获得本文件夹下的工作簿名称
   
6. Do While f_name <> "" And f_name <> ThisWorkbook.Name '不是空并且不是自己
   
7. Set bok1 = Workbooks.Open(ThisWorkbook.Path & "" & f_name) '打开它
   
8. bok1.Sheets("门店营业款项明细").Copy Before:=ThisWorkbook.Sheets(1) '拷贝打开的文件到新工作表
   
9. ThisWorkbook.Sheets(1).Name = bok1.Name ''用打开的文件名命名
   
10. bok1.Close '关闭打开的文件
    
11. f_name = Dir() ''获得本文件夹下的工作簿名称
    
12. Loop '循环
    
13. Application.ScreenUpdating = True
    
14. End Sub

复制代码

德威隐匿者

Yaong_3 发表于 2016-8-11 17:53
每个文件都包含的标签名应该是”门店营业款项明细“，而你在4楼说的是”营业款项明细“，差2个字呢！把两个 ...

非常好用，万分感谢！！！