मैक्रो के साथ मेरी एक्सेल कार्यपुस्तिका में सभी पिवट टेबल कैसे रीफ्रेश कर सकता हूं?

Question

मेरे पास 20 अलग-अलग पिवट टेबल के साथ एक कार्यपुस्तिका है। क्या सभी पिवोट टेबल ढूंढने और उन्हें वीबीए में रीफ्रेश करने का कोई आसान तरीका है?

Answer 1

हां।

ThisWorkbook.RefreshAll 

या, अपने एक्सेल संस्करण काफी पुरानी है अगर,

Dim Sheet as WorkSheet, Pivot as PivotTable 
For Each Sheet in ThisWorkbook.WorkSheets 
    For Each Pivot in Sheet.PivotTables 
     Pivot.RefreshTable 
     Pivot.Update 
    Next 
Next 

Answer 2

आप एक वीबी वर्कशीट वस्तु पर एक PivotTables संग्रह है। तो, इस तरह एक त्वरित पाश काम करेगा:

Sub RefreshPivotTables() 
    Dim pivotTable As PivotTable 
    For Each pivotTable In ActiveSheet.PivotTables 
     pivotTable.RefreshTable 
    Next 
End Sub 

नोट्स खाइयों से:

1. PivotTable अद्यतन करने से पहले किसी भी संरक्षित शीट असुरक्षित करना न भूलें।
2. अक्सर सहेजें।
3. मैं और अधिक और कारण पाठ्यक्रम में अद्यतन के बारे में सोच कर देंगे ... :)

गुड लक!

Answer 3

यह वीबीए कोड कार्यपुस्तिका में सभी पिवट टेबल/चार्ट रीफ्रेश करेगा।

Sub RefreshAllPivotTables() 

Dim PT As PivotTable 
Dim WS As Worksheet 

    For Each WS In ThisWorkbook.Worksheets 

     For Each PT In WS.PivotTables 
      PT.RefreshTable 
     Next PT 

    Next WS 

End Sub 

एक और गैर programatic विकल्प है:

• सही
• चुनें तालिका विकल्प
• टिक प्रत्येक पाइवट टेबल पर क्लिक करें विकल्प 'खुला पर ताज़ा करें'। ठीक बटन पर
• क्लिक करें

यह पिवट तालिका हर बार कार्यपुस्तिका को खोलने पर ताज़ा होगी।

Answer 4

पिवोट टेबल टूल बार में सभी विकल्प रीफ्रेश करें। वह पर्याप्त है। कुछ और करने की ज़रूरत नहीं है।

Ctrl + Alt + F5

Answer 5

कुछ परिस्थितियों में आप किसी PivotTable और उसके PivotCache के बीच अंतर कर सकते हैं। कैश की अपनी ताज़ा विधि और इसके स्वयं के संग्रह हैं। तो हम पिवोटटेबल्स के बजाय सभी पिवोट कैश को रीफ्रेश कर सकते थे।

अंतर? जब आप एक नई पिवोट टेबल बनाते हैं तो आपसे पूछा जाता है कि क्या आप इसे पिछली तालिका के आधार पर चाहते हैं। यदि आप नहीं कहते हैं, तो पिवोट टेबल को अपना कैश मिलता है और स्रोत डेटा के आकार को दोगुना कर देता है। यदि आप हाँ कहते हैं, तो आप अपना वर्कबुक छोटा रखते हैं, लेकिन आप पिवोट टेबल्स के संग्रह में जोड़ते हैं जो एकल कैश साझा करते हैं। जब आप उस संग्रह में किसी एकल पिवट तालिका को रीफ्रेश करते हैं तो पूरा संग्रह ताज़ा हो जाता है। आप कल्पना कर सकते हैं कि वर्कबुक में प्रत्येक पिवोट टेबल को रीफ्रेश करने की तुलना में वर्कबुक में प्रत्येक कैश को रीफ्रेश करने के बीच क्या अंतर हो सकता है।

Answer 6

यदि आप एमएस एक्सेल 2003 का उपयोग कर रहे हैं तो देखने के लिए जाएं-> टूल बार-> पिवोट टेबल इस टूल बार से हम क्लिक करके रीफ्रेश कर सकते हैं!यह प्रतीक

Answer 7

मैंने हाल ही में नीचे सूचीबद्ध कमांड का उपयोग किया है और ऐसा लगता है कि यह ठीक काम करता है।

ActiveWorkbook.RefreshAll 

आशा है कि मदद करता है।

Answer 8

