VBA将切片器添加到未指定的表

Sub AddSlicerToTable()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim slicerCache As SlicerCache
    Dim slicer As Slicer
    
    ' 获取活动工作簿和工作表
    Set wb = ActiveWorkbook
    Set ws = wb.ActiveSheet
    
    ' 获取表格对象
    Set tbl = ws.ListObjects("Table1") ' 替换为实际的表格名称
    
    ' 创建切片器缓存
    Set slicerCache = wb.SlicerCaches.Add(tbl, "字段名称") ' 替换为实际的字段名称
    
    ' 创建切片器
    Set slicer = slicerCache.Slicers.Add(ws, Left:=100, Top:=100, Width:=200, Height:=100) ' 设置切片器的位置和大小
    
    ' 设置切片器的属性
    slicer.Name = "切片器名称" ' 替换为实际的切片器名称
    slicer.Caption = "切片器标题" ' 替换为实际的切片器标题
    
    ' 可以继续设置其他切片器的属性
    
End Sub