Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2416|回复: 3

[已解决]如何把同一个文件夹里的100多份EXCEL 归到一个EXCEL里但分别

[复制链接]
发表于 2014-10-17 22:55 | 显示全部楼层 |阅读模式
如何把同一个文件夹里的100多份EXCEL 归到一个EXCEL里但分别在 sheet 1 ,sheet2,sheet3 ....................................里面。
最佳答案
2014-10-18 05:54
………………
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-10-17 23:06 | 显示全部楼层
难倒是不难,但是你的excel吃得消么?搞100多个sheet
回复

使用道具 举报

发表于 2014-10-18 05:53 | 显示全部楼层
  1. Sub Macro1()
  2. On Error Resume Next
  3. Dim mypath$, wj$, wb As Workbook
  4. Application.ScreenUpdating = False
  5. Application.DisplayAlerts = False
  6. For i = 1 To Sheets.Count
  7.     If Sheets(i).Name <> "界面" Then Sheets(i).Delete
  8. Next
  9. mypath = ThisWorkbook.Path & ""
  10. wj = Dir(mypath & "*.xls*")
  11. Do While wj <> ""
  12.     If wj <> ThisWorkbook.Name Then
  13.         zf = Split(wj, ".xls")(0)
  14.         Set wb = GetObject(mypath & wj)
  15.         If Sheets(zf) Is Nothing Then
  16.         With Sheets.Add(after:=Sheets(Sheets.Count))
  17.             wb.Sheets(1).Range("a1").CurrentRegion.Copy .[a1]
  18.             .Name = zf
  19.         End With
  20.         wb.Close 0
  21.         End If
  22.     End If
  23.     wj = Dir
  24. Loop
  25. Sheets("界面").Activate
  26. Application.DisplayAlerts = True
  27. Application.ScreenUpdating = True
  28. End Sub
复制代码
回复

使用道具 举报

发表于 2014-10-18 05:54 | 显示全部楼层    本楼为最佳答案   
………………

新建文件夹.zip

14.27 KB, 下载次数: 7

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 17:57 , Processed in 0.631583 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表