从Excel中删除TableStyle

发布于 2024-08-08 02:49:33 字数 508 浏览 6 评论 0原文

我已使用以下语句将 TableStyle 添加到 Excel 工作簿：

ActiveWorkbook.TableStyles.Add("PivotTable SS")

我可以使用以下方式删除它：

ActiveWorkbook.TableStyles("PivotTable SS").Delete

在决定是否删除之前，如何以编程方式检查它是否已存在？

目前我正在循环遍历所有表格样式并进行选择性删除：

    For Each ts In ActiveWorkbook.TableStyles
        If ts.Name = "PivotTable Style 1" Then
            ts.Delete
        End If
    Next ts

但是，这很耗时。如何在不循环的情况下检查数据透视表是否存在并删除它？

谢谢：）

原文

I have added a TableStyle to excel workbook using the statement:

ActiveWorkbook.TableStyles.Add("PivotTable SS")

I can delete it using:

ActiveWorkbook.TableStyles("PivotTable SS").Delete

How can I programmatically check if it already exists before deciding whether to delete or not?

Currently I am looping through all the table styles and doing a selective delete:

    For Each ts In ActiveWorkbook.TableStyles
        If ts.Name = "PivotTable Style 1" Then
            ts.Delete
        End If
    Next ts

However, this is time-consuming. How can I just check for the pivot table existence and delete it without looping?

Thanks :)

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

冷默言语 2024-08-15 02:49:33

您可以尝试将样式分配给变量。如果变量为 Nothing，则该样式不存在。如果样式不存在并且您尝试分配变量，您将收到错误消息，因此您需要暂时暂停错误处理。

Sub DeleteAStyle()

    Dim ts As TableStyle

    On Error Resume Next
    Set ts = ActiveWorkbook.TableStyles("PivotTable Style 1")
    On Error GoTo MyUsualErrorHandler

    If Not ts Is Nothing Then
        ts.Delete
    End If

End Sub

You can try assigning the style to a variable. If the variable is Nothing, then the style does not exist. If the style does not exist and you try to assign the variable, you will get an error message, so you need to temporarily suspend the error handling.

Sub DeleteAStyle()

    Dim ts As TableStyle

    On Error Resume Next
    Set ts = ActiveWorkbook.TableStyles("PivotTable Style 1")
    On Error GoTo MyUsualErrorHandler

    If Not ts Is Nothing Then
        ts.Delete
    End If

End Sub

回复收藏 0 原文

~没有更多了~