Sub OpenPivot()
    Dim FileName As String
    FileName = "AllTransRep_" & CurrentDb.Containers("Databases")!Userdefined.Properties!Period1 _
    & "to" & CurrentDb.Containers("Databases")!Userdefined.Properties!Period2 & ".xls"
    strPath = CurrentDb.Containers("Databases")!Userdefined.Properties!Path
    Call dhParsePath(CurrentDb.Containers("Databases")!Userdefined.Properties!Path, strPath, FileName)
    Set appXls = New Excel.Application
    appXls.Workbooks.Open (strPath & "\" & FileName)

 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells( 3 ,  1 )
    ActiveSheet.Cells( 3 ,  1 ).Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.RefreshOnFileOpen = True
    ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array("MVMDOCNUM" _
        , "DELLOC", "REFLOC", "CHODAT", "RCVDAT", "ITM"), PageFields:=Array( _
        "CHOTIM", "RCVTIM", "STKSTA", "TRANUM")
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("UNI")
        .Orientation = xlDataField
        .Caption = "Sum of UNI"
        .Function = xlSum
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False