ActiveWorkbook.RefreshAll न केवल पिवट टेबल बल्कि ओडीबीसी प्रश्नों को भी ताज़ा करता है। मुझे लगता है कि डाटा कनेक्शन देखें और आदेश के रूप में इस विकल्प को दुर्घटनाओं का उपयोग कर विस्तार VBA

से आपूर्ति की मैं विकल्प की अनुशंसा करता है, तो आप केवल इन्हीं

Sub RefreshPivotTables()  
    Dim pivotTable As PivotTable  
    For Each pivotTable In ActiveSheet.PivotTables   
    pivotTable.RefreshTable  
    Next 
End Sub 

ताज़ा किया चाहते बिना डाटा कनेक्शन चलाता VBA प्रश्नों की एक जोड़ी है

Answer 9

कोड

Private Sub Worksheet_Activate() 
    Dim PvtTbl As PivotTable 
     Cells.EntireColumn.AutoFit 
     For Each PvtTbl In Worksheets("Sales Details").PivotTables 
     PvtTbl.RefreshTable 
     Next 
End Sub 

ठीक काम करता है।

कोड सक्रिय शीट मॉड्यूल में उपयोग किया जाता है, इस प्रकार शीट सक्रिय होने पर यह एक झिलमिलाहट/गड़बड़ी प्रदर्शित करता है।

Answer 10

यहां तक ​​कि हम विशेष कनेक्शन रीफ्रेश कर सकते हैं और बदले में यह उससे जुड़े सभी पिट्स रीफ्रेश कर देगा।

Sub UpdateConnection() 
     Dim ServerName As String 
     Dim ServerNameRaw As String 
     Dim CubeName As String 
     Dim CubeNameRaw As String 
     Dim ConnectionString As String 

     ServerNameRaw = ActiveWorkbook.SlicerCaches("Slicer_ServerName").VisibleSlicerItemsList(1) 
     ServerName = Replace(Split(ServerNameRaw, "[")(3), "]", "") 

     CubeNameRaw = ActiveWorkbook.SlicerCaches("Slicer_CubeName").VisibleSlicerItemsList(1) 
     CubeName = Replace(Split(CubeNameRaw, "[")(3), "]", "") 

     If CubeName = "All" Or ServerName = "All" Then 
      MsgBox "Please Select One Cube and Server Name", vbOKOnly, "Slicer Info" 
     Else 
      ConnectionString = GetConnectionString(ServerName, CubeName) 
      UpdateAllQueryTableConnections ConnectionString, CubeName 
     End If 
    End Sub 

    Function GetConnectionString(ServerName As String, CubeName As String) 
     Dim result As String 
     result = "OLEDB;Provider=MSOLAP.5;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=" & CubeName & ";Data Source=" & ServerName & ";MDX Compatibility=1;Safety Options=2;MDX Missing Member Mode=Error;Update Isolation Level=2" 
     '"OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=" & CubeName & ";Data Source=" & ServerName & ";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False" 
     GetConnectionString = result 
    End Function 

    Function GetConnectionString(ServerName As String, CubeName As String) 
    Dim result As String 
    result = "OLEDB;Provider=MSOLAP.5;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=" & CubeName & ";Data Source=" & ServerName & ";MDX Compatibility=1;Safety Options=2;MDX Missing Member Mode=Error;Update Isolation Level=2" 
    GetConnectionString = result 
End Function 

Sub UpdateAllQueryTableConnections(ConnectionString As String, CubeName As String) 
    Dim cn As WorkbookConnection 
    Dim oledbCn As OLEDBConnection 
    Dim Count As Integer, i As Integer 
    Dim DBName As String 
    DBName = "Initial Catalog=" + CubeName 

    Count = 0 
    For Each cn In ThisWorkbook.Connections 
     If cn.Name = "ThisWorkbookDataModel" Then 
      Exit For 
     End If 

     oTmp = Split(cn.OLEDBConnection.Connection, ";") 
     For i = 0 To UBound(oTmp) - 1 
      If InStr(1, oTmp(i), DBName, vbTextCompare) = 1 Then 
       Set oledbCn = cn.OLEDBConnection 
       oledbCn.SavePassword = True 
       oledbCn.Connection = ConnectionString 
       oledbCn.Refresh 
       Count = Count + 1 
      End If 
     Next 
    Next 

    If Count = 0 Then 
     MsgBox "Nothing to update", vbOKOnly, "Update Connection" 
    ElseIf Count > 0 Then 
     MsgBox "Update & Refresh Connection Successfully", vbOKOnly, "Update Connection" 
    End If 
End Sub