ࡱ> rg  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqstuvwxyz{|}~Root Entry FRCp& DWorkbookF_VBA_PROJECT_CUR" p& VBA ʇ  0\pmshuff Ba= ThisWorkbook֯=8X@"1Helv1Helv1Helv1Helv1Helv1Helv1Helv1Helv1Helv1* MS Sans Serif"$"#,##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\);_(* "-"??_);_(@_)                  &        (@@  (@ @  (  (@@  (@ @  (@  (@  (@  (@  (@@  (@ @      (@@  (@@  h@ @D  h@ D  h@ D   (@ @    (   (@   (@  (  (  (@  ( @  @  (   (@  @  @  @@   (@  ( @      (@ 8 ``i̜̙3f3333f3ffff333ff333f33f33BBB\`*]Choices`Module2aModule1 STR_WORK.XLSSTR_WORK#FirstCty :#Period ;;?# StateData ;5Y;Z$Anderson County, TX Z7Alabama AL?l@Q@Z7Alaska AK@"@9@Z7Arizona AZ@H@.@Z7Arkansas AR@p@R@Z7California CA@`@L@Z7Colorado CO @0w@O@Z7Connecticut CT"@@W@ @Z7Delaware DE$@C@@Z7 DC DC&@1@?Z7 Florida FL(@|@Q@Z7 Georgia GA*@{@c@Z7 Hawaii HI.@0@@Z7 Idaho ID0@3@F@Z7Illinois IL1@@^@Z7Indiana IN2@t@V@Z7Iowa IA3@@Y@Z7Kansas KS4@0@@Z@Z7Kentucky KY5@u@^@Z7Louisiana LA6@i@P@Z7Maine ME7@B@0@Z7Maryland MD8@\@8@Z7Massachusetts MA9@`n@T@Z7Michigan MI:@q@T@Z7Minnesota MN;@0@V@Z7Mississippi MS<@`@T@Z7Missouri MO=@@@]@Z7Montana MT>@\@L@Z7Nebraska NE?@y@@W@Z7Nevada NV@@6@1@Z7New Hampshire NH@@G@$@Z7New Jersey NJA@@^@5@Z7 New Mexico NMA@Q@@@Z7!New York NYB@pu@O@Z7"North CarolinaNCB@c@Y@Z7#North Dakota NDC@`a@J@Z7$Ohio OHC@ps@V@Z7%Oklahoma OKD@@z@@T@Z7&Oregon ORD@G@B@Z7'Pennsylvania PAE@Pv@P@Z7(Rhode Island RIF@(@@Z7)South CarolinaSCF@@V@G@Z7*South Dakota SDG@ `@P@Z7+Tennessee TNG@ r@W@Z7,Texas TXH@@p@Z7-Utah UTH@F@=@Z7.Vermont VTI@9@,@Z7/Virginia VAI@`h@a@Z70Washington WAJ@@Y@C@Z71West Virginia WVK@@h@K@Z72Wisconsin WIK@@@R@Z73Wyoming WYL@J@7@Z74Custom Peers ZXX@Z75Custom ZZX@Z;@ @Z<@+@Z=@@`7@Z>B@B@Z?@N@@N@ STRATEGY.XLMSTRATEGY#GetColumnHeadersY&!  ; : :Chan clearrange  ; dbquery! DefaultPath: : GetAppTitle GetListINIFile:* lst.Institutions;!MaxInsts<RRRR" mc01.Choices:)'mc01a.SelectState:5(mc01b.SelectMarket:<)mc01c.MarketPortion:?$mc02.BuildFile:I# mg01.Supports:$mg02.CountySet:%mg03.SelectInst:+%mg03a.CloseChan::&mg03b.SelectInst:>)mg04.SelectMktTotal:R$mg05.SelectAll:`%mg05a.CloseChan:k" mg06.Restart:|'mg07.RetrieveList:# mg08.SaveList:%mg09.DeleteList:)mg10.DeleteFromList: mg11.Setup:" mg12.Globals:$mg13.Registers:&mg14.Unregisters:'mg15.Reinitialize:%'mg16.GetStateData:4$mg17.GoToExcel:R! mg18.Return:Y'mg19.UpdateConfig:a# mnu.Build;" mnu.Edit; " mnu.File; % mnu.Options;$ mnu.Return;NR3! ProgramPath:# RegFindWindow:# RegFindWindow:(RegGetActiveWindow: RegGetPPI: RegGetPPS:&RegGetWindowText:" RegModHandle: RegMsgBox: RegWinExec:! RegWritePPS:SaveList ~sql_statement{select inst, str(fs001/1000) from c:\strategy\data\kyyefs.dbf where inst<>'COUNTY' and (fs001>=21001912 and fs001<21001913)State StateCrit:A StateData: StateList:0% syr.Choices;% syr.Choices;? 'syr.InstsChoices!R2C1:R9AbC1# syr.InstStart:# syr.StateList: syv.Bar'syv.Chan'syv.ChoicesSheet.:'syv.ChoicesSheet.: syv.Count syv.Count23syv.CustomPathC:\STRATEGY\CUSTOM\9 syv.DataBaseQ:\Strategy\Data\TXYEFS.DBF/ syv.DataPathQ:\Strategy\Data\$ syv.FieldNameSI001 syv.HighDate_:syv.InstitutionAMSOUTH BK " syv.LastQtr20081$syv.MacroSheet:$ syv.MaxValue FA$ syv.MinValueFA)syv.NC`&  b@6 syv.NewNameAMSOUTH BK )syv.NR`' @&syv.PrevAppTitle: -syv.PreviousDoc BUILDMKT.XL5"syv.PreviousMenu&-syv.ProgramPath Q:\Strategy\'syv.ProgressSheet:# syv.SheetName:&syv.SupportSheet:&syv.SupportSheet:; syv.TargetDBC:\STRATEGY\CUSTOM\ZZ5QSI.DBF" syv.Workbook:* ud01.SelectState;+ ud02.SelectMarket; , ud03.MarketPortion;) ud04.SelectInst;#& ud05.AddMore;'.' ud06.AddMore2;28* ud07.SaveChoices;<A) ud08.DeleteInst;EJ$ ud09.Setup;NX# udv.AddChoice:)$udv.AddChoice2:4$udv.CustomPath:Q" udv.DataPath:P%udv.Institution:## udv.InstToDel:J udv.Market:'udv.PortionChoice:%udv.ProgramPath:O udv.State:UpOne: WorkString:8`i  InstitutionCodeStateName As GENERIC CODEUDDsMENUsLISTSLABELSCODENOTESITEMxyHeightWidthTEXTD/R Menu Name Macro Name Status BarHelpcommand, primary Auto_Open Called by: command, sub mg01.SupportsCalled by: mc01.Choicesud01.SelectStateWin3.0a&File Institutions&Newmodule1!mg06.Restart*Delete current definitions and start again Turn echo off Select State: &Open Listmodule1!mg07.RetrieveList!Open a previous market definitionRegister API functionsIs Q+E running?OK &Save Listmodule1!mg08.SaveList"Save the current market definitionOpen supporting sheetsIf not, start it.Cancel &Delete Listmodule1!mg09.DeleteListDelete a previously saved listSet the appropriate pathsSTR_WORK.XLS!R2C1:R54C1-Read ini file settingsE&xitmodule1!Auto_CloseExit Build Marketsyv.PrevAppTitleFind the application titleIf Q+E did not executeActivate the choices worksheetActivate Excelud02.SelectMarket&EditAlert the user&Addmodule1!mc01.ChoicesAdd to definition listSet the application name Shut downSelect Market:&Deletemodule1!mg10.DeleteFromListDelete from definition listDetermine active menuEnd If Q+E did not executeDetermine name of this workbook Open STR_WORK&BuildAdd new menu barmodule1!mc02.BuildFileBuild a new market Add file menu Add edit menu&OptionsAdd build menuud03.MarketPortionSe&tupmodule1!mg11.SetupSpecify paths for filesAdd options menu Go to E&xcelmodule1!mg17.GoToExcelShell out to ExcelActivate menu bar Selection:Return menu optionmg02.CountySet&Individual InstitutionReturn to Market &Buildermodule1!mg18.ReturnReturn to Market Builder Auto_Close &Market TotalOpen channel to Q+E&All Institutions+Select county name and number from databaseTurn error checking offPaste list into STR_WORKDelete new menu Close queryShow previous menuTerminate the channelActivate STR_WORKud04.SelectInst"Select the top of the county rangeSelet the bottom cellSelect Institution:Select entire county rangeDefine the county listActivate this workbookMark file as savedUnregister API functionsReactivate Choice worksheetReset the application title#If macro sheet activated, close it. ud05.AddMore mc01.Choicesmg03.SelectInst)Add Another &Institution From This MarketClear institution listAdd From A Different &MarketDefine Database&No More AdditionsEnable file new command Find highest date in period listActivate Choices worksheetConvert highdate to YYQ formatSelect upper leftDefine minimum value for searchDefine maximum value for search Toggle echoOpen a channel to Q+E ud06.AddMore2$Determine the range of active statesSelect institutionsSet the value in the dialogPaste results to macro sheet Get the currently selected stateDetermine number of institutionmc01a.SelectStatePresent state dialogmg03a.CloseChan Close channelTest for cancelTerminate channelmg03b.SelectInstInitialize institution choiceGet appropriate countiesAsk which institutionHas the selected state changed?Set the selected county to 1Paste name to Choices worksheetud07.SaveChoicesmc01b.SelectMarketPresent market dialogPaste code to Choices worksheet Paste state to Choices worksheetSave Don't Save Initialize choiceAsk for next movePresent market portion dialogDo you want to savethe current selections? Reset choice%Test for single institution selectionTest for market total selectionTest for same marketud08.DeleteInst Test for entire market selectionDeleteTest for different marketClosemc02.BuildFile-TEXTREF(EVALUATE(syv.SheetName&"!syr.Insts"))'Make sure institutions have been chosenmg04.SelectMktTotalExit the procedure ud09.Setup Open channelOpen the progress bar sheet5Update the screen so the user knows there is progressTurn screen updating offProgram files:Select the progress bar Data files:Make sure the bar is clear Custom files:Clear the percentage indicator$Please specify the setup informationSelect the upper left corner&for The Bank Strategist Market BuilderUpdate the screen Initiate loopmg05.SelectAllActivate the progress sheetSelect the portion to update$Change the pattern to red foreground%Update the percent complete indicator!Select the upper left hand cornerDefine Field NameOpen new worksheetTurn error alerts offSave with temporary filenamemg05a.CloseChanTurn error alerts onInitiate second loop Begin loopDefine target DBDefine institution for search Repeat loop Determine number of institutionsDetermine number of columnsPaste column headingsCount # of records retrieved Check for five records retrieved*Paste the new name in for each institution mg06.RestartCalled by: File menu"If there are institutions selected>Prompt the user to save with yes, no, cancel and question icon"If user answers yes, save the listTurn screen echo off<If the user canceled or the list didn't save, stop execution&If user presses cancel, stop executionActivate temporary worksheet Select B2Initialize loop countermg07.RetrieveListIncrement counter)Change first five characters of 001 field Move down oneSelect sort rangeSort by key and institutionAdd Market total lines Add codes for market total lines Calculate total for first column mg08.SaveList)Select all market totals to be calculatedCopy formula across#If the choices sheet is not open... RecalculateSelect market totalsStop the routineCopy entire rangeEnd the if statementPaste values onlySelect data rangeSelect column BExpand column BSelect column AExpand column AGive Market Total correct nameCall the SaveList functionSelect entire rangeName as DatabaseDisable error checkingmg09.DeleteList Save fileIf unable to save the file...#Prompt the user for files to deleteEnd the if loop Close file Turn error onmg10.DeleteFromListCalled by: Edit menuDelete temporary file Move to nextActivate the progress screen$If the are no institutions listed...Close itCancel the routine mg11.Setup"Set the value for the program pathSet the value for the data path!Set the value for the custom pathDisplay the setup dialog!If user pressed cancel, then quitReturn the program pathAppend a "\" if necessary$Return list of files in program pathIf n/a, path does not existsRestart the setup processEnd the if comparisonReturn the data path!Return list of files in data pathReturn the custom path#Return list of files in custom pathUpdate the program path nameUpdate the data path nameUpdate the custom path nameWrite changes to ini file mg12.Globals+Is strategy.xlm open? If yes, returns true syv.SheetNameMacro sheet namesyv.MacroSheetModule1syv.ChoicesSheet.ChoicesName of choices worksheetsyv.SupportSheet STR_WORK.XLSName of support sheetsyv.ProgressSheet PROGRESS.XLS DefaultPathPath for the macro sheetINIFileSet name of ini filemg13.RegistersOperating system being used!Is the user running 32-bit Excel?8An error occurs if not a 32-bit version of Excel running Register the MessageBox function%Register API call for GetModuleHandle&Register API call for reading ini file%Register API call for writng ini file'Register API call for finding app title2Register API call for finding active window handle Register API call for FindWindow(Register API call for executing programs'A 32-bit version of Excel is being used RegMsgBox RegModHandle RegGetPPS RegGetPPI RegWritePPSRegGetWindowTextRegGetActiveWindow RegFindWindow RegWinExecmg14.Unregisters"Unregister the MessageBox function'Unregister API call for GetModuleHandle/Unregister API call for GetPrivateProf<|ileString,Unregister API call for GetPrivateProfileInt1Unregister API call for WritePrivateProfileStringmg15.ReinitializeChecks existence of ini fileIf ini file does not exist...&Alert the user the file does not existExit the program!End if ini file does not exist...syv.ProgramPathRead program path syv.DataPathRead data pathsyv.CustomPathRead custom data path StateListRead list of available states!Update the state data in str_workmg16.GetStateData$Set statecrit to first value in list"Initialize the WorkString variable WorkStringStore the WorkString variable!If the workstring's length > 0...Find a comma in the StateList"Extract the next state in the listAppend to StateCritAdjust the WorkString variable9If WorkString is an error value, replace with null string Loop back Append custom market to criteria StateCritStore the StateCrit variableIf the wildcard was usedSelect all state data Otherwise...!Select the appropriate state data End the if wildcard used segmentPaste the info into str_work Find the number of rows returnedClose the channelActivate str_workSelect the state data"Assign name StateData to selectionmg17.GoToExcelCalled by: Options menu mg18.ReturnCalled by: Return menumg19.UpdateConfig!CALL(RegFindWindow,"QEAPP","Q+E") IF(UpOne=0) CALL(RegWinExec,"QE",2)END.IF() IF(ISERR(F9)) APP.ACTIVATE(,FALSE)! ALERT("Unable to open Q+E.",3) GOTO(F16)ChanxINITIATE("QE","SYSTEM")EXECUTE(Chan,"[OPEN(""SELECT County, Cty_Num FROM dBASEfile|"&syv.ProgramPath&"COUNTIES.DBF WHERE State="&INDEX(TEXTREF(syv.SupportSheet&"!StateData"),udv.State,3)&""")]")BEXECUTE(Chan,"[FETCH(EXCEL,"&syv.SupportSheet&",CountyList,ALL)]")EXECUTE(Chan,"[CLOSE()]")TERMINATE(Chan),SET.NAME("syv.Chan",INITIATE("QE","SYSTEM"))EXECUTE(syv.Chan,"[OPEN(""SELECT INST, STR(FS001/100000) FROM dBASEFILE|"&syv.DataBase&" WHERE (INST<>'COUNTY ') AND (FS001 >= "&syv.MinValue&" AND FS001<"&syv.MaxValue&")"")]")EXECUTE(syv.Chan,"[FETCH(EXCEL,"&syv.MacroSheet&","&REFTEXT(syr.InstStart)&":"&REFTEXT(OFFSET(syr.InstStart,500,0))&",R1:R500)]"):SET.NAME("syv.NR",COUNTA(OFFSET(syr.InstStart,0,0,500,1)))EXECUTE(syv.Chan,"[CLOSE()]")TERMINATE(syv.Chan)Module1!lst.InstitutionsEXECUTE(syv.Chan,"[OPEN(""SELECT INST, STR(FS001/100000) FROM dBASEfile|"&syv.DataBase&" WHERE (INST<>'COUNTY') AND (FS001 >= "&syv.MinValue&" AND FS001 < "&syv.MaxValue&")"")]")(SET.NAME("Chan",INITIATE("QE","SYSTEM"))q EXECUTE(Chan,"[OPEN(""SELECT * FROM dBASEfile|"&udv.ProgramPath&"STATES.DBF WHERE St_Abbr="&StateCrit&""")]")EEXECUTE(Chan,"[FETCH(EXCEL,"&syv.SupportSheet&",R2C1:R52C5,R1:R51)]")m EXECUTE(Chan,"[OPEN(""SELECT * FROM dBASEfile|"&udv.ProgramPath&"STATES.DBF WHERE St_Abbr LIKE '??'"")]")IF(LEFT(StateCrit,4)="'??'")ELSE()c dbquery("SELECT * FROM "&udv.ProgramPath&"STATES.DBF WHERE St_Abbr="&StateCrit,STR_WORK.XLS!A2)'%%' OR St_Abbr='ZZ' EXECUTE(syv.Chan,"[OPEN(""SELECT * FROM dBaseFile|"&syv.DataBase&" WHERE (INST='"&syv.Institution&"') AND ("&syv.FieldName&" >= "&syv.MinValue&" AND "&syv.FieldName&" < "&syv.MaxValue&")"")]")6 SET.NAME("syv.NR",REQUEST(syv.Chan,"NUMROWS"))6 SET.NAME("syv.NC",REQUEST(syv.Chan,"NUMCOLS"))e IF(syv.Count2=1,EXECUTE(syv.Chan,"[FETCH('EXCEL','0000TEMP.XLS','R1C1:R1C255','/HEADERS')]")){ EXECUTE(syv.Chan,"[FETCH('EXCEL','0000TEMP.XLS','R"&(syv.Count2-1)*5+2&"C1:R"&(syv.Count2-1)*5+6&"C255','R1:R5')]") STEP() c:\strategy\c:\strategy\data\c:\strategy\custom\BRAZOS VALLEY BK NA 48041.20064FIRST NB-BRYANTEXAS ENTERPRISE BKBSET.NAME("syv.HighDate",MAX(INDIRECT(syv.SupportSheet&"!Period")))PSET.NAME("syv.LastQtr",YEAR(syv.HighDate)*10+(INT((MONTH(syv.HighDate)-1)/3)+1)) 1073FIRST BK-MULESHOE 48017MULESHOE ST BK + +Y4,,,X-U..S/:00Qy12o23/45] 5) 6 7 /8 9j 9}:N;<x<W=<>?@nAcBC]C_DEmFtG`G'\HIeaJ KgL=L6M~NpOOPQ?QgTV X 6Zocc 0 __  dMbP?_*+%MHP LaserJet 4 Plus!  bbk@w XXkT0rbxb}! 0 @MSUDHP LaserJet 4 Plus<d "dX??U} #}  } # Institution( ( ( ( (9j8>@ 7 Sheet1 0&A Page &PMHP LaserJet 4 Plus33f3"!3f@w XX21001913)&@MSUDHP LaserJet 4 Plus<d "dXX??> d @0 @glډۣ<*7SBD  dMbP?_*+%&f Page &pM Brother DCP-8065DN Printer8  ndXXLetter  PRIV $% D''''4[d| pX7 '''' ,@MARK-VAIOENGLISHBRMS205A.EXEBRLMF05A.DLLBRB2F05A.DLLBO8065DN.INIdAArialdmshuffBRLMF05A.DLLEOSC"d??U} } U7} } } } *9} } } } } * } }  } U} } g     $ $ $ $ ($    %    %            %    %%%% %%% " # '% " # '%      % .../% ( %%%  x@Y@  ~ @% 0! ,", ,# ,%  %BW '$ %BT %@$@@    % % & ,', ,( ,%  % ##B *) %%  ,*%?p@9@V@    + % , ,-, ,. ,% % #B */ %%  ,0%@p@N@V@    1 % 2 131 ,4 ,% %  #"B *5 %%  ,%$.@6@9@@k@N@  6~ F@% 7,,,,% %    #%B *8 %%  ,%   % 9 -: - -; -% % +< m  # BThe Bank Strategist *= %%  ,> %   % % %    CHBg *? %%  ,@ % A   % B .../% % *%%  ,C %  x@Y@  ~ @ % 0D ,E , ,F ,% % ? )"The Bank Strategist Market BuilderB *G %%  ,H % @$@@  I % J -K - -L -% %1syv.PreviousMenuBBX *M %%  ,N%?p@9@V@    +%% %. syv.Workbook#^BX *O %@*C`BA~C\C`BB P%@p@N@V@    1 % Q.../% %( syv.BarBBX *R%%$.@6@9@@k@N@ ( mC_ !CountiesSTR_WORK.XLS!Counties~ "@% 3Q -S- -T -% %$?CF#,B *U%% % % %$@CF#+B *V%%  % W.../% %$@CF#*B *X%% Y     % Z ,[, ,\ ,% %$@CF#-B *] %B7%  x@Y@  ~ @% ^ -_- -` -% % CFB *a%%$,@D@0@@j@@P@  b % % %B7 2%%~ &@  ~ % c.../%%% " #d '%~ (@   e % f -g- -h-&& " #i '%%~ (@   j %%  k%~ (@   l %BW '$ %  m%?@p@6@V@    + %BT *n %  o%@@p@G@V@    1 %CFA *p %  q% % C[B *r %  s% %*%7!#C_ !CountyList"B % u     %*% {#SELECT County, Cty_Num FROM C\COUNTIES.DBF WHERE State=C_ !StateData"CuB:B%  @~@Y@  ~ @%Dlj*@  '.2  !"#$%&'()*+,-./0123456789:;<=>? *% ! C`Bg t % @$@@  x %!*%4!"C_ !FirstCty"Bm !v!%!?w@9@V@ !  ! + !%"*%"#" "w"%"@w@N@V@ "  " 1 "%### CbBg #*{ #%A#$+C_ !FirstCty"B:!^BBm #y#%$#.@6@9@s@N@ # ~ #?#%$$$ #$B $*} $%%$%Counties"= $z$%$%%%% CYB %* %%%&" %|%%%%&-&&D# BB &* &%&' CbBg &~&% & &  & & %'''B7 '2%'( CIBg '?'% ' @T@ ' ~ '@'% (%(+B7 (%$(,@$@@v@@P@ ( b (% )" )# )')%)%~ )&@)  ~ )@)%*%*%~ *(@*  *  *%++,BW +'$+% +" +# +'+%~ +(@+  +  +%,,- #B ,*/,%%~ ,(@,  ,  ,%-'--CFB -* -%7-.!C^!lst.InstitutionsBb -!-%-?Py@(@W@ -  - + -%.$..ChoicesBg .*.%./ syv.DataBaseC_ !StateData"CuBZZ  #L #NBC_ !StateData"CuBYEFS.DBFBX .!.%.@Py@B@W@ .  . 1 .%/!/1 R2C1Bm /*/% / /!/%/%0*% 0 0!0%0%1#1@1 BWBW 1*1%D12.#SELECT MAX(FS001) FROM CM$2B 1!% 1 1  1 1 %2W28s 3AC_!States"C_!States"B"NBSTR_WORK.XLS!R2C1:R54C1 2*2%2@A2!% 2 @Q@ 2 ~ 2@2%3#33 #ED2Al 3*3%434 syv.LastQtrD2BtBX 3!%$3,@$@@v@J@ 3 b 3%44F@4Cu 4*4%45{ syv.MinValueC_!St_No"CuBNחAC_ !FirstCty"CrBNj@CRBX 4!4%~ 4&@4  ~ 4@4% 4 4 5+55#cA 5*5%256 syv.MaxValueCUBX 5!5%~ 5(@5  5  5% 5 56067D5  B7B 6*6% 6 6!6%~ 6(@6  6  6% 6 6778A 7*7% 7 7!7%7?Py@(@W@ 7  7 + 7%8#89 @#B 8*8% 8 8!8%8@Py@B@W@ 8  8 1 8%9%9:CuD4B 9*9% 9 9!9%9%:%:;@#rAl :*:% : : :!:%:%;;<A ;*% ; ;!;% ;; % <+<@<#dA <*<%$<=## B<!% < t@U@ < ~ <?<%=0==D<  B7B =*=%=>#$SELECT INST, STR(FS001/100000) FROM CM) WHERE (INST<>'COUNTY ') AND (FS001 >= CU AND FS001<CT):B =!%=?@j@@Y@ =  =  =%>>>A >*>% >!>? #pAl >!>%>@@j@>@Y@ >  >  >% ?+!?? #sAl ?* ?%?@@#fA ?!?%?@@j@K@Y@ ?  ? 1 ?%DlxXJwBD{R@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@+@@@#eA @*@%.@AD? B7B @!@%@@"@$@ @  @  @%A0AAD@  B7B A*A%VAB@#DCpBNCI!R#ABC1"B` A!A%A@"@<@ A  A  A%BBBA B*B%VBC@#DCpBNCH!R#ABC4"B` B!B%%C4CCCs  #"B C* C%CDyC_ !StateData"CuBC_ !FirstCty"CrBNCH!R#ABC2"B` C!C%%D4DDCs  #"B D* D%`DEJC_ !StateData"CuBCH!R#ABC3"B` D!D% DD %E4EECs  #"B E*E%#E@F BWBW E!E% E @@c@ E ~ E@ E%FFFB7 F%F@G#gA F!F%F@*@ @ F  F  F%G%"GH DF B G!G%G?0{@$@V@ G  G + G%H%;HI%@C^!lst.InstitutionsBb H!H%H@0{@A@V@ H  H  H% I" I# I'I%%IJ@#sAl I+I%$I,@.@?@y@[@ I  I%J%JKA J!%$J.@:@G@x@U@ J ~ J@ J%K'KK#AB B K+K%4KLCl  #"B K!K% K%LFLL0@"No institutions have been selectedBv L+CL%7LM!C^!lst.InstitutionsBb L!L% L&M MM @B7 M+M%!MN #sAl M+M% MM %NNNA N+%4NOCl  #"B N!N%%O O O+ O%)OPB7 O)%O@a@O@@s@ O  O O%PJPQ4 PROGRESS.XLSBA~C\C]BB PP%PP%P@a@U@@s@ P  PP%QQR C]Bg Q+Q%Q%Q@a@Z@@s@ Q  QQ%RRSBW R+R% R" R# R'R%R@0@P@ R  R  R%S7ST!C] !ProgressBar"Bm S+S%%S@D@V@ S  S  S%T#TT BT T+T%CTT-COUNTY Choices!R#ABC1B`FTU0COUNTYCH!R#ABC1"B` T!T%T@5@[@ T  T  T%U+UUC]!Box6B` U+U%CUU-COUNTY Choices!R#ABC1B`lUVVC_ !Counties"CrB TOTALAqCH!R#ABC4"B` U!U%U@F@ @ U  U  U%V!VV R1C1Bm V+V%mVVW9CuB9CrBN Choices!R#ABC2B`VWyC_ !StateData"CuBC_ !FirstCty"CrBNCH!R#ABC2"B` V!V%V@F@7@ V  V  V%WWWBW W+W%MWW79CuB Choices!R#ABC3B``WXJC_ !StateData"CuBCH!R#ABC3"B` W!W%W?v@@V@ W  W + W%XXXBW X+X%#X@Y BWBW X!X%X@v@?@V@ X  X 1 X&Y/YY syv.CountB Y+Y%Y@Z#hA Y!Y%YZ#ZZ @C]Bg Z+Z%!Z[ #sAl Z+Z%Z[3[[@BoxCJBm [+[%.[\DY B7B [![%[\'\\@BT \+\%4\]Cm  #"B \!\%\]B]],ACJ C]!Box6"B` ]+ ]%)]^B7 ])%]^%^_@R1C1Bm ^+^%^%^_ _` @BW _+_%_%_Dl8fW_`abcdefghijklmnopqrstuvwxyz{|}~` `a @BW `+`% `" `# `'`%`aaby@ syv.FieldNameCJ&1<HTFS001=FS0011CP01&CP01SI001SI001"dBX a+a%%ab!bb @Bw b+b%Nbb8 syv.DataBaseCN9CuBYEFS.DBFBXbc syv.DataBaseC_ !StateData"CuBZZ  #L #NBC_ !StateData"CuBYEFS.DBFBX b!b%bc cc @BT c+c%4cc syv.HighDate9BBXEcd/ syv.HighDateC_!Period"BBX c!c%cd,dd@0000TEMPB d+d%Nde8 syv.LastQtr CPAECPADABX d!d%deee@ syv.DataBase#ABZZ  #L #NB#ABCJ,;JYhYEFS.DBFN5QFS.DBF?YECP.DBF05QCP.DBF!YESI.DBF5QSI.DBFBdBX e+e%leeV syv.MinValue9CuB.A9CrBNCRBXef{ syv.MinValueC_ !StateData"CuBחAC_ !FirstCty"CrBNj@CRBX e!e%ef\ffF@9SELECT * FROM CM[0000Temp.XLS]Sheet1!R1C1"B f+%2fg syv.MaxValueCUBX f!f%fg gh @BT g+g% g g!g%gh:hi$@ syv.Count2#ABB h+h% h h!h%hiij@ syv.DataBase#ACKBZZ  #L #NB#ACKBCJ,;JYhYEFS.DBFN5QFS.DBF?YECP.DBF05QCP.DBF!YESI.DBF5QSI.DBFBdBX i+i% i i!i%ijjk@ syv.TargetDBCLZZCJ,;JYhYEFS.DBFN5QFS.DBF?YECP.DBF05QCP.DBF!YESI.DBF5QSI.DBFBdBX j+j% j j!j%jkaklK@syv.Institution#ACKB #ACKBA ABX k+k% k k k!k%kl]lmG@ syv.NewName#ACKB #ACKBA ABX l+% l l!l%lmHmm2@ syv.MinValue#ACKBj@BX m+m%mn#$SELECT INST, STR(FS001/100000) FROM CM) WHERE (INST<>'COUNTY ') AND (FS001 >= CU AND FS001<CT):4B m!%mn<nn&@ syv.MaxValueCUj@BX n+n%5no syv.Count# BB n!n%no o o+o%Vop@#DCJBNCH!R#ABC1"B` o!o%op p p+p%Vpq@#DCJBNCH!R#ABC4"B` p!p%pq q q+q%qryC_ !StateData"CuBC_ !FirstCty"CrBNCH!R#ABC2"B` q!q%qr r r+r%Mrr79CuB Choices!R#ABC3B``rsJC_ !StateData"CuBCH!R#ABC3"B` r!r%rs s s+s%#s@t BWBW s!s%st t t+%tuA t!t%tu%u@v#hA u!u%uvvv@#SELECT * FROM CM WHERE (INST='CQ') AND (CO >= CU AND CO < CT)0000TEMP.XLS!RCKC1:RCKC255"B v+%7vw!C^!lst.InstitutionsBb v!v%vww@wn@ 0000TEMP.XLS!CKB: 0000TEMP.XLS!CKB"B w+w%!wx #sAl w+w%wxxx@Dw Institution: CQ AoDw& records were retrieved rather than 5. AoPlease check institution name.BvB x+x%.xyDu B7B x!x%xyTyy>ACW 0000TEMP.XLS!CKB"B` y+y%4yzCm  #"B y!y%yzTzz>ACW 0000TEMP.XLS!CKB"B` z+%)z{B7 z)%z{T{|>ACW 0000TEMP.XLS!CKB"B` {+%{%{|T|}>ACW 0000TEMP.XLS!CKB"B` |+% |" |# |'|%|}T}~>ACW 0000TEMP.XLS!CKB"B`}+%%}~.~~@CG [CLOSE()]A ~+ ~%~BW ~'%~@A + %'#AB B *%Dl[/v<*yeNW&  @BW + %dh@R@C81Do you want to save the current group definition? Save Group#B *%# @C]Bg + %'@D B *%/@BoxCJBm + %#@ @#B *%'@BT + %9#@D@B7B *%>(ACJ C]!Box6"B` + %@A *%%@R1C1Bm + %5@D  B7B *%  @BW + %A *%  @BW + % CHBg *%-@ 0000TEMP.XLSBg + %%R2:R1000"m %%@R2C2Bm + %"4 %%@$Al + %! R2C1Bm %N8@D#AB  D$A5B + %B7 %7!@MpBA_j@A'B` +%%&@R[1]CBm +% " # '%" @$A5 +%%7!@R2:R#ABBm + %BW '%1@C2C1B' + %I3#AB  $A5ChoicesbgB *%fP@ZZZMARKET TOTALR#ABC1:R#ABC1Bb + %@#iA *%B,@=R2C2R#ABC2B` + %0D  B7B *%S=@=R#ABC2R#ABC2B` + %4D  #"B *%WA@=R#ABC2R#ABC2B` +%*%WA@=R#ABC2R#ABC2B` +%*% WA@=R#ABC2R#ABC2B` +%*% [E@ =SUM(R2C:R#ABC)R#ABC3B` + %*%pZ@=SUM(R#ABC:R#ABC)R#ABC3B` + %*%t^@=SUM(R#ABC:R#ABC)R#ABC3B` + % # B$*%t^@=SUM(R#ABC:R#ABC)R#ABC3B` + %'CFB *%t^@=SUM(R#ABC:R#ABC)R#ABC3B` + %B7 %V@@R#ABC3:R#ABC255Bm +%%@B8 +% " # '%@B +%%L6@R#AB:R#ABBm + %BW '%D|lq\xN@B2 + %'#AB B *%(@B5 + %C-@There is no active list to saveBv *C%A+@R2C1:R#ABC255Bm + %  @B7 *%1@C2C1B' + %A *%# @C2Bm +%*%$@B/ +%*%# @C1Bm + %*%$@B/ + %*%3@ ZZZMarketMARKETB + %*%A+@R1C1:R#ABC255Bm + %*%@B% +%*%  @BT + %(@#;#ABB * %&@Ca B + % $B7 %&@CvAB +%%?@C8Unable to save the file: AoCaAq Ao Ao#Please ensure the directory exists.The Bank StrategistB +C% " # '%@A +%%  @B + %BW '%  @BT + %" *.lstB *%-@ 0000TEMP.XLSB + %B7 %A +%% C]Bg +% " # '%3DAA& BB +%%CGA + %BW '% CHBg * %'#AB B *%B7 %N8@*There are no active institutions to deleteBv *C% %  @B7 *% %A *% %@#jA *% %0D  B7B *% % CHBg *% %(RCq"m *% %"6 *%DClSTSTcqNVMIycvJC>P?H%A+ syr.ChoicesCH !R2C1:R501C4"BX *%%! R1C1"m *%%B7 %%%% " 5 '%%%%BW '% %&#tC\ApAl * % %&#oCNApAl *!% %&#nCLApAl *"% %"@#kA *#% %0D  B7B *$% %4lmCt c:\strategy\ *%% %E/CtBt\#tD\AlB *&% %&mCtNULBNUL. *'% %" DAB *(% %='@Invalid program directoryBv *C% %" @$A5 *)% %A **% %4mCoc:\strategy\data\ *+% %E/CoBt\#oD\AlB *&% %&mCoNULBNUL. *,% %" DAB *(% %:$@Invalid data directoryBv *C% %" @$A5 *)% %A **% %4mCnc:\strategy\custom\ *-% %E/CnBt\#nD\AlB *&% %&mCnNULBNUL. *.% %" DAB *(% %<&@Invalid custom directoryBv *C% %" @$A5 *)%D5 lgGBFB\\\Tfd{gXsXC]o[LdLC_o[Lf %A **% %4syv.ProgramPath#tAZBX */% %1 syv.DataPath#oAZBX *0% %3syv.CustomPath#nAZBX *1% %* #)B *2% %B7 %%%% " 53 '%%% %BW '% %2 strategy.xlmBAA& *4%% +5 8 *6%% +7 8 *6%% +9 : *;%% +< = *>%% +? @ *%% +A%  C^BAp q:\strategy *B%% +C,T C \strategy.iniq:\strategy\strategy.ini *D% %B7 %%%% " 5E '%%% %BW 7% % AWindows (32-bit) NT 5.01 ,F% %$$@32DB| ,G% %" DAB ,H% %B,@#8User MessageBoxIICCIBAl ,I% %F0@#7KernelGetModuleHandleICBAl ,J% %S=@#5KernelGetPrivateProfileStringFCCCFICBAl ,K% %N8@#4KernelGetPrivateProfileIntICCICBAl ,K% %S=@#:KernelWritePrivateProfileStringICCCCBAl ,L% %D.@#6User GetWindowTextFIFIBAl ,M%D lC^[]I<><\>>>>4k<>FeNLlp}x}      %C-@#3UserGetActiveWindowIBAl ,N% %@*@#1User FindWindowICCBAl ,O% %?)@#9KernelWinExecICIBAl ,P% %A ,Q% %E/@#8User32 MessageBoxAJJCCJBAl ,I% %I3@#7Kernel32GetModuleHandleAJCBAl ,J% %V@@#5Kernel32GetPrivateProfileStringAFCCCFJCBAl ,K% %Q;@#4Kernel32GetPrivateProfileIntAJCCJCBAl ,K% %V @@#:Kernel32WritePrivateProfileStringAJCCCCBAl ,L% %F  0@#6User32 GetWindowTextJJCJBAl ,M % %E  /@#3User32GetActiveWindowJBAl ,N % %C  -@#1User32 FindWindowAJCCBAl ,O % %A  +@#9Kernel32WinExecJCJBAl ,P % % A %% +R~ A *%% +S@ݿ *%% +T~  *%% +U~  *%% +V *%% +W *%% +X#SA *%% +Y3 *%% +Z~ *dG *% %B7 %%%% " 5[ '%%% %BW '% %+C8A *\% %+C7A *]% %+C5A *^% %+ C4A *_%D: lmjiCos{pomk9484482884<>FHHH !"#$%&'()*+,-./0123456789:;<=>? %+ !C:A *` % !%+!"C6A !*`!% "%+"#C3A "*`"% #%#'B7 #%$%$%%% %" %5a %'%%&%% '%'(BW '''% (%"() C BA (*b(% )%)* CvB )*c)% *%e*+O@C8Unable to find ini file: AoC The Bank StrategistB **d*% +% +, @B7 +*e+% ,%,-A ,*f,%-% -+gc-.Msyv.ProgramPathC5Paths ProgramPath c:\strategy\# "BX -*h-%.% .+ib./L syv.DataPathC5PathsDataPathc:\strategy\data\# "BX .*j.%/% /+kh/0Rsyv.CustomPathC5Paths CustomPathc:\strategy\custom\# "BX /*l/%0% 0+m@0r 1*C5States StateList# B%% 0,n0% 1%12 #&B 1*o1% 2%26B7 22%3%*%4% 4" 45p 4'4%5%% 6%+467#>'C@Bs'Al 6*q6% 7%+679 #wC@C@A BtAvAl 7*r7%8% 8+s 8t 8*u8% 9%+69: CwA   $@A5B 9*v9% :%+':?;@,CwB| :*w:% ;%+6;n< @Cw,CwB|A Z ;*x;% <%+_<=I@#>C> OR St_Abbr='CwCwA BtAvA'Al <*y<% =%+H=>2@#wCwCwA ,CwB|BtAl =*z=% >%+9>?#@CwA#wAlB >*{>% ?%+"?@ @$9A5 ?*|?%D lHHH<>FLIJC}I<>^`>`Qirc@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ @%+7@E!#>C> OR St_Abbr='ZZ'Al @*}@%A% A+~ A: A*A% B%+ B B*B% C%+ C C,C% D%+ D D,D% E%+PEK:@#SELECT * FROM Ct STATES.DBF:B E,% F%+ F F,F% G%+ G G,G% H%+ H H,% I%+ I I,I% J%+ J J*J% K%+_KMINRC_!B:C_!4B"BBX K*K% L%+ L L*L% M%+MN C_Bg M*M% N%+\NOFC_!B:C_!C/B"Bm N*N% O%+&OP StateData"= O*O% P%6PTB7 P2%Q%Q%R% R" R5 R'R%S%% T%+TUB T*% U%+0U@VB Strategist#.B U*% V%+0VWB StrategistB V*% W%6W[B7 W2%X%X%Y& Y" Y5 Y'Y& Z[+0[\B StrategistDUB[*\+0\]B StrategistB\*]+]^ CFB]*^+^_ CHBg^*_6_cB7_2DI la>444p44*444IP<>:PP:>HH77abcdef a" a5 a' bc+?c?d)C:Paths ProgramPath#\# Bc*d+<d?e&C:PathsDataPath#N# Bd*e+>e?f(C:Paths CustomPath#L# Be*f6ffB7f8d*WTV>j@????m (PX`& XaQ0a`& X`& X0 0XԤ`& x&<@0XX&R0& t<t 8`htqq     7 Module2R__SRP_2 p __SRP_3&@ThisWorkbook3  !"#$%'()*+,-./012456789:;<=>?@ABCDEGHIJLNOPQRSTUVWXYZ[\^_`abcdefghijklmnopqrstuvwxyz{|}~ H p I*\R4*#54*\R4*#5d*\R1*#175$*\Rffff*0=49259370*\R1*#b8*\R1*#b3*\R1*#c4*\R1*#229*\R1*#cd$*\Rffff*0A49259370*\R0*#14*\R4*#3f*\R0*#f*\R4*#3e*\R4*#43*\R4*#22*\R4*#0*\R4*#40*\R1*#c4*\R1*#b8*\R0*#f*\R4*#3f*\R0*#f*\R4*#3fGH   " (08@HPX`hpx   "  ," B(p dY?2Pw0&GetPrivateProfileStringAxMEh @99 LLLL"LPLPLLLLa `@94`B `Dy,`F B`Hld Je %`Nnc+rp`8 22@its: 14`vg `xIt 0` 55r 14`os` c@LWi@Lce` E x`pDk 14 `Dk 14 `k  14 `h H%%iov 14`r `6 @Lre@Lal `  p` P iur  ` && IL %`m `Ac+ `8(k@ i`t ian`hnt`@d ` ` C P `8 dk # n ` \kH (i hef) %  ` k4`xor `|k( C)  H In%(x @*@1 h@P pxpx p 0 Y(P pxpx p 0hHP0@\  x ` H ,P(X @@ h @ X @ T p@P X@L @ < @ , @ @  (*@x @t @d `@(`l  l /T@@P @XL @pH @D @@ @< @8 @(  8@l  ` @@h (@d @T @hD @P4 @$ @ @ Ph8f@x M@h @d @T @D f@D @x WS\s@h @d @T @D M ( 0@ P x  " $    08h px   V  * ( *H x F 2  b(  <  B   L ` p x.  6 0  \P    08*P***n  >  "      (  8 X (p   @     (  8 .H  x     @ (  ( 0 8  @ P X h  x       "  $ $ $8 $`     " 4 4  " 3 3 ( B 0  (8 &H  8`    "         08@H P`x    ( (8Xp  "   "   88 P&p 2 "       8Xx  "          ( 0 8 B @HPX ` "p "u  " 0"0( " 0 8  HX` ,h  "   & X ^8:/L*`h " p x ]P ]x ] ]  p]]]]]](]@]X]p]]]Read the configuration fileA@P&Check that something has been selected syr.Choices$R!T!V': :"No institutions have been selected Z No SelectionsA@X%|k 6Create a temporary workbook \!^.J `(b * 0000TEMP.XLS  JB@d 8 : Ea Source fileove 8 Choices$f%hZZ *'<d ('<kx Target fileU.S *ZZ 6YEFS5QFSYECP5QCPYESI5QSI$j .DBF '>o 8 Choices$f%h'@ Re @ @ $l '@ta 8 Choices$f%h'Basu B B $l 'Brt 6FS001FS001CP01CP01SI001SI001$j'DY 8 Choices$f%h'Fg M F 'HSELECT * FROM >  WHERE D > FX  AND D < HX 'NS, NA1Sheet1 0000TEMP.XLS$\%p%RA@nty( o]@]X'x xa Choice1.lstMarket lists (*.lst),*.lst Save List `%|'z zIIt ~'rzkx z.G z.lst 'zjoSee if file exists z$~ Co 0If the file doesn't exist, the length will be 0.o )If the length is > 0, the file must exist)Do you want to replace the existing file z$ #Replace Existing$X'vof v KT'x KT'x ~KT ~'rznd'xk z  t De  Choices$p%h'd c  Choices$p%h'cur  Choices$p%h' T  Choices$p%h'x"$   "$  , $  ,  , "$   "$  ed Wh 'rzXPUnable to write to this file. Save Error$X' 'rip]]]Re]ApErase the current list CChoices$pB@$h$h$RB@ Get filenames u]Market lists (*.lst),*.lst Retrieve List `%'z zG|j z  'me  iV Lo $ (Native Excel formats zA@m:|pkh z ent $"$   $,!Old format with only three fields 'd 'kV ' z$b  ta   tm 'dH    , Kk  Choices$p,hg  Choices$p,he  Choices$p,hal  Choices$p,hf  ' `WXoP0Module1$f(Module2$f(oxModule1$f(Module2$f(o `!'ci - L  - $'kx 'ih]p]] ]ke  \B@ !'rm$hB@Hby %red 'd 'k !b %B@H ! 'dus   6 pen 6$h' P  6+he sk$h $h$RB@H B@ord Buildmkt.xl5$\B@9.Choices$pB@A2$RB@Hcup B@ExpA1$RB@H  $\B@Bal o0 B@etto 2 Update the Caption property of the Frame control. 0%$5( Widen the Label control. 5! 5( q`, The DoEvents allows the UserForm to update.loaA@op]]] .   Progress Bar9.,This is caption 29er,This is caption 39 v C@ d0.0 9Progress message X 9n C @B93 GjAL Y C L  C@q .o ]]]$l'a ! \strategy.ini '    $' on.  $'r oi( PathsDataPath$'(Paths CustomPath$'*95.o .0arl ,untA@k  ,   0B@AB 0 B@ 0B@BITYoP ]., OfA@P ('   $'har ,!<Unable to open a connection to the FoxPro tables located in A@Xm,kH o@  B@n Wo  Qconn.Open "Driver={Microsoft dBASE Driver (*.dbf)}; DriverID=277;Dbq=" & DataPathProvider=vfpoledb;Data Source= ; ,B@F;SourXconn.Open "Driver={Microsoft Visual Foxpro Driver}; SourceType=DBF;SourceDb=" & DataPathbAttribute VB_Name = "Module2" Declare Function GetPrivateProfileS~ng Lib "kernel32" Alias "ZA" (ByVal lpApplica#\~As R, "KeyAnyDefaultB 2Retud!nSize8Long(FhB) GlobZgDatapPath 0 C ustomPubr connADODB.Ce rsRecordset=Sub BuildQ()  Dim CounterIger InstqNumstrSourceAE:ETargetitua(NewK\J~lngMi:nuq ax wkWorkbookSQLC'Read theAqfigtur CVariablesC'Checkat some(thih@be@en seled e= Range("syr.Choices").Rows@} If 0 ThenCjMsgBox "No i@bs have J", vb`OKOnl@lS;~sa aExit Q# End IfcForFR= 1 To 6#'Cre@ a temporary wj1Set 4= 4ps.Ad#H.DisplayA lerts`Falsewk.S @Ogs+ "0TEMP.XLS 1G'aXEh-'eAa4Sheets("8Cells( + 1, 3)ZZ"8e fوr= E %:E+'#7 * .A+ ! ose(+, "YEF0"5QYECP2YESI) .DBFRKo+$^*0r 01īE. + Space(25 - Len() م= 4_E d=F0S001CPuSI Y?).//2) h* 190)]= p \@SELECT`FROM "* ) WHERE@>C o(' AND<g K DBQue+O ,M(H).mqOs$C"1q_`AwNex* aY2Z aPList(HowManyn42%.ОcBInvoke_`5" \n148Repl }0yiS= \Do Unt8il afn39aP AsAW1.lsta-M(ark@fls (*a),bH -p\ /Z qA`vbCancel s5ϧytaIn'H20 ."a} s* 'See ifY exqQJDir(`)) > a'! does(n't,lengPwill8 0.7disam{$$= ("you want to r%V a8UCaes t5st"Hq  !vbYu19+TruUNo! /qo%G''(FC ߄ȃLoopSOn E$rrGo No[9p  Outpu2#D۔ax`6H#MqINSTyT"1`x, ~cod_a#kT2$ AMi"dLen) - "G@","b ' Z with only three`Held@JaEd= aC E; b#kk5x2C&Do Wh Not EOF(12?&1.NST, code,?fpa@= ~I!X ,h"~x?{-<2^g<3!StJ \=o 9xЄyLoop?!!f HideC 0S$Module1 Visria= 2,Show/??``Tru? %{Qs\Titles sVPreve bXCapC/fCv( a-") > 07\Left"O2M>W`aX &](XL!oR>Vrp??4Ax5IZCounter ewEbooks.2UU}:=0ort4NreA?.QCH"e.Selects W .Offset(ПD"}gYsdqAgd &aValuer"d~ 0) JaRowsp/wpuTM/gц#@ = 2 To2GfD`Xxt 3?E3sS7Copy3U"Buildmkt.xl~5T۬q;# ".ANyReZ.Pas "A^' YC-0 ^S@[pUser1S1frm>gr.CDqkAUpd r5Bar(Pct DoCingleTJWusrg!1' s`e T prope@rty ofrFrмntrol.c.e.0n 0X0%q(' WvnLabco = U* _ (- 10/t''!a DoEv alla6the urTTest   UPBUclsn8OYm lWaitLongSS рr # PBS.byD" I2Tc3v 2L3Icaption 3" .ShowP(For nCounter = 0 To 100 .Progress>T>.C12"JmTage " & CStr(4) UxlWait7|@z0 (If UserCan@celled*True Then GoEndR@outine 7Npext a e ":.Finish  Wit Set PBMNothing ( SubFuncGetVariable(Key As , )  nt@Dim 4sR!l Fi@leNamely LoA(= Space(2T55ksF=@\isWorkbook.Path + "\strategy.ID= =Priv =f(<@=, "",7, @ED#HOZLeft(., @ C^\_Sub ReadXs(gData2B)("*s#""E Custom A  !DBQuer4y(BTȀPasteAreap`RangerANew ADODB.Recor8dse]@conn Is Dec>EstO ZCeRIfcrs.Opl&, a , adDynamic, Cmda.CopyFro"mf rs Clos@v#5_6Ϧ& $"= G$mC*AC = FB.M%, Len(A) - 1D5'#'"D^er={Microsoft dBASE  (*.dbf)};ID=277;Dbq= # Visual Foxpro SourceType=DBF;Db tvidvfpo@b;! J@";~DO.St}s@c!OMsgBox "Un to oKaJc#Qthe` !Ues loc d inbʫ"VH Clearh(TxargE j.Dtent SrU~| !  91 1 I q y  IQQY1Ai !0 p  0   0 p  p4fT%d:h%x$ x dd)xd4fT%d:h%x$ x dd)xd8p$ xdl3cT%d:h%x$ x dd)xd3cT%d:h%x$ x dd)xd8l$ xd(dh$ h 4>dFDTh&T:4D($]t5D8T:4D($"T  T5D Tlx,lT dhD0   0   0   0 p  (P P`1h5P"L $ 0lL*1d/Luld<4l<lh@4l@D4lDH4lHL4lL^q8Ƴ0* pHd BUILDMKT .XL5<@ = v  DI<Vrstdole>stdole f%\*\G{00020430v-C 0046}#2.0#0#C:\WINNT\syst em32\c2.tlb#OLE Automation^MSForms>SFErms3DD452EE1-E08F-@101A-8-02608C4D0BB4DFM20.DLL#Microsoft 9HT of the AUTHOR: ROBIN HAMMONDtiUPDATED: 16 September 2003LPURPOSE: Provides a modeless user form showing progress bar, title and threein a cLcaptions in Excel 2000 or higher. Now handles Excel 97 by using same methodsate th/with progress messages written to the statusbar CILEGAL: You may use this code as is or with modifications in your programsGNo commercial use or sale of this code or derivative works is permitted)Eunder any circumstances without the express permission of the author.5K9The author is likely to say yes if you ask nicely though.@You may redistribute this workbook in its original form only, as.5first received from the Enhanced Datasystems website.y AFor further information, please visit www.enhanceddatasystems.com<The colour shading technique on the progress bar was done by0K AJamie Collins in response to a newsgroup challenge. Thanks Jamie.] `] ]@]@]@(]@P]@]@x : g F'>A@Hd  F !J(A@XkPmH  : Re F'@A@Hd  F !L(A@km : No F'BA@Hd  F !N(A@kmx : nt `(P14 `(P d8  A@rDepko  : pe `(Poy `(P000d  B@R90 ko`] : H TX 'D 15A@HdX  Td Gd'Tj T G'Tj !Xin T 9e T 9 qA@km : `(PTr `(Ptiodx ' !J( !L( !N('8(k o : :C,probably best to leave the title out of thisd   895\(^k 9 `C@q`XkPoHX `!f$d':o  : G `(Pjo] >'< @G <,  @'<j BG <,  B'<j DG <,  D%'<j < `(Po@8Attribute VB_Name = "clsProgBar"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustomiz E 'PROGRESS BAR CLASS REQUI INCLUSION OF frmres@s FormCOPYRIGHT of the AUTHOR: ROBIN HA MMONDUPDATED: 16 September 2003PURPOSE: 2vides a model)7usf: showing progEbar, tit@Yand rea'captions in@ ExcelA0 or higher. Now h D97 bPy ussm@ethodsDw(ithm$ag(written to?stat us@$B4LEGAL: You m ae is c@5 a@&s#B: ifica,yo$uramNo mmercial(esa=]E7dve workperJm*d@2un@ any circdum, s2# xME (SS S<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}b:b>Pb@bD`D. A iFhand A`iFr C AiF   R` AiT`V Z X b h H `<HX0%j8 jb<(bBx `X`(Px  `0x0 I#  , ,H x R R 6H P N L  @p F < H8 B H    (08@H " P  X hp x      "           "    ( 8@ H P Xh p x  "             "      0 8  @ P X ` " hp  x              ( 0 8 @ "H  P  ` p       "   2 8 @ H  P ` h  x        "   "   "   &( &P .x    PROGRESS BAR CLASS&REQUIRES INCLUSION OF frmProgress Form7α&COPYRIGnc2@8out1expV LssQwau@DrZ.T{C @likelyAs:byif 19k ni_houghDis th,book mitHigin<only,first recefromBEn`:c@aD@osysLs we`bsiteA W fur@Ur` . , pleavi  www.e$ bd .co^col4shadFtechniquO 3A#)T w=doneLJamie Colli[#T-pUDo^newsgroup challenge. T9B Publi c DiszCa8l As Bojo@nTbcSi -ngASP 0nVer;In`teger@3S_"Z e1x2x3tz o`Qty Let CC{1(@d )DIfG< 9`'e1! = CUp`=eC#X Eº# V8BA6 a H.lblMsg1.% !DoEvent@{D E`If+!"!e 2 w 2ο A Ľ 2 ! 3 _  3_ _ p 3_s apSub Finish(o/l/AppBݲN..Pp"?4`Unpload g#-A# g/ q.q H _ m,_ _ duZ_ =1 0)q ? ;? b;@BN(n8WidWpDim nMYMMV= CStr0 - MMAs > 100O ~=Q1< m0OcWimgq {p3Q. =1 - c* 2.Left`/12 +3 * ;o ] v\-Reset..o;ro;q.q'kkDAmCQp_"0b9Rۍ= ;D D0RS0á1 Q)u'@by be`3!$f --'$ Q5 =Tr@ 02B8.cmd.Ena5)[_n2$. vbM634Class_Initialize() nVersion = Val(ApplicatD.dEnd SubbPrivate TermiFn&If < 9 Then  StatusBartFalseVaUpdX1^Dim str As Stri,ngA="1  2 <> ""Gus & ", "33K@Progress+"L|%"&h_VBA_PROJECTdir__SRP