有没有什么代码，可以清除工作簿内容，包含数据和格式？

aizai2006nian · 发表于 2018-9-4 14:52

本帖最后由 aizai2006nian 于 2018-9-4 15:49 编辑

各位大神，有没有什么代码，可以清除工作簿内容，包含数据和格式？让每个工作簿内的表格成为初始状态，没有数据，没有格式，但是工作簿内各个表的名称不变。例如，表：A，表：B，表：C以此类推，清除之后名称不变。

朱荣兴 · 发表于 2018-9-4 15:07

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

zopey · 发表于 2018-9-4 15:08

伪代码
for each worksheet in thisworkbook
cells.clear
next

aizai2006nian · 发表于 2018-9-4 15:22

zopey 发表于 2018-9-4 15:08
伪代码
for each worksheet in thisworkbook
cells.clear

伪代码是什么意思？我是小白，能不能写一个粘贴复制就能用的代码。哈哈！

zopey · 发表于 2018-9-4 15:36

aizai2006nian 发表于 2018-9-4 15:22
伪代码是什么意思？我是小白，能不能写一个粘贴复制就能用的代码。哈哈！

因为你不提供附件，提供代码请自行调试。

aizai2006nian · 发表于 2018-9-4 15:50

zopey 发表于 2018-9-4 15:36
因为你不提供附件，提供代码请自行调试。

已上传附件，跪求大神指点。

aizai2006nian · 发表于 2018-9-4 17:35

顶一下，求各位大神帮忙。

zopey · 发表于 2018-9-4 17:48

aizai2006nian 发表于 2018-9-4 15:50
已上传附件，跪求大神指点。

Private Sub Workbook_Open()
For Each sh In Worksheets
sh.Cells.Clear
Next
End Sub

zopey · 发表于 2018-9-4 17:50

警告：工作簿打开时自动清除所有数据，请小心使用。

aizai2006nian · 发表于 2018-9-4 18:00

zopey 发表于 2018-9-4 17:50
警告：工作簿打开时自动清除所有数据，请小心使用。

这太狠了，能不能加一个执行呢？

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-9-4 15:07 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 有没有什么代码，可以清除工作簿内容，包含数据和格式？