从Excel工作簿中删除不需要的样式

Question

我的Excel工作簿已达到了Excel风格的限制。我发现了VBA代码以删除未建立的，应用它并发现样式是内置的和“ sapbexstditem*”。

不幸地运行此代码没有效果。大约2周前，大约有36000种样式。 我不知道使用样式。如果我知道它们是如何创建的，我会尝试手动删除该样式，但首选VBA解决方案。

关于彼得

Sub RemoveTheStyles()
 
    Dim style               As style
    Dim l_counter           As Long
    Dim l_total_number      As Long
 
    On Error Resume Next
 
    l_total_number = ActiveWorkbook.Styles.Count
    Application.ScreenUpdating = False
 
    For l_counter = l_total_number To 1 Step -1
    
        Set style = ActiveWorkbook.Styles(l_counter)
        
        If (l_counter Mod 500 = 0) Then
            DoEvents
            Application.StatusBar = "Deleting " & l_total_number - l_counter + 1 & " of " & l_total_number & " " & style.Name
        End If
        
        If Not style.BuiltIn Then style.Delete
        If Left(style.Name, 13) = "SAPBEXstdItem" Then
            style.Delete
        End If
        Debug.Print style.Name
    Next l_counter
 
    Application.ScreenUpdating = True
    Application.StatusBar = False
    Debug.Print "READY!"
    
    On Error GoTo 0
End Sub  

Answer 1

您不应将样式作为变量名称之类的代码单词使用。

这对我有用

Dim sty As Style  '-- don't use style as variable name
For Each sty In ThisWorkbook.Styles
    If sty.BuiltIn = false then 
        sty.delete
    ElseIf sty.Name Like "SAPBEX*" Then 
        sty.delete
    End If
Next