请教一下如何精简优化一下代码

wcj6376tcp

quqiyuan 发表于 2024-11-13 20:45
参与一下，仅供参考。。。

运行要报错？无法删除

quqiyuan

wcj6376tcp 发表于 2024-11-13 21:01
运行要报错？无法删除

哪里错误，错误代码是什么？

wcj6376tcp

quqiyuan 发表于 2024-11-13 21:03
哪里错误，错误代码是什么？

quqiyuan

wcj6376tcp 发表于 2024-11-13 21:11

把文件发出来吧。

wcj6376tcp

quqiyuan 发表于 2024-11-13 21:13
把文件发出来吧。

调试定位的这句  Sheets(sh).Drawing0bjects.Delete  是不是与我用的插入按钮有关？

quqiyuan

wcj6376tcp 发表于 2024-11-13 21:16
调试定位的这句  Sheets(sh).Drawing0bjects.Delete  是不是与我用的插入按钮有关？

你看一下数组arr里面有没有你的工作表名称，对不对吧，因为后面drawingobjects，delete应该是没有问题的

ykcbf1100

wcj6376tcp 发表于 2024-11-13 20:40
我需要只删除指定工作表里面的，这样批量删除完了哒？

指定表名的话，这样改下：
    fns = [{"shname","shname1"}]   '//指定表名数组
    With Workbooks.Open(fil)
        For Each sht In .Sheets(fns)
            With sht
                For Each shp In .Shapes
                    shp.Delete
                Next
            End With
        Next
        .Close True
    End With

wcj6376tcp

ykcbf1100 发表于 2024-11-14 06:50
指定表名的话，这样改下：
    fns = [{"shname","shname1"}]   '//指定表名数组
    With Workbooks.O ...

OK，完美运行成功。谢谢