VBA导出工作表至新工作簿中，VBA导出工作表至多个工作簿中

anxuecanlong · 发表于 2017-4-18 15:27

本帖最后由 anxuecanlong 于 2017-4-18 15:30 编辑

问题1：导出至一个新的工作簿中
新建工作簿，以公司名称命名工作表，所有工作表全部在一个工作簿中

问题2：导出至多个工作簿中
新建工作簿，以公司名称命名工作簿，生成好多个工作簿

补充内容 (2017-9-19 10:54):
https://item.taobao.com/item.htm ... amp;id=545028544404

补充内容 (2017-9-19 10:54):
https://item.taobao.com/item.htm ... amp;id=545028544404

补充内容 (2017-9-19 10:56):
如何关闭帖子

anxuecanlong · 发表于 2017-4-18 15:33

问题1的代码运行不了，存在很大的问题

问题2的代码运行得了，但是存储的文件很大，是65536的数据行来复制的

朱荣兴 · 发表于 2017-4-18 16:08

提示: 作者被禁止或删除内容自动屏蔽

anxuecanlong · 发表于 2017-4-18 16:46

朱荣兴发表于 2017-4-18 16:08
导出为一个工作簿文件
Private Sub CommandButton3_Click() '------------------------------------------ ...

谢谢您的代码没问题但我想导出的顺序要和档案表里的顺序一样所以我之前的代码是将档案表的顺序逐一复制到明细表的[B2] 并且是通过执行CommandButton1_Click得出导出的结果麻烦你可以再帮我修改下吗

朱荣兴 · 发表于 2017-4-18 16:57

提示: 作者被禁止或删除内容自动屏蔽

anxuecanlong · 发表于 2017-4-18 17:01

朱荣兴发表于 2017-4-18 16:57
稍微改一下就行，你事先又没说明。

r = Sheets("明细表").Cells(Rows.Count, 1).End(xlUp).Row
arr = Sheets("明细表").Range("a1:r" & r)
For i = 5 To UBound(arr)
d(arr(i, 15)) = ""
Next i

不好意思啊是不是把这一块改一下啊？

朱荣兴 · 发表于 2017-4-18 17:18

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2017-4-19 06:43

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2017-4-19 06:44

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2017-4-19 06:45

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			免费注册

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-4-18 16:08 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-4-18 16:57 来自手机 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-4-18 17:18 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-4-19 06:43 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-4-19 06:44 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-4-19 06:45 \| 显示全部楼层 [广告] ★ ChatOffice，能听会写的AI办公，包含百种Excel、Word、PPT工具，兼容WPS，百倍效率！★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

VBA导出工作表至新工作簿中，VBA导出工作表至多个工作簿中

最新热点 /1