多工作薄多表格中删除隐藏对象报错了

沈默00

仓库账里有多个工作薄，每个工作薄下面有多个月份的工作表，这些工作薄下的工作表里不知哪来的隐藏对象，造成表格打开和编辑没办法操作了，卡死了。1 、开始我用定位+对象删除过，太卡了，果断放弃了。。2、后来选用代码删除，如果一个一个表删除是没问题，这样会需要保存为.xlsm文件，也很麻烦。3、想了下可不可以单独做一个可以批量删除多薄下多表里对象的文件，结果报错了，不知道错在哪，请老师指教，帮修改下代码。4、附加：如果可以做一个可以选择文件的对话框，是不是也可以删除选择的单个工作薄里的对象呢？而且原文件还是要保存为原来的.xlsx格式


附件是随便弄的，实际上单个工作薄里可能有几千个隐藏的对象

hourhand

If InStr(f, "xlsx") And f <> ThisWorkbook.Name Then

沈默00

hourhand 发表于 2023-10-10 10:03
If InStr(f, "xlsx") And f  ThisWorkbook.Name Then

有的工作薄是.xls怎么办，xls*好像可以

hourhand

沈默00 发表于 2023-10-10 10:09
有的工作薄是.xls怎么办，xls*好像可以

对，用"xls*"

沈默00

hourhand 发表于 2023-10-10 10:12
对，用"xls*"

奇怪了，我开始就是这么弄的，放在仓库那边用就是报错，附件换了好像又可以了，也许是仓库表格的问题，我再看看，老师可以帮看看可不可以再按第4点的做法写一个

沈默00

https://club.excelhome.net/forum ... =1459455&page=2
这里14楼都说是神操作，可惜研究半天没有想出来怎么个弄法，哪位老师来个动画版支持下

hourhand

沈默00 发表于 2023-10-10 10:23
https://club.excelhome.net/forum.php?mod=viewthread&tid=1459455&page=2
这里14楼都说是神操作，可惜研 ...

前几个月用过这样的方法，因从网页复制粘贴带了好多对象，先改后缀为压缩包格式，如zip、rar的，打开后再按步骤操作。

hourhand

1. Sub GetFileDialog()
   
2.     Dim wb As Workbook, sh As Worksheet, shp As Shape
   
3.     Dim FileDialog As FileDialog
   
4.     Dim FileChosen As Integer
   
5.     Dim FileName As String
   
6.     ' 创建一个新的FileDialog对象
   
7.     Set FileDialog = Application.FileDialog(msoFileDialogFilePicker)
   
8.     ' 允许用户从计算机中选择文件
   
9.     FileDialog.AllowMultiSelect = False
   
10.     ' 显示文件选择对话框
    
11.     FileChosen = FileDialog.Show
    
12.     ' 如果用户选择了文件，则获取文件的完整路径
    
13.     If FileChosen = -1 Then
    
14.         FileName = FileDialog.SelectedItems(1)
    
15.     End If
    
16.     Set wb = Workbooks.Open(FileName)
    
17.     For Each sh In wb.Sheets
    
18.         For Each shp In sh.Shapes
    
19.             If shp.Type <> 8 And shp.Type <> 12 Then
    
20.                 shp.Delete
    
21.             End If
    
22.         Next
    
23.     Next
    
24.     wb.Save
    
25.     wb.Close 0
    
26. End Sub

复制代码

沈默00

hourhand 发表于 2023-10-10 10:34
前几个月用过这样的方法，因从网页复制粘贴带了好多对象，先改后缀为压缩包格式，如zip、rar的，打开后再 ...

还是不行，又不会删除了，见下图

沈默00

是文件大了就不执行了吗，晕倒。三个文件一个也没删除
..