实现关闭新表打开原表

hhxq001 · 发表于 2024-4-2 16:57

现在的状况是另存的新表是关闭的，但原表也关闭了。如何实现关闭新表的同时原表打开着

另存后新表关闭打开本表.rar (81.21 KB, 下载次数: 3)

无敌小猪猪 · 发表于 2024-4-2 17:09

这个注释掉

excel玉米 · 发表于 2024-4-2 17:09

Dim wb as workbook
Set wb="新表"
Wb.close

hhxq001 · 发表于 2024-4-2 17:18

本帖最后由 hhxq001 于 2024-4-3 03:55 编辑

无敌小猪猪发表于 2024-4-2 17:09
这个注释掉

注释掉后新表原表都关闭了呢，需要原表在打开状态。

hhxq001 · 发表于 2024-4-2 17:20

excel玉米发表于 2024-4-2 17:09
Dim wb as workbook
Set wb="新表"
Wb.close

新表本来就是wb，也可以关闭，但原表不是打开状态呢

ykcbf1100 · 发表于 2024-4-2 19:13

这个wb其实就是打开的工作簿，对于本簿另存，应该用SavecopyAs,而不是用SaveAs。这就是会关闭主工作簿的原因。

ykcbf1100 · 发表于 2024-4-2 19:28

附件供参考，楼主是想复杂了。

hhxq001 · 发表于 2024-4-2 22:36

本帖最后由 hhxq001 于 2024-4-3 03:41 编辑

ykcbf1100 发表于 2024-4-2 19:28
附件供参考，楼主是想复杂了。

我要实现的结果是这样的，因为原表有各种数据要保留，在导出时要求新表是空白表，并且带宏可用，新表要关闭，原表数据保持不变并且在打开状态。

SaveCopyas是原表不做改动的备份，而我是要原表另存为空白新表并关闭，原表不清空并打开着

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

[求助] 实现关闭新表打开原表