Does Access support pivot tables now

BizBoy

Board Regular
Joined
Jul 26, 2012
Messages
118
Hi,
I am new to MS Access. I wanted to know, does Access support Pivot tables now.

I am required to edit couple of existing macro. These macro has pivot tables in this.
However, I guess, pivot tables are no longer available in Access.

Please correct me if am wrong. How do I proceed if pivot is not supported.
What are the alternatives. Has anyone here faced same situation.
How should I handle this. Can anyone please help me in this.
 
Last edited:

Excel Facts

Excel Can Read to You
Customize Quick Access Toolbar. From All Commands, add Speak Cells or Speak Cells on Enter to QAT. Select cells. Press Speak Cells.
Hi,

I have following code my Access macro. I tried it in Office 365. And it is running without any issue.
Though this code is written in Access macro, I believe this is related to Excel.

I guess, this code should not give any issue irrespective of MS Access version.
Can experts here confirm please. Please see below code for your reference.

VBA Code:
Option Compare Database
Sub Test()
    Dim MyExcelApp As Excel.Application
    Dim MyWorkBook As Excel.Workbook
    Dim MyPosition As Excel.Worksheet
    Dim TempLr As Long
    
    TempLr = 20
    MyPath = "Dummy_Path\Pivot_Codes.xlsb"
    Set MyExcelApp = CreateObject("Excel.Application")
    Set MyWorkBook = MyExcelApp.Workbooks.Open(MyPath)
    MyExcelApp.Visible = True
    Set MyPosition = MyWorkBook.Sheets("MyPosition")

    MyWorkBook.Sheets("MyPosition").Range("A1:Z" & TempLr).Select
    MyWorkBook.ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
    "MyPosition!A1:Z" & TempLr, TableDestination:="My_Allocation!R1C1", TableName:="My_Strat"
    MyWorkBook.Sheets("My_Allocation").PivotTables("My_Strat").AddFields RowFields:="Strat"
    
    With MyWorkBook.Sheets("My_Allocation").PivotTables("My_Strat").PivotFields("% Region")
        .Orientation = xlDataField
        .Name = "Sum of % Region"
        .Function = xlSum
    End With
    
    With MyWorkBook.Sheets("My_Allocation").PivotTables("My_Strat").PivotFields("Strat")
        .PivotItems("(blank)").Visible = False
    End With
    
    ActiveSheet.PivotTables("MyLiab").PivotCache.Refresh
    MyWorksheet.ActiveSheet.PivotTables("AbCdE").PivotCache.Refresh
    MyWorksheet.Sheets("Compound").Range("A28").Select
    MyWorksheet.ActiveSheet.PivotTables("AbCRegion").PivotCache.Refresh
End Sub
 
Upvote 0

Forum statistics

Threads
1,213,497
Messages
6,114,002
Members
448,543
Latest member
MartinLarkin

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top