部份工作表保存成为一个或几个独立的工作簿

opklnm1108

3190496160 发表于 2024-6-14 08:34
具体日期自己修改，第三点不知道是什么意思

第三点，我的意思是删除原工作簿所有工作表，里面留一个表名为“空白”的工作表（保存新工作簿后生成）。

麻烦您给处理一下，第3点。意思将原工作簿的所有工作表给删除，重新生成一个表名为“空白”的工作表在里面（相当于原工作簿中只一个表为“空白”的工作表，并且在该工作表中某单元单<哪个都可以，能打开工作簿时能看见就行>自动生成“相关基础数据已保存到桌面上了”）。原工作簿保存路径不变。

lcs_2046

这肯定是不行的，excel 需要至少保留一个工作表

opklnm1108

3190496160 发表于 2024-6-14 08:33

非常感谢，第三点也麻烦您处理下

opklnm1108

lcs_2046 发表于 2024-6-14 10:32
这肯定是不行的，excel 需要至少保留一个工作表

不是让其重新生成一个表名为“空白”工作表吗？

opklnm1108

ykcbf1100 发表于 2024-6-14 09:34
参与一下。。。

1、没有将该保存的工作表以工作簿的方式保存到桌面上
2、原工作簿无法打开，里面看不见工作表“空白”

ykcbf1100

opklnm1108 发表于 2024-6-14 11:07
1、没有将该保存的工作表以工作簿的方式保存到桌面上
2、原工作簿无法打开，里面看不见工作表“空白”

肯定保存在桌面啊。看不见空白表是因为后面的代码我暂时注销掉了，我已经写清楚了。如果要用，你自己启用就行。

opklnm1108

ykcbf1100 发表于 2024-6-14 11:39
肯定保存在桌面啊。看不见空白表是因为后面的代码我暂时注销掉了，我已经写清楚了。如果要用，你自己启用 ...

我也不知道保存到哪里去了，四楼是保存在桌面了的。没有过期不删除工作表也不生成空白工作表

ykcbf1100

opklnm1108 发表于 2024-6-14 11:45
我也不知道保存到哪里去了，四楼是保存在桌面了的。没有过期不删除工作表也不生成空白工作表

你用WPS的？那算了，你用其他老师的代码吧。

我用的是office系统，工作簿保存在桌面了。

lcs_2046

opklnm1108 发表于 2024-6-14 10:19
第三点，我的意思是删除原工作簿所有工作表，里面留一个表名为“空白”的工作表（保存新工作簿后生成）。 ...

第三点，看我的帖子，第三条是实现了的，因为是手机上写的，保存路径就没做，

ykcbf1100

你把右面这句换成下面这句再试试： p = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\"   

    p = Environ("USERPROFILE") & "\Desktop\"