表格有100多万张shape 怎么删除

z865593849 · 发表于 2024-9-3 20:19

厂里的老阿姨说表格很卡，我用ActiveSheet.Shapes.count 显示有124万个对象，如何删除
有几个sheet里30万，50万shape花点时间我删除掉了，但是这个124万的不行

文件太大上传不了
首先不能用 for each shape , 也不能用 shapes.SelectALL 否则会卡死
或者说有什么方法能把range("a1:a10") 的文字复制也行（不能用range(a1).copy range(b1) 会卡死）
我CPU是12700 ，不存在性能问题

shiruiqiang · 发表于 2024-9-3 21:03

表格内容写入数组，写回其他表内，删除此表

明天会更好zj · 发表于 2024-9-3 21:08

定位，对象，delete试一试

f8b1987 · 发表于 2024-9-3 21:10

三楼正解，直接删除就行，要用代码循环干嘛

sunya_0529 · 发表于 2024-9-3 21:24

只是需要单元格里的内容的话，也可以试一下把文件另存成*.csv格式，
如果打开很卡的话，也可以使用ADO用读取数据库的形式把内容取出来试试。

joy.008@163.com · 发表于 2024-9-3 21:29

4楼的头像gif多了一帧没删除吧?

飞天篮球猪 · 发表于 2024-9-3 21:38

试试 ActiveSheet.DrawingObjects.Delete

语虚何以言知 · 发表于 2024-9-3 21:41

文件上传百度网盘发下吧

lwwy1981 · 发表于 2024-9-3 22:35

扩展名改为.rar 然后打开压缩包,删除图片文件夹的内容就行了,一秒就全删除了

z865593849 · 发表于 2024-9-3 22:43

shiruiqiang 发表于 2024-9-3 21:03
表格内容写入数组，写回其他表内，删除此表

成功解决，总想着删掉图片，都转不过弯来

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

[求助] 表格有100多万张shape 怎么删除

评分

评分

评分