Excel宏循环切片器导出PDF显示#######，自定义延时函数失效求助

自定义WasteTime函数的核心问题 #

你使用的GetTickCount是32位API，返回值最大值为2^32毫秒（约49.7天）。如果你的Windows系统连续运行时长超过这个阈值，EndTick = GetTickCount + (Finish * 1000)会触发整数溢出，导致EndTick变成极小的负数，循环条件NowTick >= EndTick永远成立，函数陷入死循环，自然无法按时结束，单元格也就一直停留在#######状态。

更可靠的解决方案：等待透视表刷新完成 #

固定时长等待本身就不合理——OLAP透视表的刷新速度取决于数据量和服务器响应，没法用固定时间保证加载完成。正确的做法是等待透视表彻底刷新完毕，再执行PDF导出：

步骤1：修复时间等待函数（可选） #

如果仍想保留时间等待逻辑，替换成64位的GetTickCount64避免溢出问题：

#If VBA7 Then
    Private Declare PtrSafe Function GetTickCount64 Lib "kernel32" () As LongLong
#Else
    Private Declare Function GetTickCount64 Lib "kernel32" () As LongLong
#End If

Sub WasteTime(Finish As Long)
    Dim NowTick As LongLong
    Dim EndTick As LongLong

    EndTick = GetTickCount64 + (Finish * 1000)
     
    Do
        NowTick = GetTickCount64
        DoEvents
    Loop Until NowTick >= EndTick
End Sub

步骤2：优先监控透视表刷新状态 #

放弃固定等待，直接监控透视表的刷新状态，确保数据加载完成后再导出：

Sub ExportPDFAfterSlicerChange()
    Dim slc As Slicer
    Dim pvt As PivotTable
    Dim slicerItem As SlicerItem
    Dim otherItem As SlicerItem
    
    ' 替换为你的透视表对象
    Set pvt = ThisWorkbook.Worksheets("Sheet1").PivotTables("PivotTable1")
    ' 替换为你的切片器对象
    Set slc = ThisWorkbook.Slicers("Slicer1")
    
    ' 循环切换切片器项
    For Each slicerItem In slc.SlicerItems
        ' 切换当前切片器值
        slicerItem.Selected = True
        ' 取消其他项（按需调整逻辑）
        For Each otherItem In slc.SlicerItems
            If otherItem.Name <> slicerItem.Name Then otherItem.Selected = False
        Next otherItem
        
        ' 强制刷新透视表
        pvt.RefreshTable
        
        ' 等待透视表刷新完成
        Do While pvt.IsRefreshing
            DoEvents
        Loop
        
        ' 确保单元格数值更新完毕
        DoEvents
        
        ' 自动调整列宽（解决列宽不足导致的#######）
        pvt.TableRange1.EntireColumn.AutoFit
        
        ' 导出PDF
        ThisWorkbook.Worksheets("Sheet1").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:="C:\你的导出路径\" & slicerItem.Name & ".pdf"
    Next slicerItem
End Sub

额外注意事项 #

• 确认透视表的ManualUpdate属性为False，这样切片器切换后会自动触发刷新；若设为True，必须手动调用RefreshTable。
• 若仍有部分单元格显示#######，检查是否是单元格格式设置问题（比如日期格式超出范围），或手动调整列宽至合适尺寸。

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