ࡱ>    1 . !"#$&'()*+,-/03>56789:;<=2?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry FC~h;Workbook _VBA_PROJECT_CUR"p<Ì=VBApF<r=  !"#$%&'()*,-./01235689:;<=>?@ABCDEFHIJKLMNOPQRSTUVXYZ[\]^_`abcdefhijklmnopqrstuvwxz{|}~ (ɀ\pMaxim Samsonov Ba=-B0=830=iL;1<X@"1" Arial Cyr1" Arial Cyr1" Arial Cyr1" Arial Cyr/#,##0"@.";\-#,##0"@."9#,##0"@.";[Red]\-#,##0"@.";#,##0.00"@.";\-#,##0.00"@."E #,##0.00"@.";[Red]\-#,##0.00"@."k*3_-* #,##0"@."_-;\-* #,##0"@."_-;_-* "-""@."_-;_-@_-k)3_-* #,##0_@_._-;\-* #,##0_@_._-;_-* "-"_@_._-;_-@_-{,;_-* #,##0.00"@."_-;\-* #,##0.00"@."_-;_-* "-"??"@."_-;_-@_-{+;_-* #,##0.00_@_._-;\-* #,##0.00_@_._-;_-* "-"??_@_._-;_-@_-                , *  + ) `I8AB1a8AB2y 8AB3T (ɀ   dMbP?_*+%"??U>@7 8AB1 (ɀ   dMbP?_*+%"??U>@7 8AB2 (ɀ 1  dMbP?_*+%"??U>@7 8AB3 rU 0 1Y4``` I-B0=830 X__SRP_2+,__SRP_348AB1 7  ( G%@ inIn`stallI+U$niC).A @ @"  A C@ ,  @ In ,A7lNAFL@\@ "Ca`ncel"@ Q (?A^J PaSubR(( As Boolean)"CAhKraMod ule.U@mit ializ@' MsgBox("P,", vbOKOnly + @Exomatio End !;Y( In** `P . el - .s@ aL;A$%'?)AqtCkU_}V}?(vQ!R4RRsRiSG?&)) 0 V8  V N :@ 6  V "   V0  F  V 8 " @ H VX  H  V ` pP *******************************************************************************< Workbook_Open / Workbook_BeforeClose G / .xla , /W AddIn' ( Workbook_AddinInstall / Workbook_AddinUninstall).0 [ Workbook_BeforeClose , AddIn ,Y , "Cancel" P *******************************************************************************3Private Sub Workbook_BeforeClose(Cancel As Boolean) Call KraModule.UnInitialize> Call MsgBox("Workbook_BeforeClose", vbOKOnly + vbExclamation)End Sub BP *************** . Excel - . *****************7 Call MsgBox("Workbook_Open", vbOKOnly + vbExclamation)P *******************************************************************************ohP *******************************************************************************G Workbook_AddinInstall / Workbook_AddinUninstall 3 / AddIn' .0 P *******************************************************************************@ BP *************** . Excel - . *****************? Call MsgBox("Workbook_AddinInstall", vbOKOnly + vbExclamation)P *******************************************************************************o B"P *************** . Excel - . *****************A Call MsgBox("Workbook_AddinUninstall", vbOKOnly + vbExclamation)P *******************************************************************************oAttribute VB_Name = ""  Bas|0{00020819-u 0C$0046} |GlobalSpacAFalse dCreatablPredeclaIdTru B@ExposeTemplateD0eriv$Bus`tomizD2 0 ' *K) Workbook_O pen /Be@foreClj @ / .xla ,  AAddIn' xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0{GxAttribute VB_Name = " 2" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2'#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0{GxAttribute VB_Name = " 3" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2rU   H..o8 *******************************************************+ D ( , -, , , )L ""   ']]( !T R5V R7X.P L P RC@Zyk wrkbkWb Is wrkbkTmp R( - ...5V B\k .Count = 0q KraModule.wrkbksPCL L !^ /^k  wrkbkWb Is wrkbkResults L 2 B`k  wrkbkWb Is wrkbkActive'No8 *******************************************************% Helper appApp_WorkbookDeactivateH ( , 0 Active Workbook, "")@ d',o8 *******************************************************+ + ( ) , L 2 B`k  wrkbkWb Is wrkbkActiveoxpyAttribute VB_Name = "KraModuleEvents" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacI False dCr@eatablPredecla IdCExpoDseTru `TemplateD0erivCustomizD'> ' Copywri(C) MSS 2006-7 !'$ - . (1) ! 2 P /) ?g P@@ bIgnoreWorkbookDeactivAAs Boo lean ' (shtA e) b@boAc^ ublic WithC  @$she,etF.VarHelpIDt-1)Ax':w@$kA&HappApp)'aX gE! )atio@6wG*1A >>@ [aF ("v y s)#:USubGD_SeleOonChange(ByVal Target!Excel.&Ra AmCall .DoS@earch(:Cell.ue End cK_%2a%?% )%$HQ_ShBLat$iSh$Obj(S@'Flj?  jF 𠷇B , 傯 N B@f-A,a J!`K,lYp('PPN "M" ,@!0GWq,S9"_WBef`XClg},Wb!E,< _c,)?Can/T\Dim TmpIaIntege>rSSqZ3BsP CLFor IP#1 To .Coun[Y %= .Item(fI If Is The`M.Remove ^Exit @ / R =0'_mpNext IA&p%n*P%' ...1p0 O ,IOnDropx 2 2 ( "  0 8  P  `  ̚XquIF/*=h8+3q}$&5pkHd!w Nx}$&5pkHd!w NquIF/ME,SS S`0` 4`816"PPP<0<4<8<<<>N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}%%% %*/pL4@b,4 @*3<@*7D(@ : ` D )< F` `H (iH J@` L&&5)M''''%iN  P %`R b` @ [id  f` Pe)M%0%@ pH%XH Hp\T 8{G*\R1*#284*\R1*#286*\R1*#282*\R1*#1b0$*\Rffff*0;4802a158*\R1*#ce*\R1*#db*\R1*#e88p@H Pk H LH H H H( Hp H  > H h p 4    4 ( @ H >X < 2  "     8 >@ : 2 "    >  2` J $  R p "        0  .@ p x         0 PX >` , N 6 X "  ` h p >x 2 2 ( "  0 8  P  `   A'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''F Copywrite (C) MSS 2006-2007 'A KraModuleEvents - 'A (1) 'A (2) 'A (2) 'A''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''']@H7 (shtActive)  ] . A (shtActive)  ] p- (appApp) ] Ę8 *******************************************************5 + ( )x B!D B@o8 *******************************************************3 + ( )  @8)Q@ `qH)Q"`!`QPi`1 1Ey?_0   0   0   0 @  0   L < D P@HHorU \,)`Dy(i`H4`L!#( `A#,I`P ! @4L @!< A@(YDn__SRP_7yKraModule4__SRP_4 __SRP_5s*\Rffff*0:4802a158*\R3*#4e*\R1*#285*\R1*#df*\R1*#282*\R3*#2d*\R3*#4d*\R3*#30*\R3*#4f*\R3*#34: H HH H H H  h p  . "(0 X p$x$$.@ X x2 ,( 0 PX2x $     (0 >8 6x "  (gp O^pxME "*004(L00<<>> L*LL l@ H€pP @€rh  @€v 8 @€zX @| h @˜ B ˜@B˜ BU0 @1.001%KRa Excel Add-In%Price-list item search% @` k__: x8 % "`8dk p % `  `EE` P% Pp% %`R \(`  P%`R h`  `` . ` <` @x` @Qi Px% % %` ``  %`R X%`+ `  QQ)#%i) (%i$ (`%`* 0%@R `6 0 `Xk ##gi< + ` p i@ `@@R `Bh HjHn( H€tx( @€xH @˜~B ˜B hl@_ @0 x(@ (x  0P  hh @ h@@ %|"8ln@x t @p l `(% - `   x 0 @ \ @ L @ < @ , H ptxvrz@ @@ `X  &@h ` @ .@ ` h 6@ ` >@ ` F@` N ~@ (8ln|@x 8t `(%P @`l x8 @hO ` @d `Ph@z P~ptxvr@h @X xz  00  t/X {G$*\Rffff*0;4802a158*\R0*#1c*\R1*#286*\R1*#284$   V 8 8@ x : @    8 P VX V   V 0 &8 H 2P   ;   =         (8  ` =x         8   =0  P  X  `    (  =         "8  ` =x         (   =(  H  P  X  h        > 28 p"x  L       !( 8 H X ` p        > .  P" X ` > 0@ p" x    >  " ^ x    8P p         @ 8 X h   Nx R (  LH    $     \ x  B  > 0( X" `  h 2x   H 88 p "x    > & (" 0  8  .H x  X  ( @ >H 0 "   R   ( 8  H X >` ( "     D 8 HX  h x > 2   "   (08@HPX`  h  "x     0     @  ` h p          2  ( 0P2h   2   2 P  X ` h p  x  D     !!! 0!@! X!  >`!  !   ^! T " $x" F" " # (# H# .X# # L# #    2#  $($ >8$ x$$$ $ $$$ $($  F% X% `%  p%V%% % &&&" & (H&  p&&&  & &  <& ' '  B ' \h' 4' ( ( (((@( P( p(  ( R( ( ) ) V) @h) ) ))))$* $@*  :h* * ^* *+ @+ H+ X+ h+   >x+ ++p+H,`,  x, , >, ", , - ,8- @h- B- - ,- B (. ' V8. .. X/ V`/  / / /  </ 0080@0H0  0X0 0 0  V0 0 1 F1 X1 `1 Vh1 1 ^1 (2 V02 b2 223  R3 p3 Vx3 3 B3 : 4 8`4 4 V44 5(5*H5 x5 5  X5 55 \6 Pp6 66 666  7" 7H7 `7 h7 >p7 N7 8" 8 8( 8 @8 P8 `8 p8 8 $8 8 8 8 8 8 9 (9 89 H9 X9 h9 x9  9 9 >9 ,9 : ,8: h:B  p: x:: 6: ::: r;:;;; ;; <A'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''A Copywrite (C) MSS 2006-2007 'A KraModule - , 'A ? 'A''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ]DKRa Excel Add-In]D1.001 ( -']DPrice-list item search]D -@  ]( -]P -]h  ]x ]  ]  Add-In'](# True - ]D ( - ]D( - ]D (  ]D( MAX_INT]D @(  ] -] h ] 0 8 *******************************************************0 Add-in']  ||(k P *************** . Excel - . *****************2 4 For Each ctl In CommandBars("Standard").Controls9 If ctl.TooltipText = "The AddIn's menu item" Then ctl.Delete End If Next ctlP *******************************************************************************P *************** . Excel - . ***************** MsgBox "Welcome to " & cAppName & " version " & cAppVersion & " running on Microsoft Excel version " &' Application.Version & " (Build " & Application.Build & ")."P *******************************************************************************kA" 8 /6e 8+ - rog l  %. (al n (WP l !%.pm  p 9& -9wOnLoadPriceLists9 - 9q btnLoadPriceC: l !%.tMS t 9& 9\OnRunAutoQuery9X/ 9q btnAutoQuery\M l !%.x~1 x 9& 9USEOnStopAutoQuery9 9qbtnStopAutoQuery l !%.von v 9 & 9OnRunManualQuery9 9qbtnManualQuery l !%.r r 9& -9OnDropPriceLists9 - 9qbtnDropPriceLists l !%.z z 9&9 OnVersion9 9qbtnDropPriceListsq Application ~A@'|o8 *******************************************************+ Add-in'@E , /. /2  8]   ! l B@k ! n B@kx For Each cmdBarq Application /6'|o 8 *******************************************************( " "  h version  j$ running on Microsoft Excel version  8! (Build  8!).   hAo8 ******************************************************** " -"A\] 8 ******************************************************* Excel XP -- "10.0" Excel 2000 -- "9.0"W , shell 8!$1 %'d Application.Version %'k Application.Version ]8 8!$1  %.d Application.Version  %.k Application.Version !V ]X]x] 8!. R !V --- R$ %.P PX R$ TB  ( RH -L ActiveSheet - . , - , " , F If Not wrkshtTmp Is Nothing Then -- , - P B@8  - A@d . Execute 8 -. .   hAk . Execute.k 9 Not vrtSelectedFolder = "" aka ()o 8 ******************************************************** " -" ~A@, -]] R T!V T%XB@BB , 1 app_WorkBookBeforeCLose KraModuleEvents wrkbksPCL.Remove (1) Ro@8 ******************************************************* " "( A@( B!DA@R  8! /. 8! /2o8 ******************************************************** " "hL , /. /2 A@o8 *******************************************************! " "] A@C : B!D h$'  A@k varKey A@o8 *******************************************************+  strKey - ]`]]]]]]]( Bb . $'* (1) Sheet - 8!.: (2) , ^]@ 85. (2.1) 5B@5.^, (2.2) 9 R ^!!V  ^!%XB@ R! To wrkbkResults.Sheets.Count - 19q Application, (2.3)  ^!%X.+ (2.4) ,   999 8! 9  8!9= ===> .Activate ' Microsoft Excelq ^% 99 8!9 8! 9  8!9q B@"- Microsoft Excel (. ===>)k wrkbResults Is NothingW (3) - , , M , ,  @ , " ", :  (1) (2) ...( (cMaxInt = 32767)F , - + (3.1) : $'8 (3.2) strKey (strNameBase !) " "' '  ^! ! 'y8k wrkshtRes.Name = strKey  In wrkbkResults.Sheets@ (3.3) strKey ,  R  ( R$$ ) 'B% Trim = '  ^! ! 'yk wrkshtRes.Name = strName  In wrkbkResults.Sheets yxkp R To cMaxIntk bNameOK <> True5 (4A) ; (4A.1) ( ),U - , - (. 1.3)  ^!5V7XC@5V7X.q wrkbkResults.Worksheetsk wrkshtRes Is Nothing  (K (4A.2) ]`'O (4A.3) -, 9 ! - R T!V R T%X.P  P!    $'  In wrkbkTmp.Sheets R To wrkbksPCL.Count4 (4A.4) W AutoFit Activate, " " -$ "" selection B@ !B@  B@8 (4B) d bNameOK = True  - '  '. .   hAk bNameOK = Truek strKey <> "" Bbop8 *******************************************************  wrkshtSrc -  strKey - % wrkshtRes - : iFrstRow - ; (.. 0- " ")& Returns - iFrstRow#xP *************** . Excel - . ***************** m = MsgBox(", : '" + strKey + "' '" +' wrkshtSrc.Name + "' '" +' wrkshtSrc.Parent.Name + "'", vbOKOnly)P *******************************************************************************  "!&5 (1) , Range]H]h 7,.() (2) , Nothing (P (4) , FindNext (!.'*? (5) FindNext , .. , Find_P *************** . Excel - . *****************W m = MsgBox(" '" + cellFound + "' " + Str(cellsToCopy.Row))P *******************************************************************************\ (5.1) Range() (! - MergeArea) , ] (!2!4.0L (5.2) Range, , P *************** . Excel - . *****************< cellsToCopy.Borders.LineStyle = xlContinuous4 cellsToCopy.Borders.Weight = xlThick2 cellsToCopy.Borders.ColorIndex = 7P *******************************************************************************] R 0!8!V 6 0!!V R 6 0%& $ R 6 ,& 6 RQ (5.4) Range' $ 0!8!V '$V (5.5) FindNext, , (!)J ( Find), Nothing (7:.( (x k cellFound Is Nothing (!. *k Not cellFound Is Nothingq wrkshtSrc.Cells $'i8 *******************************************************H Add-In' < ~KT$ -  p(> t(> x(> v(> r(> KT$ -  p(> t(> x(> v(> r(> KT$ p(> t(> x(> v(> r(>n Case kraState z(>oX8 *******************************************************% : - 32 & - : \ / ? * [ ]0]]   $'9 'B R B  R$'@   @: @\ @/ @? @* @[ @]  R $ $D  B R $F 'k0 R To L 'igAttribute VB_Name = "KraModule" '> Copywri(C) MSS 2006-7  'C - ,  C  x ?@! Option Explicit pd PrivaConst cAppRa!cel A`dd-InVers61.0 016 P B -1Q BarE ce-li&@wm s`earch! L ;-& ADim btnPLoadL@sf'sG@y@   DHrop  AutoQueryC} ' -0Man(ualH 'T9: Stop'>?.qE$$l'Cn@Initialized As Bo`olean' True k 33fl@k mQkrPCLNota2 = 0 ' : C4`Zvs1k@6SNRunPning@L2'` 0^ m'zCIlMaxInt `32767 ' MAX_INTc@SheetcLengthaG @ l a^*' @ L%@!9eventsCc!9New ƢEOA/xub wrkbks@6Colleca ࠫResultsWo ookAc' *1 F DjQ)[in[PSub \()5a&cmdComman If b dThen#aExit  #End IfcAL  .- .o%#@ S @ ` ゐFor Each ctl "E s("Stard").@tro|ls a0p@.TAtipTex /"In's@ menu Q^": C'bDepleteHN1`! (???4` MsgBox "Welcoto " & xz&vve[rIpMicrosoft!i_WC~;a1:.(Build")S).tpC?9P /5Call8 Un3u1q Set J.app` g0Q WiRZ' peQ @d B Q>=/."(Y:=c, Pos`qon:=msoPTopCc.Visib~lQq !^ocal Lqs ?= u8 TypeTButton8 G p.Sty A Ca¦lTp "&u#5.OnAbOLLD r!BR'i  Dh'ap.P|r 1Pe ?z~kol*Q=@*l2I # *) ??? *S " .OnAction = "OnRunManua@lQuery TooltipTe4xt\ nEnd Withp 'bt ZSet !DropPriceListsdcmdBar.Controls.Add(Type:=msoButton)LpM.St8yle0# Cap  "& - h // 4 5 2`cVer>syT6S8[OM H dJ 'ApplicaCC:QCÊsState (krPCLNotLoadedĠbInitia lizedTr@ue SDub' *3 ' F @-in'@ Pub  Un '(! Y, @ ! @ ` ~ pb AMeventsModule.shtavm@%hing* *wrkbksE`  b} 6aaDim C] As Copmmanc!For Each4InsaIf.Nam!cBThenklDelet?Ae)@If r L N'A"(^ 4app`-`Z8c ^FalsS__a**!@AR@Q "D~ W@Q'^rivat_ OnD^Call MsgBox(c@"9& " vĤ" & @" runnW Microsoft Excel_!I> %.) @(Build& I).", vbOKOn@ly + v.forma?/HqW"GkO>nR7~"Onl =vrtS 5ctedFolder=Str6E &X0P --s%&10 .0 20009p @0ZjA*S[@, Xlshell S`HLeft(%n, 1) <> "1"| 0d% qr{T$mpWo@|oo>k_Ph.etIaInteg|erJq1w=c SheMoI@k1 To  {bk = u s.Open(n:=fs(I)V ?UpdhLinks:=q?Reada_:=1pToMru!ucBXbksI`tem:=2, keyD 3Window.c= xlMinimAId_) ]  WH uAizա# - . , Ű`-] , 0  , >A8qL0Isn Q5 e p a-On Err`Resu` c wrkshtTmp.Acti@vate On Error GoTo 0 D d ' - @SetCmdBarButtonsSt (krPCLLoaded)5! Elsex'.@ ExecuCall MsgBox(" N - . ЄY .", _F=vbOKOnly + vbExclamationcAppName vEnd If mD fs = No`thingԅ ' vrtSelectedFolder@ "" aka D ($# SubbA' *3ႂ "0@G_"BPublic  OnDropPriceLists(%\@CF  z :ADEPDim bk@ As Workbook^AIIntegerCCFͲIX1 ΂s@.CountC/Item(1).Clo@(Fa9' @, O끨 CYY?Papp_BBeforeCL! t KraModuleEvents``Remove @"Next IA&?EG0E`t CrCRunAutoQueryC,7DSeartch n@f@-c' ` `a 0BDo (©eCell`.Valuz` B4X⠢fa n r I$ A o$Af e9c;.#@S@ laᓣeSheeS.B@xGc?@ **!&@huMB)StopPB' b%,!,g}"3d3hs3,e,L*fW.??RZ)7Y04Manual7 1RstrKeyRStri690D= Inputq}Prompt:@="C@Q<C:{`Defaulp-;O{FTitl8e:=\{zT <> uThen {BdGqS'va' @#?N* 78qHPs 6PF DA- pZ1 |VRByRefupus!A#Fow@7Q%GsKRe&s")bNOKqlea Bax ,WDR !ZPIgnzQADea(Tre @"' ` /PAl #))@1<= Tri.`Activb ' Mi crosoSExce oEnd Frkbk`Resulsҁ9ȤZ>7G.X?eXIHDJwrksht`eba (. x rνIPf ' bDb Is Nothi (3.1) %$ B BA#d`strNa meBasDefineSg(8Key`B 2) AC AF !) "-""@baOKTrue 'For E acbpTmp InbeƖSGa$7 jv. + T8hen+FalsaExit @KIxxH)Nextm!'zb0 0|@|aH=d0H3Fp kj1`"x<> 1 !/I&1 To \+!"7++ "("D + im(L(I))")" ANDHTrim`>0@$Q #1V#8%= $ _%y %_&-{ _ '4oJ h$=_$  [ I"'g4-3(4A) T jbhs3RK2QXqpRWx( v),n>av}d "y,x c;`}遢1.3jqV.@LXB/WoaZq.Add Af ter:=.CpountiSeR= /Z1!2 Ӕ>_ c6$b; /8 5"@t0`)! 3")$KDpSiRowPosi Asd`tegerJ=d 0' 1 "a @-R1 ! "'@*B/ gbksPColumnNutoFit;&BeI,(4B)  :GElsec' bNameOK = Tru ^sCall MsgBox(" 0 1< '" + strKey"'.  .", _G5vbOKOnlvbExc0lamacAppk)wnd hIf wE+

