生成一张空白表，原表不被改动

武松打鼓 · 发表于 2024-4-11 22:36

本帖最后由武松打鼓于 2024-4-11 22:38 编辑

点击按钮后，自动清空原数据，并导出成空白模板并关闭，但要原表保证不被改动，还是原内容。

导出问题.zip (170.78 KB, 下载次数: 10)

taller · 发表于 2024-4-12 02:18

武松打鼓 · 发表于 2024-4-12 03:10

如果要保存为含代码的xls格式，怎么写

ykcbf1100 · 发表于 2024-4-12 09:33

武松打鼓发表于 2024-4-12 03:10
如果要保存为含代码的xls格式，怎么写

最后一句代码改一下：ActiveWorkbook.SaveAs "d:\temp\test", 56

武松打鼓 · 发表于 2024-4-12 17:57

ykcbf1100 发表于 2024-4-12 09:33
最后一句代码改一下：ActiveWorkbook.SaveAs "d:\temp\test", 56

这样保存后会打开新表，而原表被关闭了。
能不能实现：新表是关闭的，原表还是打开的？

ykcbf1100 · 发表于 2024-4-12 18:40

这样改一下试试：
ActiveWorkbook.SaveCopyAs “d:\temp\test.xls"

武松打鼓 · 发表于 2024-4-12 21:44

ykcbf1100 发表于 2024-4-12 18:40
这样改一下试试：
ActiveWorkbook.SaveCopyAs “d:\temp\test.xls"

改成这样又出现2个问题：1导出的xls打开的时候提示：你尝试打开的xxx文件的格式与文件扩展名指定的格式不一致，......2、导出新表后虽然原表打开着，但内容被清空了，就是和新表一样了，原有的数据被清空了。

武松打鼓 · 发表于 2024-4-13 17:24

现在第2个问题用曲线救国的方式暂时解决了，就是将原数据写入数组，另存完成后再写回原位置。但第1个问题存为xls格式，再打开有格式不一致提示，没有找到办法。继续求助大侠

导出问题ok.rar (65.25 KB, 下载次数: 1)

武松打鼓 · 发表于 2024-4-13 22:07

本帖最后由武松打鼓于 2024-4-14 11:05 编辑

第1个问题也解决了：就是将原表直接保存为xls格式的原表，打开新原表，再清空后用SaveCopyAs保存为新表，打开就没有格式不一致的提示了

武松打鼓 · 发表于 2024-4-14 11:11

本帖最后由武松打鼓于 2024-4-23 16:01 编辑

完整答案

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

[求助] 生成一张空白表，原表不被改动