[已解决]请问，如何用VBA将多个工作薄中的第一个工作表，汇总到一个工作薄中的每一个工作表中

新一

请问，如何用VBA将多个工作薄中的第一个工作表，汇总到一个工作薄中的每一个工作表中，助工作表的名称为相应工作薄的名称。如附件中的，"汇总"工作薄.

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-11 10:03

………………

跳转到最佳答案楼层

雪舞子

类似代码本论坛已有很多，以下仅供测试：

1. Sub test()
   
2.     Dim wb As Workbook, tPath$, tFile$
   
3.     On Error Resume Next
   
4.     tPath = ActiveWorkbook.Path
   
5.     tFile = Dir(tPath & "\*.xls*")
   
6.     Do Until tFile = ""
   
7.         If tFile <> ThisWorkbook.Name Then
   
8.             Set wb = GetObject(tPath & "" & tFile)
   
9.             wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
   
10.             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0)
    
11.             wb.Close False
    
12.         End If
    
13.         tFile = Dir
    
14.     Loop
    
15. End Sub

复制代码

新建文件夹.rar (15.13 KB, 下载次数: 2)

2015-1-11 10:02 上传

点击文件名下载附件

dsmch

………………

新一

谢谢老师。