导出表不含空白列

hhxq001 · 发表于 2021-4-14 14:41

想导出一个表，不导出中间所含的空白列，但表的样式不能变。求助会家，怎么用代码实现呢。

导出0414.zip (39.77 KB, 下载次数: 9)

A1233515 · 发表于 2021-4-14 15:16

你要导出到哪里？

hhxq001 · 发表于 2021-4-14 15:25

A1233515 发表于 2021-4-14 15:16
你要导出到哪里？

导出成新表

A1233515 · 发表于 2021-4-14 15:46

本代码判断空列的依据是：数据源表在第三行中空白单元格所在列

A1233515 · 发表于 2021-4-14 15:46

附件供参考

hhxq001 · 发表于 2021-4-14 16:11

A1233515 发表于 2021-4-14 15:46
本代码判断空列的依据是：数据源表在第三行中空白单元格所在列

谢谢指教，我运行时出错，给看看怎么回事呢

A1233515 · 发表于 2021-4-14 16:26

hhxq001 发表于 2021-4-14 16:11
谢谢指教，我运行时出错，给看看怎么回事呢

把.xlsx改成.xlsm试试

hhxq001 · 发表于 2021-4-14 16:43

本帖最后由 hhxq001 于 2021-4-14 16:45 编辑

A1233515 发表于 2021-4-14 16:26
把.xlsx改成.xlsm试试

改了以后可以了。我想导出完成后，原表不关闭怎么修改代码，你这段代码目前是全部关闭工作表的

A1233515 · 发表于 2021-4-14 17:04

hhxq001 发表于 2021-4-14 16:43
改了以后可以了。我想导出完成后，原表不关闭怎么修改代码，你这段代码目前是全部关闭工作表的

把代码倒数第二句（close那句）去掉

A1233515 · 发表于 2021-4-14 17:05

hhxq001 发表于 2021-4-14 16:43
改了以后可以了。我想导出完成后，原表不关闭怎么修改代码，你这段代码目前是全部关闭工作表的

另，由于代码是在原数据表基础上修改的，所以如果自己关闭工作表时，一定要不保存

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

[求助] 导出表不含空白列