Excel精英培训网

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

[已解决]请高手,帮忙做一个拆分表的VBA

[复制链接]
发表于 2014-12-11 09:36 | 显示全部楼层 |阅读模式
本帖最后由 fhqyyy 于 2014-12-11 16:13 编辑

请高手帮我把附件的二级理货,扫拨运抵,京大倒库,这三个表,做个VBA拆分到桌面谢谢,拆分到桌面的表名称就用sheet表名。我的二极理货报告,以前有一个VBA,请不要删除,我还要用谢谢。
最佳答案
2014-12-11 15:59
………………

倒库表.rar

109.62 KB, 下载次数: 22

 楼主| 发表于 2014-12-11 12:07 | 显示全部楼层
本帖最后由 fhqyyy 于 2014-12-11 13:28 编辑

高手们帮我看看啊 。
回复

使用道具 举报

发表于 2014-12-11 14:59 | 显示全部楼层
fhqyyy 发表于 2014-12-11 12:07
高手们帮我看看啊 。
  1. Sub cf()
  2.     Application.DisplayAlerts = False
  3.     Application.ScreenUpdating = True
  4. Sheets("京大倒库").Copy
  5.     ChDir "C:\Users\Administrator\Desktop"
  6.     ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\京大倒库.xlsx"
  7. ActiveWorkbook.Close
  8.     Sheets("京大倒库").Copy
  9.     ChDir "C:\Users\Administrator\Desktop"
  10.     ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\分拨运抵.xlsx"
  11.     ActiveWorkbook.Close
  12. Application.DisplayAlerts = True
  13.     Application.ScreenUpdating = True
  14. End Sub
复制代码
回复

使用道具 举报

发表于 2014-12-11 15:15 | 显示全部楼层
  1. Sub Macro1()
  2. Dim i%, wb As Workbook
  3. Application.ScreenUpdating = False
  4. Application.DisplayAlerts = False
  5. Set wb = ThisWorkbook
  6. For i = 1 To 3
  7.     wb.Sheets(i).Copy
  8.     ActiveWorkbook.SaveAs Filename:=wb.Path & "" & wb.Sheets(i).Name & ".xls"
  9.     Workbooks(wb.Sheets(i).Name).Close 1
  10. Next
  11. Application.DisplayAlerts = True
  12. Application.ScreenUpdating = True
  13. End Sub
复制代码
回复

使用道具 举报

发表于 2014-12-11 15:59 | 显示全部楼层    本楼为最佳答案   
………………

倒库表.rar

110.49 KB, 下载次数: 35

回复

使用道具 举报

 楼主| 发表于 2014-12-11 16:12 | 显示全部楼层
非常感谢
回复

使用道具 举报

发表于 2017-5-20 18:36 | 显示全部楼层
下来看看,学习学习
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 20:33 , Processed in 0.277490 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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