VBA创建表格切片器时报「无效过程调用或参数」的解决方法

我有一段VBA代码，用于导出数据库下载的数据并按需格式化。现尝试添加自动为其中一个字段创建切片器的代码段，但出现错误且不知如何修复。

我的目标是：完成CSV文件的所有修改后，在数据上方插入14行，将数据转换为表格，然后在空白的14行区域为该表格添加切片器。

当前代码如下：

wsO.Rows("1:14").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
lRowSlicer = lRow + 14
wsO.ListObjects.Add(xlSrcRange, Range("$A$15:$AO$" & lRowSlicer), , xlYes).Name = "PO_Table"
wsO.ListObjects("PO_Table").TableStyle = ""
    
Set wb = ActiveWorkbook
wb.SlicerCaches.Add2(wsO.ListObjects("PO_Table"), "Supplier") _
    .Slicers.Add wsO, , "Supplier", "Supplier", 6, 6, 1049.76, 200
With wb.SlicerCaches("Slicer_Supplier").Slicers("Supplier")
    .NumberOfColumns = 4
    .RowHeight = 28.8
End With

当VBA执行至以下代码行时：

wb.SlicerCaches.Add2(wsO.ListObjects("PO_Table"), "Supplier") _
        .Slicers.Add wsO, , "Supplier", "Supplier", 6, 6, 1049.76, 200

出现「无效过程调用或参数」错误，请问如何解决？

1. 验证Supplier列是否存在 #

首先确认表格PO_Table中确实有名为Supplier的列，拼写、大小写、空格都要完全匹配。可以加入这段代码做前置检查：

On Error Resume Next
Dim supplierCol As ListColumn
Set supplierCol = wsO.ListObjects("PO_Table").ListColumns("Supplier")
On Error GoTo 0
If supplierCol Is Nothing Then
    MsgBox "表格中不存在Supplier列，请检查列名"
    Exit Sub
End If

2. 修正Slicers.Add的参数问题 #

Slicers.Add的参数顺序容易出错，且你设置的宽度1049.76可能超出工作表可用范围。建议明确指定参数名，同时调整为合理的尺寸：

wb.SlicerCaches.Add2(wsO.ListObjects("PO_Table"), "Supplier") _
    .Slicers.Add _
        Sheet:=wsO, _
        Name:="Supplier_Slicer", _
        Caption:="Supplier", _
        Top:=6, _
        Left:=6, _
        Width:=200, _
        Height:=300

3. 直接引用创建的缓存对象，避免名称冲突 #

不要依赖自动生成的Slicer_Supplier缓存名称（如果之前存在同名缓存会导致错误），直接用变量保存创建的缓存和切片器对象：

Dim slicerCache As SlicerCache
Set slicerCache = wb.SlicerCaches.Add2(wsO.ListObjects("PO_Table"), "Supplier")

Dim slicerObj As Slicer
Set slicerObj = slicerCache.Slicers.Add( _
    Sheet:=wsO, _
    Name:="Supplier_Slicer", _
    Caption:="Supplier", _
    Top:=6, _
    Left:=6, _
    Width:=200, _
    Height:=300)

With slicerObj
    .NumberOfColumns = 4
    .RowHeight = 28.8
End With

4. 确认基础变量有效性 #

• 检查wsO是否为有效工作表对象，未被设为Nothing；
• 验证lRow是否正确获取了原始数据的最后一行，确保Range("$A$15:$AO$" & lRowSlicer)是合法的数据区域。

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