ࡱ> -"*   !#$%&'()+4,./01236F789:C<=>?@AB5DEGJHIRoot Entry FdW৸eO>Workbook _VBA_PROJECT_CUR"@Zl@4VBA@Zl  !"#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRTUVXYZ[\]^_`abcdefgijklmnopqrstuvwyz{|}~ '\p Vivian Fangammed Ba= ThisWorkbook=xxL;"<X@"1Arial1Arial1Arial1Arial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)                + ) , *  `Sheet1eSheet2ySheet38Drill Drill To PIA  cc '   dMbP?_*+%"??U  D>@7 Sheet1 '   dMbP?_*+%"??U>@7 Sheet2 ' 1  dMbP?_*+%"??U>@7 Sheet3 rU~| 0Module1 1__SRP_2' __SRP_3SThisWorkbook W%*8 $2(08 @ & H"P Xx$?"? 0px X Fp X5 T81 0P F  (h *A  (>P 8 TH `h  xT   + > :( :h (s(s >(T8  +` p x > <6  +   L <6p  +   @ & &0 :8P = 6  l h p " x 6 4  ]$ &nVisionDrillx]$D&rill-]$EDrillDown only works at the intersection of an amount row and column.p]$.No criteria; cannot drill down from this cell.]$DrillDown is not allowed for this file. It is generated with no DrillDown Option. To Enable the DrilDown, re-run the report with EnableDrillDownForFile = 1 in the Process Scheduler Configuration File.(Public ExMenuName As StringPublic MenuItem As String***************************** Drill TO PIA Addin Version 2.0- Create a Menu Drill To PIA in the Excel Menu= MenuItem Drilling will read the DefineName "Drill HyperLink"1 and add the Drill HyperLink with row , Col value*****************************x]BuildURL'"SThe code doesn't work in Office 2003 with IE environment. Change to use CommandBarscode as in the next section.5MenuBars(xlWorksheet).Menus.Add ExMenuName, Before:=8@Set NextItem = MenuBars(xlWorksheet).Menus(ExMenuName).MenuItems5NextItem.Add Caption:=MenuItem, OnAction:=ActionMacro &!(.$ 0l24 $!,%..*  *(6 :l< *!,%..8 8 96 "9>qoxOn Error Resume Next]@]X]p]]]]]]] V!X!Z'J selected row V!X!\'L active colQ define name needs to be read in Application.Names("sheetname!NvsDrillHyperLink")? format and there could be spaces or "," etc in the sheet name.R Find the define name NvsDrillHyperLink from the active work sheet - ICE 631927002 ^!`!b'T R T R ^%`!'D d!f!!NvsDrillHyperLink'F D F R ^%`!h'By k B A@jh[|k8the criteria's are stored in the first col and first row4read the criteria value in Cell(1,selectedCol) value4read the criteria value in Cell(selectedRow,1) value L d!f!$l%X!h'P J d!f!$l%X!h'N (,& p pxME<> LLLLL<p ʐHʐ@H &nVisionDrillD&rill%  `o$Macro recorded 4/2/2001 by Pat Smith 14`"x( @0`Bk[[+`Bxth E`Dte = `Fpedul`Hle.`Jpj ExM`L@h`Ndm `P``R^****`T\ TO ` ʐPHʐ`Hʐ(H(xx0uih&0:@t @p @$` @P EDrillDown only works at the intersection of an amount row and column..No criteria; cannot drill down from this cell.DrillDown is not allowed for this file. It is generated with no DrillDown Option. To Enable the DrilDown, re-run the report with EnableDrillDownForFile = 1 in the Process Scheduler Configuration File.`h0P@@ @0 @ @ @ @H @x @* @ @8 @`V^djl@X (  X x H @H @xD @4 @ . 8@,  @` @ @  @ @ 0 @ @0 @ npr~|@H @` @ @  @  @  @  @  @ p @` @8 \ @P X @h T @ P @ L @H `D`08 `B   xx0(( >tU@$*\Rffff*06437340c4*\R1*#229*\R1*#c4*\R3*#4d*\R3*#30*\R1*#175*\R1*#b3*\R1*#1d5*\R1*#1d64*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R1*#cd*\R0*#14*\R1*#b8*\R0*#9*\R0*#e R8: " " $    4X D 8  @ j@ $ "8@H P ( Z` " < F( <p 7if there is no criteria then it is not a drillable cell P$n N$n A@j|PkH8 if there is %A in the criteria means it is a label col P%,A p  N%,A p  A@j|kE if there is %C in the criteria that means it is a copy formula field P%,C p  N%,C p  A@j|k9definename = Application.Names("NvsDrillHyperLink").Value B B $r'B B B $'B B &DRILL_ROW= J&DRILL_COLUMN= L'B ^!tWindows Bxz dB@vd$tell application "Internet Explorer" ~activate ~openUrl "  B "  toWindow 0 ~end tellA@|kXoP00ExMenuName = Worksheets("Sheet1").Range("A1:A1").MenuBars(xlWorksheet).Menus(ExMenuName).DeleteoLast Modified 7/13/200492 created by RM 4/2/2001d Fix for ICE 733827008 - "Office 2003: nVision drill dropdown menu not present from Web/XLS report"L`s "*********Version 2.0 changes begin *********Version 2.0 changes endR` k? there is space in the define name so excel add "'" in the name!get the actualname without quotesX   D$' ] d!f!' D D! $'duc]  F de R ^%`!h'Bamyk] ' !NvsDrillHyperLink'' kAttribute VB_Name = "Module1" Public Const ExMenu&nVisionDrillC TPItemD&BlMsg! Down only works at the intersectj of an amount row d col0umn. `NoCritfNo c eria; cannot d = d=from9is cell 'No(Allowed\'a for%fil@e. It generated with no& )|Opp. To Enablee, r e-run repport!#ForF81Process PScherfxiguD ;'3zHy A ng, Fv I @*C; TO PIA AddDinAcreDby RM 4/2/2001ACBX a EoBiBExj &CHingHllNadBDefine" HyperLink@'B|ad C[,Ol valueLaifiu7/13A/4A#FVX2.0FixBICE 733827008 - "Office =3: Dropm@t prese@BWeb/XL>S@8A0`iSub Auto_Open() g.DeseRAtMacro cXord@4 6Py`uSm@Z  PData Invoke_Func \n14 On ErrfResuNext Dim AHR BuildhURL '!0 changes begaO 'T code esn>'j`!g2C?IE environ!@1t. CB t o use@BmmandBars H 'B asEpnu  d.Ua(xlWsheet).s.b(, Be`e:=8Set "d(x# A" dCa<:=A A, On-:=.G2 my@7Co.aved@anew .@ɐtrol(To :=msoPopupH, Tem@[ary:=TrueU .D? G onWButton,@ ID:=1 WB# @ ?A&&d  Rend End t tZt'cdnc!g'searQaPm ST|R2I^P`kpIqpyger: x_ @RowRefCol_ iYC}]-i ="BvLeC{As. :'@7lJp _c @)!aEve!/strSs9m Q bSpa] BooleaPn$= Falspca  needsDbeG VjmAppacbs("B!Nvsll0+'f.mXHor uldN s1 s U"," etcI2RI' Fi(  Ēe %1 - !n6319!n2 g] М _ = 1S8 b-_s( %).:BXbookLB8If InStr(1,!, " ") > 0 ALeft(K , 1)A"'" @g !D"'2u!so eщ! 'ga0ualkout quote_2A+= Mid 02, ( "!- 3)qRv1& "*y%V1]s OIfSMJ oaT[p-a^;:'V5Exit P/cQo  e%_ cD_ \   QnLG-0-0Box @n#o1@Q+@ ia'0Lstor\/fir\º]'“34a;se`h)o7fEd,//eCethatgcopy formula fieldlC,llNoCjkdefin enameApplication.Ns("Nvs|HyperLink").V@alue Right(,) - 2) Lef 1 )& "&DRILL_ROW=" & rownoCOLUMfN@no(c;O7>ngS ystemWindows"ȄWCActiveWorkbook.@FollowGlG Address:=), NeBw:=TrNEls@PBacS@pt ("t aa ""Innet Expl@orer""9v(bCr9a#ateopenUrl"@ &"to 0 e yA"`/z{} Auto_C lose('ExMenuAF4A#sheetGS1`FRange("A1:AOBars(xl$).s( ).`Delet`% iqIi9 9i ) Q q IAi   9 y Y1IY8KCx%pt$ dt (Qp`t8P %(0%c%`=  N5:P %C 2P%(0%=  N5q:P %lC lxFP%lC q4`x tp?X$ (XaHDDa4"pj)XD6H4?X$ (XaHDDa4"ph)XD6H4pB5DX$ X DaHv"p\)XD5H^k\c,Tk^D%DX$ X DHa4n`1t)XD6H41DX$ HX 8DWH`10)XD5HPl0tM@H  H: ]/4'6HAlt/iHtM@4 4`1D6H4 lD*1DpB>DX$ HX 8DWH:4`1p)XD6H4kB lDlp0Tk^D%DX$ X DHa4`1x)XD6H4 ltlp0 Tk^D%DX$ X DHa4`1x)XD6H4 ^d,lxJV+'''4:NHH 6H4s(%h@DX$ HX 8DWH%$  d4A`1`)XD6H4sj@( %DX$ HX 8DWH%$  d4A`1d)XD6H4T`M@H H4( ]/dM@ (]/6H+'''4:NHH 6H46l` ld &+'''4:NHH 6H46l`!ld!+'''4:"NHH 6H4&lxJxM@H # H`1x5H&lxJxM@H  H`1x5H8lx$*#kj#*#%*#kh#*1x2 = X$ X tl&R/X6'`%'p%'%'%c%' %lxX$ HX \Xl'(*#)*#(*#**#+*#lx*#\+*#X,*#T(*#P-*#L .1H2\XTPLH<D,p0`ldxtDd\XTPLHXDH40 0  arU $`!$`$`nG pp#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}H(%H0(8>tU@ xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 Sheet1 hSheet2 xSheet3Module2G pp#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}H(%H0(8>tU@ xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 G pp#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}H(%H0(8>tU@ xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 G pp#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}H(%H0(8>tU@ xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 $+ pNxMEx>tU@x"Attribute VB_Name = "Module2" ᲀ0* pHd DrillToP IA/tU@* %<st dole> stLo;e M\*\G{00020430v-C 0046}#2.0#0#C:\WINNT\System32\_VBA_PROJECT;dir__SRP_0  __SRP_1 l@$Microsoft Excel 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\StdOle2.Tlb#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}StdOle2.Tlb#OLE AutomatDDOfficDO>Ffs D2DF8D04C-5BFA-101B-BDER5DAAB42DProgram Files\Microsoft \MSO9 .DLL#  9.0 Object Library!BA p@Module1GF@iduBS1T 2 HB1l&,B,B p*!B+BmThisWorkbo okG@T"hOsW rkbo &2 $M$p"B#$SheeVtBS@#etvAG2B#Ii2GL2]22   3 3 3 3 b< 'K-KA/K-KN)K": pModule1K*mrU~~~~~~~~~~~~~U Yu(D?L"  a pi    )A  Module1 ThisWorkbookSheet1Sheet2Sheet3Module2 DrillToPIAF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA y  0F $c:\Apps\Office2000\Office\EXCEL9.OLBExcel q@0FC:\WINNT\System32\StdOle2.Tlbstdole aPL-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice a` Auto_OpenBuildURL Auto_Close  BuildURLFF!I FControlsType BeforeTemporaryAdd &nVisionDrillCaptionID D&rillOnAction!FFFF   'FName $!NvsDrillHyperLink$ DrillDown only works at the intersection of an amount row and column. %,A %,C \No criteria; cannot drill down from this cell.f DrillDown is not allowed for tham  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.3#0#c:\Apps\Office2000\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\StdOle2.Tlb#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library  ^Excell Addin for PS/ NVS DrillDown. Version 1.0>tU@ pModule106437340c4Module1 p&ThisWorkbook0F427b5c61ThisWorkbookpM Sheet10G427b5c61 Sheet1p0M Sheet20H427b5c61 Sheet2pHM Sheet30I427b5c61 Sheet3p`MModule20J427b5c61Module2Nxx`0Hk9Ey=9)N}D/C/H?&,[Htݝ\P7CAD/n*#.1LuD"h[c1 as b=DimHendif_IfreadThen Excel+ VBAWin16~Win32MacVBA6# DrillToPIAdstdole`Officeu Module1b _Evaluate (ExMenuNamez(MenuItemj(DrillMsg}W(DrillNoCritMsg(NoDrillAllowedMsgb (Auto_OpenV  ActionMacro߇ myMenuBar҇ CommandBars  ActiveMenuBarrnewMenugControlsKAddrmsoControlPopupl)Before TemporaryCaptionx newMenuItemmsoControlButtonnID]OnAction(BuildURLZ definenamej"definenameName|searcheddefnameSTR2G5rownocolno FRowRefzeColRefeXiDefineNameCountV iTempCount$ ActiveCellCellsRowColumni Application*NamesοCount0vActiveWorkbook ActiveSheet%NValueKMsgBoxR WorksheetsTrim@vbBinaryCompare̝Right OperatingSystem[FollowHyperlink-Address NewWindow MacScriptvbCr$ (Auto_Closew ThisWorkbook| Sheet1 Sheet2 Sheet3 Module2caX_B_var_myMenuBar_B_var_newMenuj_B_var_newMenuItemWorkbookkisspace%_B_var_isspace( _B_var_IfPisstring_B_var_isstring}hcZstrTempM strSheetname˜_Defaultj_B_var_strSheetname _B_var_LeftQ _B_var_Midp _B_var_TrimmT _B_var_Right9bSpaceDofbe\  is file. It is generated with no DrillDown Option. To Enable the DrilDown, re-run the report with EnableDrillDownForFile = 1 in the Process Scheduler Configuration File.F Cells Value &DRILL_ROW= &DRILL_COLUMN= Windows Htell application "Internet Explorer"   activate openUrl  "  toWindow 0 end tellVBE6.DLL Ii Ix IS  I Ik  Is 8 !RrU a  /Excell Addin for PS/ NVS DrillDown. Version 1.0 $Macro recorded 4/2/2001 by Pat Smith 14YModule1Module1ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3Module2Module2ID="{81B412A2-35BD-11D5-98E8-000039DB570C}" Module=Module1 Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=ModulePROJECTwmPROJECTSummaryInformation(DocumentSummaryInformation82 HelpFile="" Name="DrillToPIA" HelpContextID="0" Description="Excell Addin for PS/ NVS DrillDown. Version 1.0" VersionCompatible32="393222000" CMG="AAA803613765376537653765" DPB="DAD873B1A6B6A6B6D6552FCFA3" GC="0A08A381D282D282D2" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=22, 22, 525, 391, Z ThisWorkbook=44, 44, 533, 399, Sheet1=66, 66, 555, 421, Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C Module2=44, 44, 547, 413, Oh+'0HPdx  DrillToPIA Pat SmithRefeekh MohammedeMicrosoft Excel@@_՜.+,0 PXl t|  PeopleSoft3 Sheet1Sheet2Sheet3  Worksheets FMicrosoft Excel WorksheetBiff8Excel.Sheet.89qCompObjf