""CAeventsModule.SetIgnoreWorkbookDea1(FaW ASub _ *3CO `w  áSrcA `5AW- FA qiFrstRow- @P@|B̜(.. 0-"HF"P'AReturns - B&WPriA FunbDoSearchSingljsheet(ByRefh&As s8, &@S|trNi am Val )Integer)?dN&.#,J $m. hel( `x 0Q@ @ m`H` NB,H:| S#S|&U.AtBX [Parp'E.9#c1A"U !lCWithGJ.Cells (1) @&  $e, @&m R8ang_'Dim c` Fou'FDfitAddressIWh= .Fixnd(]'E (2) ;,a Noth?b` H Is Then'B 4) A M@ !'aNex%A!=. 5)@jL5 , BK T0+DoA%9~99VRM5:`7"+ "f'Z y!(sToCopy.])/4 o(5.00 .%(.()  (!JMergeArea) ,@  F2A930?,3e1".Entire`KA  3<, + /E2 1##]GrXI Borders.LineStyle! `xlConu|ouLqN4$W eightThxick t_s.orIndex7 <q"I, J"w oFor Ip 1 ToE#4Y un, JyC^$f"f(+ a )CO AS JrI.[0< `- P=m'p2S? =+d \ Ee\,Ef$ Dp^r(!1Q p`L Ikp (` )r Ljoy`yZPDfvqvExit D@i ng/ Loopp WhiB5v yx4'B a B-S?0U$AhFkunction ' *3t . J Add-In'J Private Sub SetCmdBarButt onsSt(kra As Integer) Select@ Case '  PCLNotLoaded ' - 0btnUceLists.Enabl&= TrueAutoQuerByFalsStopManual0DropR0%2NMDNMY@ZQAYM\qVM$NSearchR@unningD8' G  Y+%,L L@ EndBy'$Oc~ Verso ubߛ8@ 5@  : - 32 h@ : \ / ? * [ ] F DefineStrNameB (ByRef s#J)G$Dime,CurrI, L A = Left(D, cMax SheetALength`!7) '  L nA B For I1 To L B = Mid, m@1!I$" :" Or= t"\_' ` "/?*[]" The Ai`<#,#*1) + Chr(32!Righkf1LI!!aIBfNext`+'+sn&4E)15rU~|  &  9aq Ai 9Y aI9i h( h &t$ Qt[pl$ 0pt$ Qtl;p',%'<%L%:\%t$ dt ,Qpxt x   x =p'%',%'<%'L%\%tx t $ Qpt q\%lC :\ %lC :\%lC:\%lC q=p'%',%'<%'L%\%tx t $ Qp(t (q\%lC :\%lC :\%lC:\%lC q=p'%',%'<%'L%\%tx t $ QpHt Hq\%lC :\%lC :\%lC:\%lC q=p'%',%'<%'L%\%tx t $ Qp8t 8q \%l C :\%l C :\%l C:\%l C q =p'%',%'<%'L%\%tx t $ Qpt q\%lC :\%lC :\%lC:\%lC q=p'%',%'<%'L%\%tx t $ QpXt Xq\%lC :\%lC :\%lC:\ %lC qcl + ! h|(,lxtp@c="[xl$ <xc=#[xl$ $xx$ Qxt!x$ dQx[lphdp ld0/d p dp ld 0/d p  phmctc=$[xl$ 0x h4tlhpdx0   0   0   0 (  0 h  0   0   0 x  d0 pz kzgch%C%fh%(C%fh%HC%fh%8C%fh%C% kzch%C%ch%(C%fh%HC%ch%8C%ch%C% kzfh%C%fh%(C%ch%HC%fh%8C%fh%C%ch%XC%$0$0 0 0     4rU t$`$`$`$`$!`$I`$q`$`(`0D ` )=0=( `I&(9 `i0n0* pHd KRaProje ct< Excel Add@-In@ *RaEx celAd-InF=    {KraModuleExt9 OKraModuleExt10_VBA_PROJECT` dir > ( $0 X >` D2b  Z Z H h0x6 H B( p RnnP4 *((*PV >  "  H >P 62x 6x J 6 F8 @ . < 80 >h    >  $ H >P            > X `  >   jN*o#=MHSHBrowseForFolder<SHGetPathFromIDListd(lstrcatA,PFindFirstFileApFindNextFileAXFindCloseGetLastErrorxRRRRRRME (@@@<0 Lh CPPCR CV CZC\ C` Cd@Cf0 CjX CnCp Ct Cx0Cz C~ CLʐLLhh0hHh`hxhhhhh h8(XP%(xp%(%hhhh( (0 +x )%+ ( ii+`P ii+(p i) %+h i)%+ i+P +##``` %+8 X ((i % x  %@ @ `  %``H@ CJCN(CTxCXC^CbChhClCrCvC|XC␀C h @P0  X X0 ( h  P ( @ x8 8 A {G(*\Rffff*074802a158\0(*\Rffff*074802a158\1(*\Rffff*074802a158\2z L LP L L L@ L   > 8 "@ h >p         ( 8 HX >`  $ N   >( H h >p  & @   >( Hh >   < ( >0 Hp >   T H >P H >   T h >p H >   ,0 ` >h H >   >  ` >h H ) > , 6  X p Bx  ( (  8 HP`p  > N 8h 6  B     V8 0 <  V `x  < V 0@ hp  V 8 P` Vp 0  & \0  V(  ( 8F'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''';7F Copywrite (C) MSS 2006-2007 ' F KraModuleExt9 - 'F OS ( l 2000) 'F ? 'F''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%8 ******************************************************* SHBrowseForFolder Constants8 *******************************************************]D 21 For finding a folder to start document searching]D@ 2 For starting the Find Computer'''''']D2O Top of the dialog has 2 lines of text for BROWSEINFO.lpszTitle and one line if 2S this flag is set. Passing the message BFFM_SETSTATUSTEXTA to the hwnd can set theA 2T rest of the text. This is not used with BIF_USENEWUI and BROWSEINFO.lpszTitle gets''''''2 all three lines of text.]Dh ]D(2 Add an editbox to the dialog]D P2# insist on valid result (or CANCEL) ]D@ 25 Use the new dialog layout with the ability to resize2; Caller needs to call OleInitialize() before using this API ]D T P x`]D 6? Allow URLs to be displayed or entered. (Requires BIF_USENEWUI) ]D6\ Add a UA hint to the dialog, in place of the edit box. May not be combined with BIF_EDITBOX]D6\ Do not add the "New Folder" button to the dialog. Only applicable with BIF_NEWDIALOGSTYLE.]D 6" don't traverse target as shortcut]D6 Browsing for Computers.(]D  6 Browsing for Printers]D@6 Browsing for Everything]D@6D sharable resources displayed (remote shares, requires BIF_USENEWUI)8 ******************************************************* FILE_ATTRIBUTE Constants8 *8 *******************************************************]D0 <$ The file or directory is read-only.]Dh< The file or directory is hidden**** ]DX <f The file or directory is part of the operating system or is used exclusively by the operating system.]D<# The handle identifies a directory."S]D <7 The file or directory is an archive file or directory.nu ite]D@ <$ The file or directory is encrypted.En]D<3 The file or directory has no other attributes set.**]D <. The file is being used for temporary storage.]D< The file is a sparse file.]D0<* The file has an associated reparse point.]D <% The file or directory is compressed.]DX<, The file data is not immediately available.]D  ]D]$8 ******************************************************* SHBrowseForFolder Structure''''8 ******************************************************* ^D^DT^0^DH%^D`^Dx%^D^Dp8 ******************************************************* FILETIME Structure8 *******************************************************^D^Dp8 ******************************************************* WIN32_FIND_DATA Structure%8 *******************************************************^D \(^D8^DX^Dx^DP^D^DR^D^ D^Dp8 ******************************************************* SHBrowseForFolder FunctionH Displays a dialog box that enables the user to select a Shell folder.8 *******************************************************88 ******************************************************* SHGetPathFromIDList Function: Converts an item identifier list to a file system path.8 *******************************************************( )8 ******************************************************* lstrcat Function6 The lstrcat function appends one string to another.8 *******************************************************(( 8 ******************************************************* FindFirstFile FunctionM Searches a directory for a file whose name matches the specified file name8 *******************************************************()8 ******************************************************* FindNextFile FunctionM Continues a file search from a previous call to the FindFirstFile function8 *******************************************************()(8 ******************************************************* FindClose Function% Closes the specified search handle8 *******************************************************(8 ******************************************************* GetLastError Function7 Retrieves the calling thread's last-error code value8 *******************************************************8 *******************************************************& shell/ Nil, CancelP]]]] -:'  8!9 $9 H J T \ f 9q tBrowseInfo $'  $'  A@    $' 'd lpIDList'k lpIDListi(8 *******************************************************H *.xls Windows2 ( )/ - ]` ]   ] ] ] \*.xls'P *************** . Excel - . *****************) 6 Call MsgBox("Search Files Target: " & SearchPath1)P ******************************************************************************* $'  $'  _X \ ! !  $  B@P *************** . Excel - . *****************) b Call MsgBox("Search Files Result: " + Res.Item(Res.Count()), vbOKOnly + vbExclamation)P *******************************************************************************  $'  $'P *************** . Excel - . *****************)  Else dwError = GetLastError()U Call MsgBox("Search Files Error: " & CStr(dwError), vbOKOnly + vbExclamation)P *******************************************************************************k  hSearch <> INVALID_FILE_HANDLE .iEAttribute VB_Name = "KraModuleExt9" 'C Copywri(C) MSS@ 2006-7 !'H -  #gAH D OS ( ŐlX0) TA$  ? $'B Option Explicit *3A SHBrowseForFolder@unstantsv Priva Co BIF_RETURNONLYFSDIRS As Long@&H1 ' " findia f$to $rt document search QDONTGOBELOW@DOMAIN2DBthe FS>mprSTATUSTEX T 4ŀ' To p of Adialog has 2 linesBext@4r BROWSEINFO.lpszTitle and one if  [Q'is flag set. Passmessage BFFM_SE2TA `,Ahwcan ,ta/' rest!ftTh@@not used withBUSE`NEWUIB r#geQQ{' allre*0.Q<SFSANCESTOS8QEDITBOXJB10 ' Add editbox,D1 VALIDAT EJ 2G ' insi+n valida-ult (o`wAL)oo`,DIALOGSTYL 4 ' UseA> new # layoutc5Cability`bO@:@dNO@TRANSLP2TXARG`L24Q ' bn'raveRrq-arPD Yshortcu"toFORCOMPpUTER ' Bsa)*fcs PR! P ntP F_IN)FILE)-0m EytrtB)SHAREdABA80''` shar,oHurcmdi/(0remop~Aes,IO/I6A%* A_ATTRI )EE{ApOxdv7Q ss8ociїspo8int1eRESS\ V"( =DP{pWp?5eIBUTE_OFFLINE As Long = &H1000 ' The file data is not immediately available. Priv* Const FILE_ATTRNOT_CONTENT_INDEXEDe v2v  FINVALID_HANDP UE-1oublicnMAX_PAT"H260G' b*3 'SHBrowseForFolder Structure0Type 3Info  hWndO~ /Func;!{ s a log box that en"se u' to selectShell f? "}?2XDeclare @Lib "s32" (lpbiA/) _w((GetPathFromiAj(!vert`(n [m identhifil'asystem p__Z;? {_)I, (ByVal pidL d3, /#lpBuffPV//lstrc+;.f appends one Pa;a`herOw>-k 0Ael,Alias "A"4lpD1!0|, U2Wx5VFindFirstP>Sear,chiHrFory`Fr Gwhose nAmattspec7~dc6*55 oa:ob?7lp0f1a܁7(Nex ti,nus f@Uprevious cfA* ;/ | oe%__ThS OOO?3_$ Cl7U27handloگ_\C ,/NC*1N/ PxErrorN"on ' Retrieves the ca llingXread's last-error code val,ue*3 Private Declare Function GetLrEqLib "kernel32" () As Long #m' 6' shell  Nil,  `Cance ublicSelectFolde:rSׇDim lpIDLi st sBuf8fer zTitletBrowseInfo/G)sD= " -:"C With HCAr.hWndOwn)= Ap p@AaA.Hwnd lpGlst rcat(D, "") ulFlags = BIF_RETURNONLYFSDIRS +DONTGOBELOW@DOMAIN_NEWDIALOGSTYLEEWFOLDERBUTTO SHAREABLEEnd 9? '@o= SHC[ForD~LC@8 If ( ) The@+|pace(MAX _PATHGSH`mPathFromDG , # 1' Lef@.cJ, In`J(, vbNullChar) - 1 (Y@2$ Else"_"HA)'^' Ut  *.xPls `^} `>nd iA H P ('' A + aParchFiles(SeaA?~BColo)R`NXew hC , dw#øDataWIN32_FIND_DATAG 1A)a& "\B7INC &8 . Ex/ 3../<fΡ AC65dC MsgBo(x(" B5 Target: " & BaV3#>A@7UVVpFindF0irst H&A,? p ;e<> INVALID_HANDLE_UELDo1%.Add ,=A"YI!.cNameJOKo!o!o!wo!bo!p!h!pul!+s.Item(Cou nt()) OKOnlyvb,lamaqu1/$ w*{@"N0 btnAutoQueryL0btnManualQueryY|0btnStopAutoQuery0 btnVersion0 bInitializedK0krPCLNotLoaded0 krPCLLoadedg0krSearchRunningѪ0cMaxInt0cMaxSheetNameLengthU0 eventsModuleJ0 CollectionW0cmdBarC0 CommandBar0 CommandBars 0Addr0Position0 msoBarTopy0Visible0 NameLocal0ControlsK0msoControlButtonn0Style)0msoButtonCaption0Captionx0OnAction0 TooltipTextb?0SetCmdBarButtonsStatet0Deletex0 OnVersiona0MsgBoxR0Version0BuildE0vbOKOnly0 vbInformationn0OnLoadPriceLists׎0vrtSelectedFolder݇0 KraModuleExt9N80 hSelectFolderg0 KraModuleExt10V 0fsF]0 hSearchFiles"60 wrkshtTmp%*0 ActiveSheet%N0 Workbooks0Filenamej0 UpdateLinks0ReadOnly8<0AddToMruf0key0 ActiveWindowzB0 WindowState0 xlMinimized20Activate|0 vbExclamation0OnRunAutoQuery+0ActiveWorkbook0OnRunManualQuery0strKey0InputBox 0Promptm0Default0Title~0 wrkshtResN0bNameOKM0 strNameBase@0strNameZ0 wrkshtActiveU0Trim@0 wndSearchF0Window0 DisplayAlerts0Sheets 0xlNormalL0Top50Height|0 UsableHeightq0 UsableWidth$0Windows؜0DefineStrNameBase0Str0 Worksheets0AfterX0 iRowPosition30DoSearchSingleWorksheet[Q0Columnsp90AutoFit& 0 wrkshtSrcx%0iFrstRowj~0Cells0 cellFound%0 firstAddressd0Findn0Address0 cellsToCopy0 MergeArea0 EntireRow0Ja0RowsU0FindNextu0kraStateh0Enabled۪0strCurrH0Lc0ChrK~0Right 0BIF_RETURNONLYFSDIRS00BIF_DONTGOBELOWDOMAINٚ0BIF_STATUSTEXTi0BIF_RETURNFSANCESTORSV0 BIF_EDITBOX#0 BIF_VALIDATE0BIF_NEWDIALOGSTYLE0 BIF_USENEWUI0BIF_BROWSEINCLUDEURLSW0 BIF_UAHINTI0BIF_NONEWFOLDERBUTTONθ0BIF_NOTRANSLATETARGETS;0BIF_BROWSEFORCOMPUTER0BIF_BROWSEFORPRINTERb0BIF_BROWSEINCLUDEFILES0 BIF_SHAREABLE0FILE_ATTRIBUTE_READONLYX0FILE_ATTRIBUTE_HIDDEN<0FILE_ATTRIBUTE_SYSTEM0FILE_ATTRIBUTE_DIRECTORY0FILE_ATTRIBUTE_ARCHIVE&%0FILE_ATTRIBUTE_ENCRYPTED0FILE_ATTRIBUTE_NORMAL{0FILE_ATTRIBUTE_TEMPORARYz0FILE_ATTRIBUTE_SPARSE_FILE0FILE_ATTRIBUTE_REPARSE_POINTw0FILE_ATTRIBUTE_COMPRESSED (0FILE_ATTRIBUTE_OFFLINE>M0"FILE_ATTRIBUTE_NOT_CONTENT_INDEXED070INVALID_HANDLE_VALUE0(MAX_PATH(0 BrowseInfoH0 hWndOwner0pIDLRootd0pszDisplayName0 lpszTitleS0ulFlags0 lpfnCallback0lParam70iImageU0FILETIME%0 dwLowDateTimev0dwHighDateTime4u0WIN32_FIND_DATA0dwFileAttributes0ftCreationTime{0ftLastAccessTime0ftLastWriteTimeW 0 nFileSizeHigh>N0 nFileSizeLowc50 dwReserved0J:0 dwReserved1K:0 cFileName 0cAlternateFileName0SHBrowseForFolder9p0lpbi0shell32t0SHGetPatas *\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.4#0#C:\Program Files\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.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.2#0#C:\Program Files\Common Files\Microsoft Shared\Office10\mso.dll#Microsoft~xME (<<<<8+`"" X%+i% % %`R `` {GF L LP L Lx L  >  <` 6   B  @ 8@ 8x 2 @ @( hpx  &    . 0HPX ` >h P 8 60 hB p x    &,8 h x  F'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''';7F Copywrite (C) MSS 2007 'F KraModuleExt - '{ , ( l XP) ' 'CF ? '''''F''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''8 *******************************************************6 Excel/ Nil, Cancel9'''''''''''''''''''''''''''''''''''''''''''''''''''''''''2 "Folder Picker dialog box" Excel XP2 Excel 2000 + Shell (. KraModuleExt9)9''''''''''''''''''''''''''''''''''''''''''''''''''''''''': FileDialog object "Folder Picker dialog box".]@  8%.dd a is ((or CA'Show = -1 , OK()it !2; C %'l OleId'ki8 *******************************************************toI *.xls Excel XP2 ( )/ - no`]] 8!.On  9*.xls9OG7 6] R5!Vor R5%X B@ Brows R To .FoundFiles.Count6k# .Execute(AlwaysAccurate:=True) > 0rowsq fsythi. .6ih`˴Attribute VB_Name = "KraModuleExt10" 'C Copywri(C) MSS 2007 h &'H -  p#kH, ( l XP)  ']> @  p ?($ Option Explicit A[*3AaaaVcel*Are Nil, @A CaFnC.Pub1 Func5SelectFolder() As S@ng \R " Picker dialog box"* @y9@ A@ 0  I@ Shell (.2 9)@ 4`TFile"Dobj( ( 7. *Dim fd-#g#Set!= TApMa4.(msoc+C+ @'D } ,A`vfd.AllowM0ulti@False# Show -1 , rހK+!KOK())cIf@.Then#a)M #edItems(1 E!a"End If AZW` t2A0 O(@>*. xls P> Y'w@14T (rA* !y0 c1 `;`1$@ {archEs(Sea0Path|}Co>lA`)!TResaNewԋXߢ c Xs< XɉWifs#9.LookIn n/@N.Exec(AlwaysAccurate:=True) > 0 QI!Integer' AFor I 1 To .Foundas.C``19.Add (-(I)-PNext'unC.t 0VNothi]Q @ 4t Office 10.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{72FBD055-2811-44C0-A96C-6315E609AF0E}#2.0#0#C:\DOCUME~1\MAXIMS~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M    KRa Excel Add-In{G-B0=830094802a158-B0=830.x 8AB1024802a158% 8AB139 8AB2034802a158' 8AB2L0- 8AB3044802a158) 8AB3H-KraModuleEvents0;4802a158+KraModuleEvents`KraModule0:4802a158KraModuleO^`xmpKraModuleExt9074802a158KraModuleExt9)=KraModuleExt10084802a158KraModuleExt100`x*"-@1E[/:J =K87&s W0 10 20 30 KraModuleEventsԲ0bIgnoreWorkbookDeactivateħ0 shtActiveD0 Worksheet0 wrkbkActive90Workbook0appAppuz0 Application*0shtActive_SelectionChangeE0TargetF0Range 0(DoSearchp0 ActiveCell0ValueK0wrkbkActive_SheetActivate0shtShM(0appApp_WorkbookBeforeClose0wrkbkWbf0Cancel0wrkbkTmp0I`0 (wrkbksPCL0Count0v0Itemz0Removeϱ0(OnDropPriceLists0 (wrkbkResultsj0(OnStopAutoQuerys0SetIgnoreWorkbookDeahFromIDListK0pidListbO0lpBuffer>0lstrcatW0 lpString10 lpString20kernel32_0 FindFirstFile0 lpFileName20lpFinfFileData@0 FindNextFilehD0 hFindFile0 FindClose0 GetLastError0lpIDList80sBufferzd0szTitle0 tBrowseInfo}70Hwnd0Space 0 vbNullCharY0 SearchPath.0Res0hSearchu0 dwSearchResA0dwError0FileData 0 SearchPath10 SearchPathA 0fd7]0 FileDialog0msoFileDialogFolderPicker?'0AllowMultiSelectV0Show0 SelectedItems0 FileSearchD0LookInP0ExecuteY0AlwaysAccuratex90 FoundFiles0 AddinInstall0AddinUninstall0Class0SelectionChangen0 SheetActivate 0WorkbookBeforeCloseZ0WorkbookDeactivateS0 %')+@@ PG %<9stdole>QstUoaeP f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\system32\12.tlb#OLE Automation/DOfficDO>fiw D2DF8D04C-5BFA-101B-BDE5DAAB42Dgram Files\CommonMicrosoft S@hared\@10\mso.dl l# 10.0 Ob Li`braryKMSFor ms>SForms3@RD452EE1-E08F0A-8-02608C@4D0BB4RFM20.DLL& ^L&/;!~1iIpAHp00}#7@p# 50 A72FBD055-2811-44C0-A96C-6315E609AF0E6DOCUME~1\MAXIMSLOCALTemp\VBE\T.exd 2 87 A8AB5<K &5@A8O OnVersion &=D>@<0F8O > 25@A88Enableda a )   ! 9a q q1Qa !  9 Y a   KRa Excel Add-In strKey   wrkshtSrc wrkshtResiFrstRowkraStatestrName )( )8 iH shtActive wrkbkActive XappApp h IxTargetshtShwrkbkWbCancelbNewValF4C:\Pro-B0=83018AB128AB238AB3KraModuleEventsKraModuleEventsKraModuleKraModuleKraModuleExt9KraModuleExt9KraModuleExt10KraModuleExt10-[ID="{00000000-0000-0000-0000-000000000000}" Document=/&H00000000 Document=1/&H00000000 Document=2/&H00000000 Document=3/&H00000000 Class=KraModuleEvents Module=KraModule Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=KraModuleExt9 Module=KraModuleExt10 HelpFile="" Name="KRaProject" HelpContextID="0" Description="KRa Excel Add-In" VersionCompatible32="393222000" CMG="92903EAED4B2D4B2D0B6D0B6" DPB="2426884088CFA5CFA5305BD0A5591551D953449B3913E04CCC5C2208B9ADAD64ED1C4AFFEBB9" GC="B6B41AF23E16D117D1172E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] =66, 69, 594, 417, 1=0, 0, 0, 0, C 2=0, 0, 0, 0, C 3=0, 0, 0, 0, C KraModuleEvents=154, 161, 682, 509, KraModule=44, 46, 157, 650, KraModuleExt9=110, 115, 946, 530, KraModuleExt10=66, 69, 902, 484, Z DropPricOh+'0HPl KRa Excel Add-IneMaxim SamsonovnMaxim SamsonovnMicrosoft Excel@to@"|=h8+3qquIF/*=h8+3q}$&5pSummaryInformation(DocumentSummaryInformation8 CompObjaK*srU~~~~~~~~~~~~@ -|[HKcET a a )   ! 9a q q1Qa !  9 Y 9 Y y KRaProject123KraModuleEvents KraModule KraModuleExt9KraModuleExt10F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  y`F4C:\Program Files\Microsoft Office\Office10\EXCEL.EXEExcel  p0FC:\WINNT\system32\stdole2.tlbstdole 1yL-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\mso.dllOffice .E .`M C:\WINNT\system32\FM20.DLLMSForms  1qUr(Dlc  2C:\DOCUME~1\MAXIMS~1\LOCALS~1\Temp\VBE\MSForms.exd   qFPrAgF㗫F2z!L9n3iDFWorkbook Workbook_OpenWorkbook_AddinInstallWorkbook_AddinUninstall @ KRa Excel Add-In 1.001 ,Price-list item search 6>8A: ?>78F89 2 ?@09A-;8AB5 Initialize UnInitialize OnVersionOnLoadPriceListsOnDropPriceListsOnRunAutoQueryOnStopAutoQueryOnRunManualQueryDoSearchDoSearchSingleWorksheetFSetCmdBarButtonsStateDefineStrNameBase 00t (8HXl+=h8+3qquIF/*=h8+3q}$&5pkHd!w N!=h8+3qClassPgv3+3o VBInternal i  wrkbkActiveDFappAppDF shtActiveFshtActive_SelectionChangeFFwrkbkActive_SheetActivateappApp_WorkbookBeforeCloseSetIgnoreWorkbookDeactivateappApp_WorkbookDeactivate $$\L<D<DLFF F F F Style ,&03@C78BL ?@09A-;8ABKCaption OnLoadPriceListsOnAction >03@C7:0 ?@09A-;8AB>2 2 A8AB5<CTooltipText *&2B><0B8G5A:89 ?>8A: OnRunAutoQuery ^2B><0B8G5A:89 ?>8A: ?> 7=0G5=8N B5:CI59 OG59:8 "&@5:@0B8BL ?>8A: OnStopAutoQuery >@5:@0B8BL 02B><0B8G5A:89 ?>8A: & CG=>9 ?>8A: OnRunManualQuery 2>8A: ?> 7040==><C B5:ABC ,&K3@C78BL ?@09A-;8ABK OnDropPriceLists @K3@C7:0 ?@09A-;8AB՜.+,0 PXp x MSS ConsultingA 123  F Microsoft ExcelBiff8Excel.Sheet.89q