ต้องการสร้างปุ่ม refresh pivottable ใน sheet Analytic ครับ

[Xcelvba]

Code: Select all

Sub RefreshAllPivottable()
    Dim ws As Worksheet
    Dim pt As PivotTable
    
    With Worksheets("Analytic")
    
    For Each pt In ws.PivotTables
        pt.RefreshTable
        Next pt
        
        
    End With
    
End Sub

Run-time error '91':
Objective variable or With block variable not set

For Each pt In ws.PivotTables
error ตรงนี้ครับ

[snasui]

เมื่อเขียน Worksheets("Analytic") ครอบเอาไว้แล้วเมื่อจะอ้างถึงชีต Analytic ให้ใช้เครื่องหมาย . แทนครับ

จาก Statement For Each pt In ws.PivotTables ปรับเป็น For Each pt In .PivotTables ครับ

[Xcelvba]

เมื่อเขียน Worksheets("Analytic") ครอบเอาไว้แล้วเมื่อจะอ้างถึงชีต Analytic ให้ใช้เครื่องหมาย . แทนครับ

จาก Statement For Each pt In ws.PivotTables ปรับเป็น For Each pt In .PivotTables ครับ

ขอบคุณครับ