Excel精英培训网

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

[已解决]批量复制指定数据的问题

[复制链接]
发表于 2014-8-8 21:54 | 显示全部楼层 |阅读模式
本帖最后由 dfshm 于 2014-8-8 23:27 编辑

附件 批量复制数据.rar (117.73 KB, 下载次数: 20)
发表于 2014-8-8 22:46 | 显示全部楼层
  1. Sub Macro1()
  2. Dim fs As Object, wb As Workbook
  3. Application.ScreenUpdating = False
  4. Application.DisplayAlerts = False
  5. Set fs = CreateObject("Scripting.FileSystemObject")
  6. zf = ThisWorkbook.Path & "\新建"
  7. If Not fs.FolderExists(zf) Then fs.CreateFolder (zf)
  8. Application.SheetsInNewWorkbook = 1
  9. For i = 1 To 3
  10.     Set wb = GetObject(ThisWorkbook.Path & "" & Format(i, "00") & ".xls")
  11.     With Workbooks.Add
  12.         wb.Sheets(1).[1:2].Copy [a1]
  13.         wb.Close 0
  14.         .SaveAs Filename:=zf & "" & Format(i, "00") & ".xls"
  15.         .Close 1
  16.     End With
  17. Next
  18. Application.SheetsInNewWorkbook = 3
  19. Application.DisplayAlerts = True
  20. Application.ScreenUpdating = True
  21. End Sub
复制代码
回复

使用道具 举报

发表于 2014-8-8 22:48 | 显示全部楼层    本楼为最佳答案   
………………

新建文件夹.zip

26.24 KB, 下载次数: 19

评分

参与人数 1 +3 收起 理由
dfshm + 3 很给力!

查看全部评分

回复

使用道具 举报

发表于 2014-8-8 23:49 | 显示全部楼层
有点看不懂
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 10:02 , Processed in 0.953483 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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