VBA宏报错‘Argument not optional’：查询刷新后延迟刷新数据透视表求助

问题根源分析 #

• "Argument not optional"错误原因：你定义的Macro1要求传入seconds参数，但调用Call Macro1时未提供该必填参数，触发了VBA的参数缺失报错。
• 核心同步问题：查询与透视表刷新不同步的根本原因，不是需要延迟，而是Excel查询默认采用异步刷新模式——调用Refresh后代码会立刻继续执行，此时查询数据尚未更新完成，导致透视表读取的仍是旧数据。

正确解决方案（无需延迟，优先推荐） #

直接将查询设置为同步刷新，确保数据完全更新后再执行透视表刷新，这是最稳定可靠的方式：

Private Sub CommandButton1_Click()
    Dim conn As WorkbookConnection
    Set conn = ActiveWorkbook.Connections("Query — Archive")
    
    ' 设置查询为同步刷新，等待刷新完成后再执行后续代码
    conn.OLEDBConnection.BackgroundQuery = False
    conn.Refresh
    
    ' 刷新所有数据透视缓存，关联的透视表会自动更新
    Dim pc As PivotCache
    For Each pc In ThisWorkbook.PivotCaches
        pc.Refresh
    Next pc
End Sub

若需独立延迟宏（解决参数报错） #

如果因特殊场景必须使用延迟，先修正延迟宏的定义与调用逻辑，同时改用VBA原生延迟方法（避免使用.NET的Thread.Sleep，防止Excel界面阻塞）：

独立延迟宏定义（放在标准模块中，方便复用） #

Sub Delay(ByVal seconds As Double)
    ' 使用VBA原生方法实现延迟，不会卡住Excel界面
    Application.Wait Now + TimeValue("00:00:" & seconds)
End Sub

按钮调用代码 #

Private Sub CommandButton1_Click()
    ActiveWorkbook.Connections("Query — Archive").Refresh
    
    ' 调用延迟宏，传入需要延迟的秒数（示例为2秒）
    Call Delay(2)
    
    Dim pc As PivotCache
    For Each pc In ThisWorkbook.PivotCaches
        pc.Refresh
    Next pc
End Sub

注意事项 #

• 延迟宏需放在标准模块（通过「插入→模块」创建）中，不要放在按钮所在的工作表模块内，才能实现跨代码复用。
• 优先选择同步刷新方案，延迟仅作为临时 workaround，同步刷新才是解决数据不同步问题的根本手段。

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