如何检查Excel工作簿是否包含数据透视图？需简洁返回是/否结果

以下是直接可用的VBA代码，运行后会弹窗返回"是"或"否"的判定结果：

Sub CheckPivotCharts()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    
    ' 替换为你要检查的工作簿，示例为当前工作簿，也可指定外部文件路径
    Set wb = ThisWorkbook
    ' 若要检查外部文件：Set wb = Workbooks.Open("C:\YourPath\TargetFile.xlsx")
    
    ' 遍历所有工作表
    For Each ws In wb.Worksheets
        ' 遍历工作表内所有嵌入图表
        For Each chartObj In ws.ChartObjects
            ' 判断是否为数据透视图（普通图表无PivotLayout属性）
            If Not chartObj.Chart.PivotLayout Is Nothing Then
                MsgBox "是"
                Exit Sub ' 找到后直接退出，无需继续遍历
            End If
        Next chartObj
    Next ws
    
    ' 遍历完所有图表未找到数据透视图
    MsgBox "否"
End Sub

逻辑说明 #

• 核心判断依据：数据透视图拥有专属的PivotLayout属性，普通图表没有这个属性，通过检查该属性是否存在即可快速判定
• 遍历顺序：先扫工作簿的每个工作表，再扫每个工作表里的所有嵌入图表，找到目标后立即终止流程，提升效率

内容的提问来源于stack exchange，提问作者Andy Millard