灵活拆分工具

朱荣兴 · 发表于 2018-12-26 15:29

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

星语心愿 · 发表于 2018-12-29 13:44

建议保存的时候加上一句：, FileFormat:=xlExcel8
如：wb.SaveAs Filename:=ThisWorkbook.Path & "\" & x(k) & ".xls", FileFormat:=xlExcel8
要不，在某些版本的EXCEL打开的时候会提示打开的文件的xls的格式与文件扩展名指定的格式不一样。虽然可以打开，但是每个工作薄都要点一下，很麻烦。

星语心愿 · 发表于 2018-12-29 13:46

http://club.excelhome.net/forum. ... ead&tid=1290990
saveas 不仅要指定文件扩展名，还要指定文件类型

sculiaods · 发表于 2018-12-30 23:09

大神们，有2013版的吗？公司电脑只能用这个版本。

sculiaods · 发表于 2018-12-31 21:58

2013版已OK，自己增加了一个命名，标题部分行高保持不变，但是数据区域行高都是自动行高了。不知道怎么解决数据部分的行高。

2008pisa · 发表于 2019-1-8 20:36

朱老师，我想提个要求，可否实现把一个工作簿（包含多个工作表）按固定列（拆分的列是固定的）拆分成多个独立的工作簿，每个工作簿里也有多个工作表，因为每个工作表内容不同，，所以不能单纯的合并拆分再逐拆分来实现

vienmday · 发表于 2019-1-10 12:43

谢谢版主。

vienmday · 发表于 2019-1-10 13:15

老师你好，使用了你拆分小工具，提示这句代码报错：Set d(arr(i, ComboBox2.Text)) = Union(d(arr(i, ComboBox2.Text)), ActiveSheet.Range("a" & i).Resize(1, UBound(arr, 2))) 。
不知是否是65536的限制。求教。

朱荣兴 · 发表于 2019-1-11 12:04

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

墨辰槿 · 发表于 2019-1-14 14:20

点击运行，显示拆分类型不匹配

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

[分享] 灵活拆分工具

最新热点 /1

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

	回复举报

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

	回复举报