ࡱ>  5  8 3)!"#$%&'(*+,-./0124679;<=T?@ABCDEFGHIJKLMNOPQRS:UVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry FXn?/.:Workbook _VBA_PROJECT_CUR"ր.0.VBA ր..  !"#$%&'()*,-./01235689:;<=>?@ABCDEFGIJKLMNOPQRSTUVWYZ[\]^_`abcdefgijklmnopqrstuvwxyz{|}~ u'ɀ\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 u'ɀ   dMbP?_*+%"??U>@7 8AB1 u'ɀ   dMbP?_*+%"??U>@7 8AB2 u'ɀ 1  dMbP?_*+%"??U>@7 8AB3 rU x"Y3Y34A a``` I-B0=830__SRP_6 +8__SRP_748AB1 7eClj @ / .xla ,  AAddIn'  ( 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?&))  V P VX N : 6@ x V "  V H F0 P VX  "   V ( H0 x V  P *******************************************************************************< 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 - . *****************P *******************************************************************************ohP *******************************************************************************G Workbook_AddinInstall / Workbook_AddinUninstall 3 / AddIn' .0 P *******************************************************************************@ BP *************** . Excel - . *****************P *******************************************************************************o B"P *************** . Excel - . *****************A Call MsgBox("Workbook_AddinUninstall", vbOKOnly + vbExclamation)P *******************************************************************************o7 Call MsgBox("Workbook_Open", vbOKOnly + vbExclamation)? Call MsgBox("Workbook_AddinInstall", vbOKOnly + vbExclamation)Attribute VB_Name = ""  Bas|0{00020819-u 0C$0046} |GlobalSpacAFalse dCreatablPredeclaIdTru B@ExposeTemplateD0eriv$Bus`tomizD2 0 ' *K) Workbook_O pen /Be@forGL#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}`(%@@P{GxAttribute VB_Name = " 2" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2G#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}`(%@@P{GxAttribute VB_Name = " 3" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2k H L HH H H H  Hh p >    4( `   4    > <@ 2  "   -  > :( 2h "    > 2 J@ $  R  0" 8HP  Xh "      .    0@X   x      !̚XtG -HYukJ*=h8+3q,}NGZx,}NGZtG -HYukJME SS S`.`2 `69>"L*L PPP<rN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}Px  %*-8L4@%*1h80@%*5@(`@ 8`0 `kD ): % DX`tJ8H (iF H `0 @kL&&5)K A''%iL '''' Ot'''%`Pr ``tkXPe)K x%%X8h%X8hX8hX8h%% Kx% KxP Kxh Kx Kx@% Kx`H%%%% Kx Kxxb4 @ Kx% Kx% Kx0% Kx% Kx  Kx%% Kx %%%p h8X :xp%X0P( )X %%%% :x@t x Kx KxH x%%p Kx Kxp Kx 0 8@`P :xX8( Kx$%%0t  :x8%@d   xX 0  X 0 @t @d Kx@` (l`( 0 @h `Fx    KxP % Kxp P% Kx 0%i  Kx % ` |+ @ [8   @ f @d H @T @D  @@ 8 h\T {G*\R1*#284*\R1*#286*\R1*#282*\R1*#1b0$*\Rffff*6x470e7e4d*\R0*#1b*\R0*#1c*\R1*#df*\R1*#285$*\Rffff*6w470e7e4d*\R1*#e8*\R1*#db*\R1*#ce8<hDHP  > , N0 6 ( " `  x h > 2H 2  "  #     A'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''A KraModuleEvents - 'A (1) 'A (2) 'A (2) 'A'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''7 (shtActive)  ] . A (shtActive)  ] 8- (appApp) ] h8 *******************************************************5 + ( ) @!B B>o8 *******************************************************3 + ( ) F.,o8 *******************************************************+ D ( , -, , , )L ""   'X]] !R P5T P7V.N J N PC@Xyk wrkbkWb Is wrkbkTmp P( - ...5T BZk .Count = 0q KraModule.wrkbksPCL J !\ /\k  wrkbkWb Is wrkbkResults J 0 B^k  wrkbkWb Is wrkbkActive'Lo8 *******************************************************+ + ( ) B^k  wrkbkWb Is wrkbkActiveoF Copywrite (C) MSS 2006-2007 'P  o ]@ '8 *******************************************************(b% Helper appApp_WorkbookDeactivate0 Active Workbook, "")H ( , e@  J 0 yAttribute 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 ,IOnDrop__SRP_2__SRP_3s!8 A@(Y@nrU t$`$`$`$`$!`$I`$q`$`(`0D `#1ac*\R1*#1b*\R1*#e8*\R1*#e9*\R1*#db*\R0*#1b*\R0*#1b$*\Rffff*62470e7c81$*\Rffff*61470e7c81*\R0*#f*\R1*#ce*\R3*#34*\R3*#4f*\R3*#30*\R3*#4d*\R3*#2d*\R1*#282*\R1*#df*\R1*#285: H Hx8 HH H H 4   @H5 .h "(  $$8$`.6  2h5 ,(0X x 2 $  ( 0 HP X px > 6 "     V h 8p  : @ 0 P h  V V 87 @ VH  & 2   ;( H X =h     (  =  0  8  @  `  8x  =         (0  X =p         "  =  0  8  @  `  *-rO^pxMED  "*8~02(L<4> 0.((<<<<(<,<0<$<8<<<@*LL*LPLPLP LLL*L<<<<<<<<<<<<<<<<<<<%fH€jP @€l( @€p H @˜tB ˜v B ˜z( BSP p@% %%KRa Excel Add-In %Price-list item search% ` k__: - " `dk (`h oEE1.001 % ,%% O$%  %`P"6|df Z`k Ot%`Pr `Xk ^ `"vk. x`J<`x8 >`xJQi **** Ox****% t0 % p0%`n `h****`8d ` % 0%`+ `tk QQ) 8@nP%i`The ) %i En "lxt c % *4**** %@P ****`0@**** x `XkX ##gi6 ****+  `@k i ft E@h `:d@PT `<Rb XHdxH€h( @€nx8 @˜rB ˜xB|lP@] @`&h x @ %h @@H t `xH@@p l` ` € X @ 8`J 8P `x8x( x (  P(  P ` x @h \ @ L 8@ < @ , hlpnj@ @ ` & @0 ` H  .@X `p 0 6@ ` X > @ ` F@` N rt @ `|6df pH@x t`( @8l P @hO x8 @d H8@z 8"8Xrhlpnjtv@h @X hlpnjtvPP"`xZ6R@ t @@p @p` P&(`@P @h@ @0   h   88@( @ @P @ @ @ @ @ @ @ @ @( X@@ @Xt @pd @T @D @4 tb@2 @ h@(rR @z @l f@j @h  @pX @XH @8 @( @ hPv@>6| @z @t @d @` @\ @X @(6\ x\ `P^#PhhX#XL @< 8(8 @4 , ` (( @& ,$ ,. ``8pH @ PX`A fO hf k (q8 hqRp @ @ ****@ ****@ uO u|(8 `8PX  @ Hb@  Sh | 6!O #xO 0 H0` x z>@8@`@ !@0 @x @ @@  @ p@ @ @( @@ @X @  x  `"X p !h! 8 `zH P p@!t p `pX%0!p @ X @!H @ 8 @0"$ @! @@! X!!4 @ !@!4@! !h!5@ `"!5 @! @ @" p"@" @H" @ @x p"!7"@!8@t |t"@x ""x#"@v #(@b>th$v !#xp @` $(P @@ @0 % @ @% @ p% @ % @ @ (% x (( !% 8xP t/ {G$*\Rffff*6x470e7e4d*\R0*#1c*\R1*#286$*\Rffff*6w470e7e4d*\R1*#284*\R3*#4e*\R1*#1ac*\R1*#1b0*\R0*#10*\R1*#1ad*\R1*#d3*\R1*#e8*\R1*#1b0*\R0*#14*\R0*#1*\R1*#db*\R1*(x  =5 5 5  6 5 P6 06      > 20 h "p  Lx          4!  (  8  H  P  `  p  x       >6 .6 6" 6 76 > 0 8"@ H ;  >09 9 "p9 ^9 9 K8 8< 8 : 9 8;K;  ;0<  ;P< H;  P X `  +: : @: O: $; (;   Nh R ( L8    $     \3 h   B@:  > 0 "   2  X` !h. H 8  "  H P ` >h & "    .  -(  X8  :5  > 00 `"h  Rp       > (H p" x    D]       >( 2h   "   4  <  " 0 8  HP  0`  +   @          0 P (X h 2x  202 0 8  2P  0 2    37 D= 0  /8PX7` 3x7   ><     ^ T( $ F   0 P .`  L     2 ( 0 >@     (   F ` h  xVH    "( ( P  x      <     B( \p 4 ! !  !J0!,H! X! x!  ! R! " " " V" @p" " !"'""#$ # $ H#  :p# # ^# *$ H$ x< P$ 4   >`$ $$p<$0%H%  < `% >h% "% % % ,& @@& B& & ,& B' ' V' h'p' 0( V8(  ( ( (  <( ))4 )  0() X) `)  Vp) ) ) F) (* 0* V8* * ^* * V+ bX+ ++.+  R+ @, VH, , B, :, 80- h- Vp-- ;-5-*j. H. X.  Xh. .2. \. P@/ /!/ ///  /"/0 00 80 >@0 N0 0" 0 0( 0 1  1 01 @1 P1 $`1 1 1 1 1 1 1 1 2 2 (2 82 H2  x6 `2 >h2 ,2 2 ,2 (3B 03 83H3 6X3 33%3 rC3:bH44 4  44 X=A'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''A KraModule - , 'A ? 'A''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ]DKRa Excel Add-In8( -'']DPrice-list item search`]D - ] -]( -]P ] ]x  Add-In']D( - ]D( - ]D(  ]D ( MAX_INT]D ( oso A]( -\Do]  ] P 8 *******************************************************t0 Add-in't] P *************** . Excel - . *****************o2 4 For Each ctl In CommandBars("Standard").ControlsonP9 If ctl.TooltipText = "The AddIn's menu item" Then ctl.DeleteUT End IfC Next ctl\WIP *******************************************************************************iP *************** . Excel - . *****************oP *******************************************************************************C''A" |k 6 |/4r 6+ - NT\ d  %. (T\S f (2\ l !%.hm  h 9& -9\OnLoadPriceLists9 - 9q btnLoadPriceil l !%.lTS l 9& 9EOnRunAutoQuery9./ 9q btnAutoQueryH= l !%.pes p 9& 9webOnStopAutoQuery9 9qbtnStopAutoQuery l !%.nDE n 9 & 91OnRunManualQuery9 9IntqbtnManualQueryR l !%.jES j 9& -9aOnDropPriceLists9 - 9qbtnDropPriceListses\q ApplicationQT rA@\Qo8 *******************************************************l+ Add-in'RWE , te |/,Sy |/0ot TE 6  M ! d B@S~1kX ! f B@ME~k0 For Each cmdBar~1\q ApplicationR= |/4UMo8 *******************************************************I* " -"8AZ]]]H -L ActiveSheet - . , - , " , F If Not wrkshtTmp Is Nothing Then -- , -  B@p  - tA@d . Execute 8 -. .   bAk . Execute.oH 8 ******************************************************** " -"( rA@, -]h] P R!T R%VB@BB , 1 app_WorkBookBeforeCLose KraModuleEvents wrkbksPCL.Remove (1) Pop8 ******************************************************* " " vA@( @!BA>R  6! |/, 6! |/0o8 ******************************************************** " "L , |/, |/0 tA@o8 *******************************************************! " " ]` vA@C : @!B b$'  A>k varKey tA@o8 *******************************************************+  strKey - x]]]]8]P]h] . $'* (1) Sheet - 6!.: (2) , \] 65. (2.1) 5B@5.\, (2.2) 9 P \!!T  \!%VB@ P! To wrkbkResults.Sheets.Count - 19q Application, (2.3)  \!%V.+ (2.4) ,   999 6!9 6!9q \%  99 6!9 6!9 6!9q(k wrkbResults Is NothingW (3) - , , M , ,  @ , " ", :  (1) (2) ...( (cMaxInt = 32767)F , - + (3.1) : $ '8 (3.2) strKey (strNameBase !) " "' '  \! ! 'yk wrkshtRes.Name = strKey  In wrkbkResults.Sheets@ (3.3) strKey ,  P x ( P$$ ) 'B% Trim = '  \! ! 'yk wrkshtRes.Name = strName  In wrkbkResults.Sheets y@k8 P To cMaxIntk bNameOK <> True5 (4A) ; (4A.1) ( ),U - , - (. 1.3)  \!5T7VC@5T7V.q wrkbkResults.Worksheetsk wrkshtRes Is Nothing  (K (4A.2) ]'O (4A.3) -, 9 ! - P R!T P R%V.N  N!    $'  In wrkbkTmp.Sheets P To wrkbksPCL.Count4 (4A.4) W AutoFit Activate, " " -$ "" selection !B@8 (4B) d bNameOK = True  - '  '. .   bAk bNameOK = Truek strKey <> ""oH8 *******************************************************  wrkshtSrc -  strKey - % wrkshtRes - : iFrstRow - ; (.. 0- " ")& Returns - iFrstRow#P *************** . Excel - . ***************** m = MsgBox(", : '" + strKey + "' '" +' wrkshtSrc.Name + "' '" +' wrkshtSrc.Parent.Name + "'", vbOKOnly)P *******************************************************************************  ! 5 (1) , Range] 7$.") (2) , Nothing "P (4) , FindNext "!('&? (5) FindNext , .. , Find_xP *************** . Excel - . *****************W m = MsgBox(" '" + cellFound + "' " + Str(cellsToCopy.Row))P *******************************************************************************\ (5.1) Range() (! - MergeArea) , ] "!,!..*L (5.2) Range, , P *************** . Excel - . *****************< cellsToCopy.Borders.LineStyle = xlContinuous4 cellsToCopy.Borders.Weight = xlThick2 cellsToCopy.Borders.ColorIndex = 7P *******************************************************************************] P *!2!T 0 *!!T P 0 *%   P 0 ,  0 PQ (5.4) Range'  *!2!T 'V (5.5) FindNext, , (!)J ( Find), Nothing "74." "x k cellFound Is Nothing "!( &k Not cellFound Is Nothingq wrkshtSrc.Cells 'ip 8 *******************************************************H Add-In' 6 rKT$ -  h(8 l(8 p(8 n(8 j(8 tKT$ -  h(8 l(8 p(8 n(8 j(8 vKT$ h(8 l(8 p(8 n(8 j(8n Case kraStateoH8 *******************************************************% : - 32 & - : \ / ? * [ ]x]]   z $'9 '< P <  P$':   :: :\ :/ :? :* :[ :]  P $ $>  < P $@ 'k  P To L ' i8::]](]x : B@ :(;@;8;`;H;0;;;p<<=;] (# True - ]D1.001 H; l !%.  9 OnVersion9-]  &9qbtnDropPriceLists 9: (8dPd8 ******************************************************* o;( " "  b version  $ running on Microsoft Excel version  6! (Build  6!).   bAdvd(; MsgBox "Welcome to " & cAppName & " version " & cAppVersion & " running on Microsoft Excel version " &' Application.Version & " (Build " & Application.Build & ")."P=A Copywrite (C) MSS 2006-2007 '= %'dF %' ( 6!$1@: P ;8 ******************************************************* Excel 2000 -- "9.0"  Excel XP -- "10.0"W , shellk Application.Versionk 9 Not vrtSelectedFolder = "" aka ()9 6!.eS P !TWi --- P$ %.N NV P$ RB  ( Pute(Al]8 !T @ @@@@@]8@0@@@0@  %X.P@( 6!$1?  %X.% d Application.VersionL% d Application.Version% k Application.Version@; B@< |B< |B<< B@"- Microsoft Excel (. ===>)= ===> .Activate ' Microsoft Excelx<gAttribute 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)15oX%p8Kl58 llcla8`#tlh=/t58WcpkpzT@(p4lh$tt8$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 (l M@@0 ' 0h h0UpR(TkRD h%(0T"h A`1d60CldB0ldC0ldD0ldE0ldF0ldG0ldH0 bT(@0"h '   IkRD T"h J h6 T~C h1x(<$xThd(0   4\%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=( `)&(9 `I0n rU~|  0   0    f|P|FindFirstFileFrU ,#KraModuleExt9\Y__SRP_8__SRP_9 \KraModuleExt10 v2z L L LP L@ L L  >P  $  > D2Pb Z ZP  06 HH B  RnHn4( *`rU~|  Li : 1Y!A q9i y )!A ! (A" 1& &q '533 49145I4a4)5 8710777+y88Yh( 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   &Kp t$ t d$>pF`P ' P:@(]@t6`Pa )1xm *1xlx+0Kp t$ t d$>pF`P ' P:@(]@t6`P x ,, x -,(, $.l(q+t$ t @$l=" )t(, $.l(cI`M@@, . '4%'D%f%'T%'d%'t%'%'%'%'%'%'%c%f%`pt$ t L/Q$/pt5`O`M@@, .'0'P`l$ttM @$0 .lt=#$t6`P0$@%t$ Dt,t dIK  ("K +2 !3' '0:1NPP0:@2N`` 36`P0  c=.,\4$ ,x(pt`P0 l +z !!rl$0 $.llchg.f(%8(H$0 .846H8 rdh/odl(tH8 +z !-t$ (tad`` 5/`t5d:\t$ t @$l\="[Xl$ <)t\X5\t$ t H$Q\[Xl$ $)tX$$ `t\Xd|Hc="[xl$ <xc=#[xl$ $x +v !H$ x0   0 x  ttH "Qtp FX%p8Kl58 llcla8`1h58.la8iKtta$K4t68$;(4a8Ktta$v"iHt68$ht54a8Ktta$v"t68$cijkD$%kD% @kDH%4a8Ktt%H ")t68$ d ~2k4a8Ktta$v"pt68$!ll(*V >   "  >` 62px6Jx68F@h.8<(8> h p @ >P  $  >      0  8  H  X  h  x  >    > X ` p >  "`  >  @ P         >@  $ N  > H H >  & @ @ >H H >   < H >P H >   T  > H > X  TX  > H >0 `  , hBvF0J(SHBrowseForFolderSHBrowseForFolderSHGetPathFromIDListdlstrcatAgPgSHGetPathFromIDListJ|P|FindFirstFileFindFirstFileA0FindFirstFileAFindFirstFileASHGetPathFromIDListFindFirstFileAFindFirstFileAFindFirstFileAFindFirstFileAFindFirstFileA3tiFindFirstFileAA=FindNextFileAcFindNextFileAv*poFindCloseAFindFirstFileA FindFirstFileAsFindCloseFindCloseFFindClose pGetLastError exRR RRRRP@ME H$ @@H@ 0~@H<<(<,<0<4<8<<<@ C %A$%((,,hx("40 Wt008X C` 0 C˜PX B@jT ( ( C* C  +~Xpx  i i b +Jtp t iL8 )FʘlB`P xP , C.PC28@C6C:C@x C( BPit + p  X X H @  X+X`J ((  +B Pp P iD  )F X   `PX 8 x  X xhH8 p0  0X @ @ ( @ @| `v8X  @< (, @ `hp pG@ stdo f ( 0-(( 46}#m32\ X   `PX 8 x  X xhH8 p0  0X7@p# X   `PX 8 x  X xhH8 p0  0X   X A0{G$*\Rffff*61470e7c81*\R0*#1c(*\Rffff*61470e7c81\0(*\Rffff*61470e7c81\1(*\Rffff*61470e7c81\ > Hp >x `  >8 h > H ) > , 6 P h B p x    (   & 6 (   0  @ H  X 4h      >H N 8 6  B   0@(  @ V@ 0  <  V 4. X8 < VP 0 h  V 0x Hh V 0  & \@  Vh(     F''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''cF KraModuleExt9 - 'F ? 'F''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''8 ******************************************************* SHBrowseForFolder FunctionH Displays a dialog box that enables the user to select a Shell folder.8 *******************************************************8 ******************************************************* SHBrowseForFolder Constants 8 *******************************************************- ]D21 For finding a folder to start document searching ]D2 For starting the Find Computer.]Dh2O Top of the dialog has 2 lines of text for BROWSEINFO.lpszTitle and one line if2S this flag is set. Passing the message BFFM_SETSTATUSTEXTA to the hwnd can set the2T rest of the text. This is not used with BIF_USENEWUI and BROWSEINFO.lpszTitle gets2 all three lines of text.]D]D2 Add an editbox to the dialog]D 2# 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 X T ]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]D06\ Do not add the "New Folder" button to the dialog. Only applicable with BIF_NEWDIALOGSTYLE. ]DH6" don't traverse target as shortcutts -]DX6 Browsing for Computers. ']D p6 Browsing for Printers]D@6 Browsing for Everything]D6D sharable resources displayed (remote shares, requires BIF_USENEWUI)]$X 8 ******************************************************* SHBrowseForFolder Structure8 *******************************************************^D^D0^H^D`^Dx^D^D^Dp 8 ******************************************************* SHGetPathFromIDList Function: Converts an item identifier list to a file system path.8 *******************************************************( )8 8 ******************************************************* lstrcat Function6 The lstrcat function appends one string to another.8 *******************************************************((X8 *******************************************************& shell/ Nil, Cancel]]0]H]` -:'  6!9n $9t L N X ` j 9vq tBrowseInfo $D'  l$'  A@~    $' 'd lpIDList'k lpIDListi (F Copywrite (C) MSS 2006-2007 ''''F OS ( l 2000) ' 8 *******************************************************`^DILETIM^D e@8 *******************************************************^D^Dp8 *******************************************************pp`  FILETIME Structure!8 *******************************************************^D`^D WIN32_FIND_DATA Structure^D@`^Dx^D@^D^ lD^D]D`<, The file data is not immediately available.ns]D< The file is a sparse file.TE]D  ]D P<7 The file or directory is an archive file or directory.000020]D<% The file or directory is compressed.]D <# The handle identifies a directory. ]D@ <$ The file or directory is encrypted.RA]D < The file or directory is hiddenRIBUTE]D8<3 The file or directory has no other attributes set.SE]D<$ The file or directory is read-only.TE]DX <* The file has an associated reparse point.BUTE]D0 <. The file is being used for temporary storage.]D <f The file or directory is part of the operating system or is used exclusively by the operating system.8 *******************************************************8 ******************************************************* FILE_ATTRIBUTE Constants`p8 *******************************************************.H8 *******************************************************te(n8 *******************************************************(զ()x eft( FindFirstFile FunctionM Searches a directory for a file whose name matches the specified file nameyValM Continues a file search from a previous call to the FindFirstFile function?0,8 *******************************************************() { # FindNextFile Function 8 *******************************************************ag]DxFu8 ******************************************************* FindClose Function% Closes the specified search handle i]]_] jjDL ^ P ^$N'j ^ b$J'j$k  hSearch <> INVALID_FILE_HANDLE v b$B'^$ V.X$!APH $'v1 =b8 t\*.xls'X8 ******************************************************* ] 8 ******************************************************* GetLastError Function7 Retrieves the calling thread's last-error code value Else ]8) HX t\ b! b!  $  VB@HXP8 *******************************************************/ - 6 Call MsgBox("Search Files Target: " & SearchPath1)2 ( )P *************** . Excel - . *****************?P *******************************************************************************Z) ) P *************** . Excel - . *****************?P *******************************************************************************b Call MsgBox("Search Files Result: " + Res.Item(Res.Count()), vbOKOnly + vbExclamation)P *******************************************************************************QP *************** . Excel - . *****************? dwError = GetLastError()U Call MsgBox("Search Files Error: " & CStr(dwError), vbOKOnly + vbExclamation)IXH *.xls WindowstiEAttribute 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*{@"Nd1xpCx,xtdpll$hl$ l TQhpl lpd d `  Excelj$ 9'''''''''''''''''''''''''''''''''''''''''''''''''''''''''2 "Folder Picker dialog box" Excel XP2 Excel 2000 9''''''''''''''''''''''''''''''''''''''''''''''''''''''''': FileDialog object "Folder Picker dialog box".  6%. ('Show = -1 , OK() ! %'+ Shell (. KraModuleExt9)@x8 ******************************************************* 2 ( )] I *.xls Excel XP/ -  V.X >iX  6!.s t9*.xls97 cati] P5!TWi.q fsvrtSk# .Execute(AlwaysAccurate:=True) > 0es.C P5%V VB@d(.Fou P To .FoundFiles.Count]8P˴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 @ 4&(p  > P 8__SRP_a__SRP_b_VBA_PROJECT&dirL(M xME(L(L<4PLL6 0~LLL<8<<<x+`0dk"" t`M% %`%H+X`k1it % Wtp pPX%%`P^`xX6p @p @l ( H@h @d  8P h Yxhh@6l @l @h (d8`% @` @\ =1h @Z ac @T @D @4 @0$ @H @` @ @ fi@ hX{G$*\Rffff*62470e7c81*\R0*#1c*\R3*#a3*\R3*#85*\R0*#1b*\R0*#1b*\R3*#82*\R3*#a0*\R1*#ce*\R1*#df*\R1*#285*\R3*#9eF L LX L L0 L  >0 < 6   B  @@ 8 8 2@ @ @0 x)p  &    . &(p  > P 8 6h B  $    %  *Ih & ,8 (    xF''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''F Copywrite (C) MSS 2007 'a{ , ( l XP) ' ' F ? 'F''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''F KraModuleExt - '8 ******************************************************* k]H'id/ Nil, Cancelj$ 6 d @%`d dl`*^`ld ll ( l`lcZI'''$T k^ld ll $ >TFDt$ l6D$ ^dZcd c=p tV xD4xdtp(TlhD$frU $ `0 `I 0nOnStopAutoQuerys0appApp_WorkbookDeactivate+0cAppNamer0cBarNamez0 cBarNameL0btnLoadPriceLists_0btnDropPriceLists>0 btnAutoQueryL0btnManualQueryY|0btnStopAutoQuery0krPCLNotLoaded0 krPCLLoadedg0krSearchRunningѪ0cMaxInt0cMaxSheetNameLengthU0 eventsModuleJ0 CollectionW0cmdBarC0 CommandBar0 CommandBars 0Addr0Position0 msoBarTopy0Visible0 NameLocal0ControlsK0msoControlButtonn0Style)0msoButtonCaption0Captionx0OnAction0 TooltipTextb?0SetCmdBarButtonsStatet0Deletex0OnLoadPriceLists׎0vrtSelectedFolder݇0fd7]0 FileDialog0msoFileDialogFolderPicker?'0AllowMultiSelectV0Show0 SelectedItems0fsF]0 FileSearchD0LookInP0Filenamej0ExecuteY0AlwaysAccuratex90 wrkshtTmp%*0 ActiveSheet%N0 FoundFiles0 Workbooks0 UpdateLinks0ReadOnly8<0AddToMruf0key0 ActiveWindowzB0 WindowState0 xlMinimized20Activate|0MsgBoxR0vbOKOnly0 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%0Findn0 firstAddressd0Address0 cellsToCopy0 MergeArea0 EntireRow0Ja0RowsU0FindNextu0kraStateh0Enabled۪0strCurrH0Lc0ChrK~0Right 0 KraModuleExtk0SHBrowseForFolder9p0lpbi0 BrowseInfoH0shell32t0BIF_RETURNONLYFSDIRS00BIF_DONTGOBELOWDOMAINٚ0BIF_STATUSTEXTi0BIF_RETURNFSANCESTORSV0 BIF_EDITBOX#0 BIF_VALIDATE0BIF_NEWDIALOGSTYLE0 BIF_USENEWUI0BIF_BROWSEINCLUDEURLSW0 BIF_UAHINTI0BIF_NONEWFOLDERBUTTONθ0BIF_NOTRANSLATETARGETS;0BIF_BROWSEFORCOMPUTER0BIF_BROWSEFORPRINTERb0BIF_BROWSEINCLUDEFILES0 BIF_SHAREABLE0(MAX_PATH(0 hWndOwner0pIDLRootd0pszDisplayName0 lpszTitleS0ulFlags0 lpfnCallback0lParam70iImageU0SHGetPathFromIDListK0pidListbO0lpBuffer>0lstrcatW0 lpString10 lpString20kernel32_0 hSelectFolderg0lpIDList80sBufferzd0szTitle0 tBrowseInfo}70Hwnd0Space 0 vbNullCharY0Nil=0 AddinInstall0AddinUninstall0Class0SelectionChangen0 SheetActivate 0WorkbookBeforeCloseZ0WorkbookDeactivateS0 _B_var_cmdBar+0Version0BuildE0OperatingSystemN0Bool0kraInitializedP0_B_var_kraInitializedw0t0 _B_var_10 _B_var_TrimmT0_B_var_I 0_Defaultj0 _B_var_Str0 _B_var_LeftQ0 _B_var_Midpas *\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 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{5E556BD2-F320-4459-8A44-EBD5F18AD492}#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=8302m470e7144-B0=830.x% 8AB12V470e70cc% 8AB13Y 8AB22W470e70cc' 8AB2L0M 8AB32X470e70cc) 8AB3HMKraModuleEvents6x470e7e4d+KraModuleEventsx`!KraModule6w470e7e4dKraModuleO^`xxKraModuleExt961470e7c81KraModuleExt9FKraModuleExt1062470e7c81KraModuleExt100xH`=HHz; C KVUD[_k\w=Hx|-^K $ݴR8d$A4VZ7Q]L|Fb]7OGs淋IlqXWԄA _- P2cFW9BMQZ0 As_If Excel+0 VBA0Win160Win320Mac0VBA6#0 KRaProject0stdole`0Officeu0MSFormsC0 ]0 _Evaluate0 Workbook_Open 0 KraModuleq0 (InitializeN0Workbook_AddinInstall%0Workbook_AddinUninstall 00 (UnInitialize>0 10 20 30 KraModuleEventsԲ0 shtActiveD0 Worksheet0 wrkbkActive90Workbook0appAppuz0 Application*0shtActive_SelectionChangeE0TargetF0Range 0(DoSearchp0 ActiveCell0ValueK0wrkbkActive_SheetActivate0shtShM(0appApp_WorkbookBeforeClose0wrkbkWbf0Cancel0wrkbkTmp0I`0 (wrkbksPCL0Count0v0Itemz0Removeϱ0(OnDropPriceLists0 (wrkbkResultsj0(0 _B_var_Chr\;0 _B_var_Right90_B_var_firstAddress0 _B_var_Objectj0 iExcelVersion0 _B_var_IfP0 _B_var_Exit0^0 _B_var_ForjL0dI\0 dExcelVersioni0 bInitializedK0_B_var_iExcelVersion;0 cAppVersion0btnAboutgT0 btnVersion0 OnVersiona0 vbInformationn0Module1b0 KraModuleExt10V 0 KraModuleExt9N80^0 _B_var_)0 _B_var_NilNv0 _B_var_Space0 _B_var_fd0 dwLowDateTimev0dwHighDateTime4u0FILETIME%0dwFileAttributes0ftCreationTime{0_B_var_ftCreationTime 0ftLastAccessTime0ftLastWriteTimeW 0 nFileSizeHigh>N0_B_var_nFileSizeHigh]10 nFileSizeLowc50_B_var_nFileSizeLow@~0 dwReserved0J:0_B_var_dwReserved0+0 dwReserved1K:0_B_var_dwReserved1,0 cFileName 0_B_var_cFileName\0cAlternateFileName0_B_var_cAlternateFileName0defineK0FILE_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_INDEXED070 FindFirstFile0 lpFileName20lpFinfFileData@0WIN32_FIND_DATA0 FindNextFilehD0 hFindFile0 FindClose0INVALID_HANDLE_VALUE0_B_var_INVALID_HANDLE_VALUE0 SeacrhFiles0Res0 hSearchFiles"60_B_var_SearchFiles'0 _B_var_Set0hSearchu0 File_DataH0FileData 0Aa{\0INVALID_FILE_HANDLEa0 _B_var_Call0 dwSearchResA0 _B_var_Untilٰ0 _B_var_Loop0 _B_var_EndF0 SeachPath.d0 SearchPath.0 SearchPathA 0 KraModule9KL0_B_var_KraModule90_B_var_SearchPath0_B_var_INVALID_FILE_HANDLE0_B_var_SeacrhFilesf0 _B_var_AliasZ0_B_var_AddToMruF>0_B_var_Filenamer0 SearchPath10 GetLastError0dwError0 _B_var_Next'o0bIgnoreWorkbookDeactivateħ0SetIgnoreWorkbookDeactivate0bNewVal0 _B_var_bIgnoreWorkbookDeactivate>0"_B_var_SetIgnoreWorkbookDeactivate0_B_var_KraModuleEventsg0 %')+@@ 0* pHd KRaProje ct< Excel Add@-In@ *RaEx celAd-InF=    {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 A5E556BD2-F320-4459-8A44-EBD5F18AD49IfDOCUME~1\MAXIMSLOCALTemp\VBE\T.exd  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:ABCEnabled ,&K3@C78BL ?@09A-;8ABK OnDropPriceLists @K3@C7:0 ?@09A-;8AB>2 87 A8AB5<Kq VBE6.DLL S  'l3H7yF,(j@IWorkbook Workbook_OpenWorkbook_AddinInstallWorkbook_AddinUninstall @ *Workbook_AddinInstall ). Workbook_Open 10(jtOW"WzR:ׯC;P& 10.0 V6y%tO2GAy 10,0C;TNTb zuOab哸Jg^)@ ,,d(8H\f33G8t ',HbC5gĤIx8<gĤIx8<a Close 1.001TIBHѝ;1c(Keai+EwPC_-,}i_x[lI諴P  version  00t (8HXl=O!Ic>L4"DpySn &5@A8O OnVersion &=D>@<0F8O > 25@A88Module1KraModuleExt10 KraModuleExt986L=eևFp 1 SHBrowseForFolder shell32 SHBrowseForFolder ""H SHGetPathFromIDList SHGetPathFromIDList FindCloseA "#h lstrcat kernel32 lstrcatA $$  SelectFolder  @0?:0 4;O 703@C7:8 ?@09A-;8AB>2:  2 F *.xls1 FF p5 =0945=> =8 >4=>3> ?@09A-;8AB0. 01>B0BL =5 ?>;CG8BAO. i U"G#H ;y+FIPXb Fc F  iiRyJF75꩙aǩ+Oh   P@4, ,4 0 FindFirstFile FindFirstFileA $q*(  FindNextFile FindNextFileA $9+H  FindClose [ $#h  SeacrhFilesWIw/(dO.M P@4, ,4 0 P@4, ,4 0 SearchFiles \*.xls P@4, ,4 e0\cQLf\;m4{g&AZUp#Sr0JXQȦE1uB P@4, ,4 0 FindClose $   K*srU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~