求大神赐教vba编码
excel吧
全部回复
仅看楼主
level 5
earthtubon 楼主
如何把汇总工作表里面的每个工作表拆分成一个个独立的工作表？
2017年09月14日 08点09分 1
level 12
夜辰无星
要看数据什么样
2017年09月14日 08点09分 2
earthtubon
就像这样的一个一个表格 数据就是一些字段信息 如何把他们分成一个一个独立的表格呐
2017年09月14日 08点09分
level 11
VBA菜鸟😂
楼主贴图写要求，看看我这个初学者能不能写出来
2017年09月14日 08点09分 4
earthtubon
下面图片可以看到吗？ 我无法单独粘贴给你呢
2017年09月14日 08点09分
earthtubon
就像这样的一个一个表格 数据就是一些字段信息 如何把他们分成一个一个独立的表格呐
2017年09月14日 08点09分
level 5
earthtubon 楼主
2017年09月14日 08点09分 5
夜辰无星
看不清，还有你的汇总表呢
2017年09月14日 09点09分
VBA菜鸟😂
意思是要把这个工作簿里面的工作表拆分成一个个工作簿？
2017年09月14日 09点09分
earthtubon
@VBA菜鸟😂 是的
2017年09月14日 09点09分
earthtubon
回复 夜辰无星 就是把这个工作薄里面的工作表拆分成一个一个独立的工作薄
2017年09月14日 09点09分
level 5
earthtubon 楼主
2017年09月14日 09点09分 6
level 12
夜辰无星
Sub i()
Dim sh
For Each sh In ThisWorkbook.Sheets
sh.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sh.Name & ".xlsx"
ActiveWorkbook.Close
Next
End Sub
2017年09月14日 09点09分 9
earthtubon
你好😊，代码运行时提示定义的应用程序或定义的对象错误 电脑是Mac的
2017年09月15日 07点09分
夜辰无星
@earthtubon 不知道，我用WPS和Excel2016试了都可以
2017年09月15日 07点09分
1一生守候
厉害了
2017年09月15日 07点09分
夜辰无星
@1一生守候 我就小白一个[乖]求罩
2017年09月15日 07点09分
level 5
earthtubon 楼主
2017年09月15日 07点09分 15
真正大熊猫
windows操作系统可以运行。
2017年09月15日 11点09分
fwpfang2
@真正大熊猫 MAC不適合辦公，特別是編程，需要不同的內核
2017年09月15日 12点09分
1