邢唷��>� >��x��= !"#$%&'()*+,-./0123456789:;<��EQ@ABCDFOGHIJKLMNPWf��STUV��gYZ[\]^_`abcdeR��ijk��m�opqrstuvw��z{|}~€Root Entry�� F撗&縗�?@7Workbook%��rt_VBA_PROJECT_CUR"#"K藴IX�痖_滻X�VBA��P缢淚X�@R滻X� g2�羳��\pClay Moultonf Treasury B�a�=��ThisWorkbook��=胡�扥 28X@�"��1��Arial1��*Calibri1��*Calibri1��*Calibri1"��* Helvetica1��*Arial1��*Arial1��*Arial1"��* Helvetica1��*Arial1��*Arial1x��*Arial1x�*Arial1��*Arial1��*Arial1h8�*Cambria1,8�*Calibri18�*Calibri1�8�*Calibri1��*Calibri1��*Calibri1�<��*Calibri1�>�*Calibri1�?�*Calibri1�4�*Calibri1�4�*Calibri1� �*Calibri1� �*Calibri1��*Calibri1��*Calibri1� �*Calibri"$"#,##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$;_(* "-"??_);_(@_)� $#,##0$�@*.�"*"#,##0;"*"\-#,##0;"*"@�� 攆f�� +� �� )� �� ,� �� *� �� P� �� P� �� `� �� "@ @ � � �"@ @ � ��!� �� a>� �� !8� �!8� �!� ��!� ��!8� � � �8@ @ � �8@ @ � �8@ @ � ��"@ @ � ��",@ @ � ��",@ @ � �!8@ @ � � "<@ @ � �� ,@ @ � �� l@ @ � � H� �� ,@ @ � � � � #� �� !� � H� ��"L@ @ � �#<@ @ � �#<@ @ � �#<@ @ � �#<@ @ � �#<@ @ � �#<@ @ � �#<@ @ � �#<@ @ � �#<@ @ � ��#<@ @ � ��#<@ @ � ��#<@ @ � ��#<@ @ � � � �8@ @ � �8@ @ � �8@ @ � �8@ @ � �8@ @ � �8@ @ � ��!8� �!8� ||o*髛(}Y 00\);_(*}(}Z 00\);_(*}(}[ 00\);_(*}(}\ 00\);_(*}(}] 00\);_(*}(}^ 00\);_(*}(}_ 00\);_(*}(}` 00\);_(*}(}a 00\);_(*}(}b 00\);_(*}(}c 00\);_(*}(}d 00\);_(*}(}e 00\);_(*}-}> 00\);_(*}A}1 00\);_(*;_(@_) }A}2 00\);_(*�?;_(@_) }A}3 00\);_(*23;_(@_) }-}4 00\);_(*}A}0 a�00\);_(*骑�;_(@_) }A}( ��00\);_(*�俏�;_(@_) }A}7 渆�00\);_(*�霚�;_(@_) }�}5 ??v�00\);_(*�虣�;_(@_) � � � �}�}9 ???�00\);_(*蝌�;_(@_) ???� ???� ???� ???�}�}) 鷠�00\);_(*蝌�;_(@_) � � � �}A}6 鷠�00\);_(*�€�;_(@_) }�}* 00\);_(*ゥ�;_(@_) ???� ???� ???� ???�}-}@ ��00\);_(*}x}8��00\);_(*膊�ゥ�;_(膊�???� 膊�???� 膊�???�}-}/ �00\);_(*}U}? 00\);_(*;_( }A}" 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*蘈;_(}A} 00\);_(*23;_(}A}# 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*蘈;_(}A} 00\);_(*23;_(}A}$ 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*蘈;_(}A} 00\);_(*23;_(}A}% 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*蘈;_(}A} 00\);_(*23;_(}A}& 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*蘈;_(}A} 00\);_(*23;_(}A}' 00\);_(* ;_(}A} 00\);_(*ef ;_(}A} 00\);_(*蘈 ;_(}A}! 00\);_(*23 ;_(� 20% - Accent1�M�� 20% - Accent1ef苕��%� 20% - Accent2�M�"� 20% - Accent2ef蜍��%� 20% - Accent3�M�&� 20% - Accent3ef腭��%� 20% - Accent4�M�*� 20% - Accent4ef溥��%� 20% - Accent5�M�.� 20% - Accent5ef陬��%� 20% - Accent6�M�2� 20% - Accent6 ef��%� 40% - Accent1�M�� 40% - Accent1蘈柑��%� 40% - Accent2�M�#� 40% - Accent2蘈娓��%� 40% - Accent3�M�'� 40% - Accent3蘈劁��%� 40% - Accent4�M�+� 40% - Accent4蘈汤��%� 40% - Accent5�M�/� 40% - Accent5蘈忿��%� 40% - Accent6�M�3� 40% - Accent6 蘈��%� 60% - Accent1�M� � 60% - Accent123暢��%� 60% - Accent2�M�$� 60% - Accent223跂��%� 60% - Accent3�M�(� 60% - Accent323淖��%� 60% - Accent4�M�,� 60% - Accent423睜��%� 60% - Accent5�M�0� 60% - Accent523捦��%�! 60% - Accent6�M�4� 60% - Accent6 23��%�"Accent1�A��Accent1O伣��%�#Accent2�A�!�Accent2繮M��%�$Accent3�A�%�Accent3浕Y��%�%Accent4�A�)�Accent4€d��%�&Accent5�A�-�Accent5K��%�'Accent6�A�1�Accent6 鳀F��%�(Bad�9��Bad��俏��%�)Calculation��Calculation�蝌��鷠�%�� * Check Cell�� Check Cell�ゥ��%�???��???��???� �???��+€�� Comma�,€��(�� Comma [0]�-€��&��Currency�.€��.��Currency [0]�/Explanatory Text�G�5�Explanatory Text��%� 0Good�;��Good�骑��a�%�1 Heading 1�G�� Heading 1I}�%O伣��2 Heading 2�G�� Heading 2I}�%�?Э��3 Heading 3�G�� Heading 3I}�%23暢��4 Heading 4�9�� Heading 4I}�%� 5Input�u��Input��虣��??v�%�� 6Linked Cell�K��Linked Cell�鷠�%��€��7Neutral�A��Neutral��霚��渆�%�€��"��Normal� 8Note�b� �Note��膊��膊��膊� �膊��9Output�w��Output�蝌��???�%�???��???��???� �???��:€��$��Percent�;style_col_headings�<�style_col_numbers�=style_titles� >Title�1��TitleI}�%� ?Total�M��Total�%O伣�O伣��@Warning Text�?��Warning Text��%�X��TableStyleMedium9PivotStyleLight16`�R?Line amounts by sectors��8�mB;\Table 1. Corporations Claiming a Credit for Increasing Research Activities on Form 6765 [2]W[All figures are estimates based on samples--money amounts are in thousands of dollars]ItemAll sectorsSectors+Agriculture, forestry, fishing, and huntingMining UtilitiesConstruction ManufacturingWholesale and retail tradeTransportation and warehousingInformationFinance and insurance Real estate, rental, and leasing0Professional, scientific, and technical services+Management of companies (holding companies)5Administrative/ support and waste management servicesVarious services [8] 4Number of Returns Claiming a Credit on Form 6765 [3]Section A-Regular Credit. [7]71 Certain amounts paid/incurred to energy consortia.2 Basic research payments paid or incurred/3 Qualified organization base period amount"5 Wages for qualified services6 Cost of supplies(7 Rental or lease costs of computers88 Applicable percentage of contract research expense49 Total qualified research expenses (sum 5-8) [4]&11 Average annual gross receipts [5]12 Base amount17 Regular Credit [6].20 Qualified organization base period amount!24 Wages for qualified services25 Cost of suppliesNotes:c Estimate should be used with caution because of the small number of returns on which it was based."[1] This amount is less than $500.\[2] Includes returns of active corporations, other than Forms 1120S, 1120-REIT, and 1120-RIC[7] Component data for each section also includes amounts for those credit claimants not claiming the specific section credit. �[8] "Various Services" include educational services; health care and social assistance; arts, entertainment, and recreation; accommodoation and food services; and other services.918 Certain amounts paid or incurred to energy consortia719 Basic research payments to qualified organizations'26 Rental or lease costs of computers?27 Enter the applicable percent of contract research expenses929 Enter total qualified research for prior 3 tax years@37 Passthrough rsrch cr(s) from prtnshp, S corp, est, or trust628 Total qualified research expenses (sum 24-27) [4]&34 Alternative Simplified Credit [6]B38 Current-year credit for Increasing Research Activities [3][6]}[3] Number of credit claimants and Line 38 amount both include corporations that only reported data on Line(s) 37 and/or 38.,Section B-Alternative Simplified Credit. [7](Section C-Current-Year Credit.�[5] Line 11 , Average annual gross receipts, are defined as the average annual gross receipts for the 4 tax years preceding the tax year for which the credit is being determined.�[4] Line 9 and Section B line 28 do not equal the sum of their components as shown in this table, because some corporations only reported these total lines.�[6] Line 17 and Section B line 34, and line 38 include credit amounts for which some corporations did not provide component data.[1])Selected Items, by Sectors, Tax Year 2012BSource: Statistics of Income Division: 2012 Corporate Returns Data�B-2H3'!4�5y�6��8��:�>�cc��B��O岆Uj_ 翶U� g2�羳-廮賞乻 d褚MbP?_*+�€%�� &R&P of &N��&�?'�?(�?)�?M\\MTB0120PPSOI06\Holiday�4C�€� odXXLetter��DINU"L �措8DSMTJHP Universal Printing PCL 6InputBinFORMSOURCERESDLLUniresDLLHPDocUISUITrueESPRITSupportedTrueFastRes2bppResolution600dpiPrintQualityGroupPQGroup_4HPColorSmartAutomaticHPColorSmart_ColorOptions_EdgeControlNoCmdHPColorSmart_ColorOptions_HalftoneNoCmdHPColorSmart_Text_NeutralGraysNoCmdHPColorSmart_Text_HalftoneNoCmdHPColorSmart_Text_RGBColorNoCmdHPColorSmart_Graphics_NeutralGraysNoCmdHPColorSmart_Graphics_HalftoneNoCmdHPColorSmart_Graphics_RGBColorNoCmdHPColorSmart_Photo_NeutralGraysNoCmdHPColorSmart_Photo_HalftoneNoCmdHPColorSmart_Photo_RGBColorNoCmdOrientationPORTRAITHPOrientRotate180FalseDuplexNONEHPPrintOnBothSidesManuallyFalsePaperSizeLETTERHPConsumerCustomPaperTrueMediaTypeAUTOCollateONHPNUseDiffFirstPageChoiceTRUEHPPageExceptionsFileHPCPE140HPPageExceptionsInterfaceShowPageExceptionsHPPageExceptionsLowEndHPPageExceptionsLowEndVerHPPageExceptionsCoverInsertionHPOutputBinOrientationFACEDOWNPunchingNoneStaplingNoneHPStaplingOpposedFalseEconomodeFalseTextAsBlackFalseAlternateLetterHeadFalseHPSmartHubInet_SID_263_BID_514_HID_265OutputBinAutoHPDocPropResourceDatahpchl140.cabHPLpiSelectionNoneJPEGEnableAutoHPEasyColorOnHPMHDLLNameHPFIE140HP_DIBStitch_TintTestDisabledHPMediaTypeTreeviewPopupTrueHPColorModeCOLOR_MODEColorMode24bppTTAsBitmapsSettingTTModeOutlineHPPDLTypePDL_PCL6HPPJLEncodingUTF8HPJobAccountingHPJOBACCT_JOBACNT_GROUPNAMEHPBornOnDateHPBODHPColorPlaneHPCPHPJobByJobOverrideJBJOHPJobAccWoPinTrueHPXMLFileUsedhpcu1406.xmlHPSmartDuplexSinglePageJobTrueHPDuplicateJobNameOverrideSWFWHPEnableRAWSpoolingTrueRGBColorNoCmdJRConstraintsJRCHDFullJRHDInstalledJRHDOffJRHDNotInstalledJRHDOffHPBestGlossDefaultPSAlignmentFileHPCLS140�IUPH!x滍費/A�怘鉈�(叅o!��(]/�&8�.殧&-I弖�|綝�>€奜鄤g謻-VD�o髏�3麞4祠�坖;�叒塚糝5u厡觐Ъ�pp 泝�(艿鏑溃�9�-饒疭o� rMS鯾 K8伉嗠舆逻煥y�%l痎3*旿M椐既茧)O栈V袠詎婆iQcH"奩蒄蚮eF暻襌f眳蒄��u娩�){�汫~嵝s}�:巐"嘳�d懊90Q櫟3綗w逧挋�垓n�崚�9挶増�7鬅雪圢陻鲒�嫩鯑z�//什y鐖`氚�,�#焛霫煈虨�,^斁彶|R蕀份�=��崝淵#丄樊?��鴸哲栧9巆A炚旻� 5\芏"靴砧颥�膘x鼬盘I鳹]輰t-幭�; {v}`绶@`@O A`(A`€冃@`& `f固`P甍@[ 7=A`^�*`@㈤@`>"�b8;A`褥@\ 垧@� O/�``z釆!`狑@`K`樌A`<A`v浂`�'`8PA[&熱`*E�`鸹A`K``HA`�&\�%A� O-�``屎U`剘A`贔�`€~"A`$#A`濧f8`竖G`€�A[�$�`诼`D�*A`N眃`l�%A`c4A\4.� R0�`a.�a7睝a0n駺a€w跕a€熗@an=a�Aa€魈@]魦6Aa0笼@a€刂@a枤"a€,譆a欋@^C蠤� N4�$````````[`````\� O.�``牉A`k@`H咢` e@`袉@` 2餈`#礍`饜@[€1艪``E鉆`€r@`錾@`纎跕`鴻@d@T@�DRl666N�nr6�|rrrrrr�rr6��rrrrrrr6 �€F!�€S"��S#�€S$�€S%�@&�@'�€S(�@)�€S*�€S+�€S,�€S� R1�` a菚a€繞a鄌驚a7锧a€傋@a緝�az'Aa饔@]琷a€�Aa續跕a:荄a浪鬇a棱錊^�7酅� !S:!T!T! T"T"T" T� #S#� $U$� %S%� &S&� 'V2� (W6� )V5)T) T� *V7� +V'� ,V(�`�r,">�@dS��RA �� Sheet15gg��D ThisWorkbook��Sheet15 ��__SRP_10��#�__SRP_11��'B �� !"��$%&��(��*+,-./0123456789:;<�=>?@ABCDEFGHIJ��L��N��PQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvw��y��{��}��朠��#��x��ME��(SL��S��S��<��N0{00020819-0000-0000-C000-000000000046}��8€��(��%��H����x��鞍Attribute VB_Name = "ThisWorkbook" 孊as�0{00020P819-0C$0046}� |Global�Spac扚alsedCreatablPred恊claId�Tru BExposeTemplateDeriv払ustomizD2D�r€��燖��#��<��^bC#~t-G∷�=*format number to display a single asteriskq��Pk��Hk��@� 6��媒^[� 4��\-o0蟹 *(,'y伳o��獗Attribute VB_Name = "Module3" Option Base 1 Sub removeWeakEstimateIndicators�()JAppl v.ScreenUpdating糉alse arrActiveSheet.UsedRang For i 1 To UB ound(2, 1) 'loop through all row爏 5k525column� If 0(i, k) <�> "**" T8hen,€�Le黤t丆侳� €With Cells"�$ .Valu禦igh�(Len0) -�xs€襾xe s�le aster€isk off€�e number=�2N� €妧��"""*""#,##0;-�@" 0'forA to display a IEnd� �;�If�Next k 怕i奣ru€倎@滱 rU€€€€~| ��krU€€€ ��$�`��n�� .@��x��ME��(6 ��<��<��<��x€B��`��!!��傽��p��%��H��@�鑀s$*\Rffff*0>5298593d�!"�€ �� € ��6(�8`��"�� \�� PP� �� € ��€ ��6��8 �€X� �� € �� € �� (�8��H�� *(,�7P�� 0!2'.P�� 4�� .��loop through all rows� 6�� .��loop through all columns 4 6$.�**� 4 6$.�$��*�* 4 6$8�$8 4 6$. 4 6$.�$<9:�;(strip the single asterisk off the number��"*"#,##0;"*"-#,##0;"*"@9>�=*format number to display a single asteriskq��Xk��Pk��H� 6�� 4�� 0!2'D�� F�� D��loop through all rows� H�� D��loop through all columns F H$D�- F H$D� - F H$D� - F H$D� - F H$D� -� F H$8��9:q��k�� H�� F�� *(,o��Attribute VB_Name = "Module4" Sub WebReady() Application.Scr@eenUpdngrFalse arrActiveSheet.UsedRang8 For i@1 To U@Bound(2, 1) 'loop through all ro@ws 5k525column8 If `(i, k) <> "**" pThenX€�L鴈ft丆侳€� €With Ce8lls"�$ .Valu仯Rig"h�(Len0) -xs纴xe single asterisk off€別 numhber�2N� €妋at�"""*"€"#,##0;-�@" 'for�& to display a� IEnd �;�If�Nex爐 k �i娊\2�%Z伭孡�2爜h�� 鎭2(g, h)"-" 霴r羻� T�� 樏唸幝哢寧0_Z梐^h`gq^闠ru棱�@| __SRP_4��xT__SRP_5��zgModule1��X$__SRP_6��|TrU€€€€~| ��krU€€€ ��$�`��nrU€€€€~| ��krU€€€ ��T$�`��n��1�$(Cells(1, 1)�, �&, D.)€M吇"3� s蓘杦hat �? (cYRn)丂�罧'價�Which義le �)2,3,4,5�*R5)纖e you creating?ATab#� €刡erA 'If �""c0€4" Then@hextraitems�" left o坤r join (sel�� scpl,€,omp_div_frn_@噋+nvl(cfc_€85,0)) ��othr_rcpts-l_plcy_cashB�, e w�& a.retuAtype "'€08','14@20') t� c�#tx_exmt恄int怜el��_m1 end � from micro_" &�H& " a嶢!@蝨rolM us5@](罠)�@Aid%s b � , edit_1_2lform_1h120-c4 'r杄& �&1�%A'�23h€�'E�$霣5"泖BW"c05�� !鲿X�:�7iU�€:|If Y@�h`� @2 <> 0 e`dcm羂a�� Fcm_pos @�i i,ndW"HUso抜Bbcd#.42@.�44ET'41'cZU 6a36�7!7 !81�900'~ 俌€�犉60" OrD�7"�)縮A'nt�S@f�"8l9f'!笯`iA(It= '801'!$K10�,11�聫10`]wa豲MvdnyMm渆ntity_ad鉆q 頰l_�'ぇtG�_{—tax牕mp�/袬1('1�2'� ��=41O4 0�o�ajj瞛)�!.2-�2��F�OW郚R_CD0EVPRCNT >=x 50C�燘E聅�8lishAsaDne2� toda�`�"濿ith2� .Proa5r�MSDAOXRA.�2( P榥e�S瓞nga1� xID=憉� u;鏍�衱"; D@ Source=SP11.WO楻LD�dOp!�=�E€ A � P&n.CursorLo哻p�0�= ad`窩li�=uqF€0耰 4 To�#轎P惏�!P煴;a 餰�p"D業V_�K/ d�"(聣膼蠏脪�(�}AS:�瞁!� � ' C釣e`R�1濦`煈 WW�s黴l�%悑�魸憴�#%n�,1)-dy`檕p�(*) ctp苪m(weight_f) w�r�d(spk��*F)A&1^ 72�繑"悝耇67�65-廰3嗮▉℅�?B猒淧湐�€ he强戵T� 0 Then�$ netincm = "and net_incm_pos > 0"�Else: netincm = ""�End If�| case when soi_div_cd in ('42','44') then '41' when soi_div_cd in ('61','62','71','72','81') then '900' else soi_div_cd end 't�$If tabNum = "6" Or tabNum = "7" Then� constraints = ""�)'ElseIf tabNum = "8" Or tabNum = "9" Then�+' constraints = "and return_type = '01'"�*ElseIf tabNum = "10" Or tabNum = "11" Then�5 items10_11 = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) left outer join entity_additional_c05 b using(scpl, edit_1_2) left outer join form_1120_c05 using(scpl, edit_1_2) left outer join tax_comp_c05 using(scpl, edit_1_2) where edit_1_2 in ('1','A')"�o constraints = " and (a.return_type = '05' or (frn_cd = 'Y' and a.RETURN_TYPE not in ('09', '10', '14'))) "�*ElseIf tabNum = "12" Or tabNum = "13" Then�@ constraints = " and a.return_type not in ('02','04','06') "�*ElseIf tabNum = "14" Or tabNum = "15" Then�/ constraints = " and a.return_type = '02' "�*ElseIf tabNum = "16" Or tabNum = "17" Then�<� constraints = " and a.return_type in ('08','20','14') "�*ElseIf tabNum = "24" Or tabNum = "25" Then�E constraints = " and FRN_OWNR_CD = 'Y' and FRN_OWNR_PRCNT >= 50 "�End If�(Establish the connection to the database X�� MSDAORA.19v�User ID= `�; Password= d�; Data Source=SP11.WORLD9xC@q�� | X(z� 4�� f�� 4$p'~�# If arr1(1, i) = "DIV_FRN" Then�5 Item = "(comp_div_frn_corp+nvl(div_cfc_85,0))"� Else: Item = arr1(1, i)� End If� Create a Recordset�&If tabNum = "10" Or tabNum = "11" Then�select nvl( t�3,1) indy, count(*) ct, sum(weight_f) wt, round(sum( ~�!*weight_f)) theitem from control_ T� join form_6765_ T�$ a using (scpl,edit_1_2) join micro_ T�� b using (scpl) where edit_1_2 in ('1','A') and ed_st in ('C','D') and b.return_type not in ('02','04','06') and a.R_TOT_ALLW_RSRCH_CR !=0 and ~�!=0 group by rollup( t�) Order by indy nulls last'€��Else: SQLstring = "select " & indy_cd & " indy_cd, count(*) ct, sum(weight_f) wt, round(sum(" & Item & "*weight_f)) theitem from micro_" & sbyear & extraitems & " and round(" & Item & "*weight_f) <> 0 " & netincm & constraints & " group by rollup(soi_div_cd,case soi_maj_cd when '625' then '6215' when '626' then '622' when '521' then '520' when '522' then '520' else soi_maj_cd end) Order by " & indy_cd & " nulls first"�End If��.\� €�� X%�.\� L�� L��酅L� �� L�� 4$p � L��+LW粆 \!��&}�theitem$\ � L��$L��2�ct$\!: � L��+L朖�wt$\!: � L��+L \B@��,AIk�� dFyk�� I� 4��€P L��$8 L�� L��$8+r> \B@B嗺 XB@BUS�'Lo��€��头Attribute VB_Name = "Module1" Option Base 1 Public myArray2, s, ac, tabNumbyearNSub arrESV() Dim conn As New ADODBd.Cecg!rst Recordset UserId↖nput Box("/Schema", 1ID"t4 P餫sswE 1� last@Column€A€MveSheet.€3dRange藔Zs€unN�8Row€ � 妑U€€€€~| ��krU€€€ ��$�`��n��rU€€€€~| ��krU€€€ ��T$� `��n��Module5��y~#__SRP_a��T__SRP_b��qModule6��$hich羪le �)2,3,4D,5�*R5)纗e you cre@ating?AT宎b� €卋erA@ 'If �""c04" Then@hextra items�" @left o昆r join (sel� scpl,€,omp_di@v_frn_@噋 +nvl(cfc_85,0)) ��othr_@rcpts-l_plcy_caLshB�, e w�& a.retutype "'08','1420') t� c�#tx_ex@mt_int怜el退_m1 end � from micro_" &H& " 哸嶢@蝨rolM 評s@](罠)�@A攊ds b � , edit_1_2lform燺1120-c4Y 're& �&1�%A�'�2h�'E�$霣�5"鰾W"c05�啭 !�X�:�7iU筲€:If Y@�h啜 2 <> 0� ne`dcm羂a�� Fcm_pxos @�i 0 indW" soi_maj_8cd €� �6"X Or某7I+ �眘Ant�2ゝ€"8l9f'!�@RiAIf= '0�1'!$=10,�11�聛10`Oa;豠?vd`y?m巈n€tity_ad@c駹郺l_�'枾f�#_mtax牂mp_ ST!2�: a2(+櫫25' or F("T�$'Y'�a.RETURN_TYPE nottO9', '105R4�<)'�"12}m3k#4I#72錪C0盫06癡o$0.�1pdJ.1 D^.��%�'02'�a'1=4�1O4 0��acc瞔k�駺2�2��F�OWNR_CD�DVPRCNT� >= 500G燘Es�8lisI€}heQ#ne2� 膖oam da�牊a"梂ith2� � .Proa5rQMSDAORA.V1 2( P憂�S0ga1� ID�=憂� 湊n;鏅�C衟"; D@ Source=SP11.WORL睤gOp!�0E€ A � P&n.Cur纒orLocp塸�= ad`CliW�=uqF€0i 4� To�#IP壈{�!歩P�!a 館�p"DIV_撪K/ d"(聜磕壪嬅嬸襏AS:�� ' C梕`R�1桜`槕 �WW�sql�%悇�魱�錰1壉饝o��(*) ct@�um(weigh@t_f) wr襦d(sp�r��*F)�%羃聫� O�"s烺T6765嘺脋€�∽嬕斚鄶$€ heO奀姳" 0� ne`dcm羂a�� Fcm_pxos @�i � indW"HUHsoiBbcd#.42@.44ET'41V'cZ 6a36�7%!7!81�90�0' 俌€�� 6" Or牧,7")縮A'ntO�@f�"8l9}f'!笯`iA(It=� '01'!$Kd10,11�聫1�0`]a豲MvdnyMm渆ntity_宎d@q狀al_�'ぇt�_{—taxy蠸mp�/袬1(�'1�€ "**" A.#+�) T€� 'this will ch伣 (*�*) in€豭�!sectto (-€f no data ex恑sts� AC俆9D"-纮�2�%Ap plicaA�.Works羬Funon.IsNu鄊ber(��%翤弆'D€|mat( �R聦A, 0), "#,##0�"刢D�%噞@[, > 0W< 5X00)俖B< >| -BA^A嵞!"8[1]@MA�'***make negOve "s€bed"B畇 phosi料 f: E�1C矦藔鏝ET_GN_LSS`_NEG"�(� INCM[ DEFI鐲IT�S&��8etFCc8Abs乨C* 0.00��:A' �)�:d(� �(g0� n"�e鰉纜�dCM� &f�< 鐕&AH€C P€lace an纚front o0f th繩耾 i f繨纴a we€ak esti纋ve`*A燸劍<� 1鉤�羆G=p鳺t)纃�翏�罁-)'I9"@�& �;$Text$亅 'hardcod� comma�暍漬�( �;# D嬃7� #") ' #only wa€&€(Awith 鴒ut"(# �0%忔夼�s! N@ i�x郉im 犱2 'Remo`!5column秬c渢s/€wt-ct bB=e Re!P`reser��(蓓�1愧佅€ V瑁�#:葏i) €Empty睴�"CO€UNT(*)"rf[�/ 2% � ,pw,叩~賦q k3O仦y�S�#�(k�.)�� i腵 }�k�賷Q ?�0�.ClearCP5ents '拰(Cell黶(K��Of � _庎0��s2�弚Tran歴0de晻� �1(1��h��l��Lt�ク��P��x��ME��(<��<�6 ��<��Z^��蕗Pp ��@��蕗T��@��@��p(xH�� `��cc� ��*% 刓��8%�蕗LH��@��蕗N��@��蕗R(0��@��儺��%��0x�� x��(��T�� P�鑀s$*\Rffff*0A5298593d�e€€ "�(€ ��€0€8€ ��$@�"h€ ��€ ��&��&�€ ��&€ Z8€ ��€ �€ ��€ �€ ��€ p€ �€ �€ �€ *�€ �€ € �� € ��€ *8€ h€ 0�€ 2�€ 0�€ < € v`€ 0�€ F€ 0P€ 6€€ 0�€ B�€ 00 € L` € � € ��€ .� �� L �` �h �p € ��€ �� € ��€ *� € <�� € " € H€ ��€ X€ ,x��€ �h € € ��(� 0€ ��,P€ ��€�$�� ,��,�,8� h� x�€�� € ��6�€ �� € ��€ ��€ ��€ ��€ �� x] � �H��p�(�x]��]��User/Schema�UserID$b'`�Password�Password$b'd 0!2!h!j'f 0!2!n!j'l��$8 l f$8$r'p��$8 l�$8$r'L€�what year? (cYR)�year$b'T'�StabNum = InputBox("Which table (1,2,3,4,5, CR5) are you creating?", "Table Number")1�If sbyear = "c04" Thener�� extraitems = " left outer join (select scpl, (comp_div_frn_corp+nvl(div_cfc_85,0)) div_frn, (comp_othr_rcpts-nvl(l_plcy_cash,0)) othr_rcpts, case when a.return_type in ('08','14','20') then comp_tx_exmt_intrst else tx_exmt_intrst_m1 end exmt_intrst from micro_" & sbyear & " a left outer join control_" & sbyear & " using(scpl) left outer join dividends_" & sbyear & " b using(scpl, edit_1_2) left outer join lform_1120_" & sbyear & " c using(scpl, edit_1_2) where edit_1_2 in ('1','A')) using(scpl)"�ElseIf sbyear = "c05" Then�� extraitems = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) where edit_1_2 in ('1','A')"�Else: extraitems = ""�End If��If tabNum Mod 2 <> 0 Then�$ netincm = "and net_incm_pos > 0"�Else: netincm = ""�End If� soi_maj_cd 't�$If tabNum = "6" Or tabNum = "7" Then� constraints = ""�)'ElseIf tabNum = "8" Or tabNum = "9" Then�+' constraints = "and return_type = '01'"�*ElseIf tabNum = "10" Or tabNum = "11" Then�5 items10_11 = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) left outer join entity_additional_c05 b using(scpl, edit_1_2) left outer join form_1120_c05 using(scpl, edit_1_2) left outer join tax_comp_c05 using(scpl, edit_1_2) where edit_1_2 in ('1','A')"p�o constraints = " and (a.return_type = '05' or (frn_cd = 'Y' and a.RETURN_TYPE not in ('09', '10', '14'))) "1,�*ElseIf tabNum = "12" Or tabNum = "13" Then�@ constraints = " and a.return_type not in ('02','04','06') "ut�*ElseIf tabNum = "14" Or tabNum = "15" Then�/ constraints = " and a.return_type = '02' "0)�*ElseIf tabNum = "16" Or tabNum = "17" Then�<� constraints = " and a.return_type in ('08','20','14') "_intrs�*ElseIf tabNum = "24" Or tabNum = "25" Then�E constraints = " and FRN_OWNR_CD = 'Y' and FRN_OWNR_PRCNT >= 50 " usi�End Ift_1_�(Establish the connection to the database u X�� MSDAORA.19v edit_�User ID= `�; Password= d�; Data Source=SP11.WORLD9xraitC@q�� | X(zntro� 4�� f�left o� 4$p'~s_c05 �# If arr1(1, i) = "DIV_FRN" Then('1','�5 Item = "(comp_div_frn_corp+nvl(div_cfc_85,0))"� Else: Item = arr1(1, i)$ � End If� Create a RecordsetEl�&If tabNum = "10" Or tabNum = "11" Thenen s�select t�0 indy, count(*) ct, sum(weight_f) wt, round(sum( ~�!*weight_f)) theitem from control_ T� join form_6765_ T�$ a using (scpl,edit_1_2) join micro_ T�� b using (scpl) where edit_1_2 in ('1','A') and ed_st in ('C','D') and b.return_type not in ('02','04','06') and a.R_TOT_ALLW_RSRCH_CR !=0 and soi_maj_cd like '3%' and ~�!=0 group by rollup( t�) Order by indy nulls last'€��Else: SQLstring = "select " & indy_cd & " indy_cd, count(*) ct, sum(weight_f) wt, round(sum(" & Item & "*weight_f)) theitem from micro_" & sbyear & extraitems & " and round(" & Item & "*weight_f) <> 0 " & netincm & constraints & " group by rollup(soi_div_cd,case soi_maj_cd when '625' then '6215' when '626' then '622' when '521' then '520' when '522' then '520' else soi_maj_cd end) Order by " & indy_cd & " nulls first"urn_�End If('02��.\� €�� X%�.\� L�� L��酅Lts =� �� L��' " � 4$p � L��+L = " \!��<� �theitem$\ � L��$L��ct$\!: � L��+Lr ta�wt$\!: � L��+Lnd F \B@� = 'Y'k��€dFyk��p� ��En� 4��(Es L��$8 L�� L��$8+rDA \B@B XB@BD= `�'Lo��诜Attribute VB_Name = "Module5" Option Base 1 Public myArray2, s, ac, tabNumbyearNSub a rrESV@2() Dim conn As New ADO怐B.Ceck1!rst Recordset UserId琁np€utBox("/Schema"�, ID"t4� PasswE 1� lastColumn€A€MveSheet.€3dRan,ge€Zs€un�N�Row€ �4 �1�$(Cells(1, 01), �&, �D)€M吔"3�8 s藔杦hat �? (c竃R)丂�罧'僺A�W41O4 0唢�ajj瞛)�!.Z2�2��F�O繵NR_CD0EVPRCNT >�= 50C0N燘凟s�8lishAs塓#ne2� toda�牔"濿ith2� .Pr oa5r�MSDA`ORA.102( 昉榥�S0璶ga�1� ID=憉� �=恥;鏍�衱"; D@ Source=SP11. WORLDgOp{!�0E€ A � P&n.CursorLocp恜�= adq`Cli�=uqF厐0i 4 To灲#IP惏�!P焪!a 餰�p"0DIV_�K/ 鵧"(聣膼蠏脪� {襏AS:�� ' C釣e`R�1濦`煈 WW�s黴l�%悑�魸憴�#%n�,1)-dy`檕p�(*) ct捌um(weight_f) w�r�d(spk��*F)A&1^ 72�繑"悝耇67�65-廰3嗮▉℅�?B猒淧湐�€ he强戵T� 0 Then�$ netincm = "and net_incm_pos > 0"�Else: netincm = ""�End If�| case when soi_div_cd in ('42','44') then '41' when soi_div_cd in ('61','62','71','72','81') then '900' else soi_div_cd end 't�$If tabNum = "6" Or tabNum = "7" Then� constraints = ""�)'ElseIf tabNum = "8" Or tabNum = "9" Then�+' constraints = "and return_type = '01'"�*ElseIf tabNum = "10" Or tabNum = "11" Then�5 items10_11 = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) left outer join entity_additional_c05 b using(scpl, edit_1_2) left outer join form_1120_c05 using(scpl, edit_1_2) left outer join tax_comp_c05 using(scpl, edit_1_2) where edit_1_2 in ('1','A')"�o constraints = " and (a.return_type = '05' or (frn_cd = 'Y' and a.RETURN_TYPE not in ('09', '10', '14'))) "�*ElseIf tabNum = "12" Or tabNum = "13" Then�@ constraints = " and a.return_type not in ('02','04','06') "�*ElseIf tabNum = "14" Or tabNum = "15" Then�/ constraints = " and a.return_type = '02' "�*ElseIf tabNum = "16" Or tabNum = "17" Then�<� constraints = " and a.return_type in ('08','20','14') "�*ElseIf tabNum = "24" Or tabNum = "25" Then�E constraints = " and FRN_OWNR_CD = 'Y' and FRN_OWNR_PRCNT >= 50 "�End If�(Establish the connection to the database X�� MSDAORA.19v�User ID= `�; Password= d�; Data Source=SP11.WORLD9xC@q�� | X(z� 4�� f�� 4$p'~�# If arr1(1, i) = "DIV_FRN" Then�5 Item = "(comp_div_frn_corp+nvl(div_cfc_85,0))"� Else: Item = arr1(1, i)� End If� Create a Recordset�&If tabNum = "10" Or tabNum = "11" Then�select nvl( t�3,1) indy, count(*) ct, sum(weight_f) wt, round(sum( ~�!*weight_f)) theitem from control_ T� join form_6765_ T�$ a using (scpl,edit_1_2) join micro_ T�� b using (scpl) where edit_1_2 in ('1','A') and ed_st in ('C','D') and b.return_type not in ('02','04','06') and a.R_TOT_ALLW_RSRCH_CR !=0 and r_cy_qual_exp < r_gen_50prcnt and r_allw_rsrch_exp <> 0 and r_cy_qual_exp <> 0 and ~�!=0 group by rollup( t�) Order by indy nulls last'€��Else: SQLstring = "select " & indy_cd & " indy_cd, count(*) ct, sum(weight_f) wt, round(sum(" & Item & "*weight_f)) theitem from micro_" & sbyear & extraitems & " and round(" & Item & "*weight_f) <> 0 " & netincm & constraints & " group by rollup(soi_div_cd,case soi_maj_cd when '625' then '6215' when '626' then '622' when '521' then '520' when '522' then '520' else soi_maj_cd end) Order by " & indy_cd & " nulls first"�End If��.\� €�� X%�.\� L�� L��酅L� �� L�� 4$p � L��+L \!��theitem$\ � L��$L��ct$\!: � L��+L�wt$\!: � L��+L \B@�k��dFyk�� 4�� L��$8 L�� L��$8+r \B@B XB@B�'Lo��0��(��鄯Attribute VB_Name = "Module6" Option Base 1 Public myArray2, s, ac, tabNumbyearNSub a rrESV@3() Dim conn As New ADO怐B.Ceck1!rst Recordset UserId琁np€utBox("/SrU€€€€~| ��krU€€€ ��T$�`��nrU€€€€~| ��krU€€€ ��T$�`��n��chema"�, ID"t4� PasswE 1� lastColumn€A€MveSheet.€3dRan,ge€Zs€un�N�Row€ �4 �1�$(Cells(1, 01), �&, �D)€M吔"3�8 s藔杦hat �? (c竃R)丂�罧'僺A�Which羪le �)2,3,4D,5�*R5)纗e you cre@ating?AT宎b� €卋erA@ 'If �""c04" Then@hextra items�" @left o昆r join (sel� scpl,€,omp_di@v_frn_@噋 +nvl(cfc_85,0)) ��othr_@rcpts-l_plcy_caLshB�, e w�& a.retutype "'08','1420') t� c�#tx_ex@mt_int怜el退_m1 end � from micro_" &H& " 哸嶢@蝨rolM 評s@](罠)�@A攊ds b � , edit_1_2lform燺1120-c4Y 're& �&1�%A�'�2h�'E�$霣�5"鰾W"c05�啭 !�X�:�7iU筲€:If Y@�h啜 2 <> 0� ne`dcm羂a�� Fcm_pxos @�i � indW"HUHsoiBbcd#.42@.44ET'41V'cZ 6a36�7%!7!81�90�0' 俌€�� 6" Or牧,7")縮A'ntO�@f�"8l9}f'!笯`iA(It=� '01'!$Kd10,11�聫1�0`]a豲MvdnyMm渆ntity_宎d@q狀al_�'ぇt�_{—taxy蠸mp�/袬1(�'1��= 50C0N燘凟s�8lishAs塓#ne2� toda�牔"濿ith2� .Pr oa5r�MSDA`ORA.102( 昉榥�S0璶ga�1� ID=憉� �=恥;鏍�衱"; D@ Source=SP11. WORLDgOp{!�0E€ A � P&n.CursorLocp恜�= adq`Cli�=uqF厐0i 4 To灲#IP惏�!P焪!a 餰�p"0DIV_�K/ 鵧"(聣膼蠏脪� {襏AS:�� ' C釣e`R�1濦`煈 WW�s黴l�%悑�魸憴�#%n�,1)-dy`檕p�(*) ct捌um(weight_f) w�r�d(spk��*F)A&1^ 72�繑"悝耇67�65-廰3嗮▉℅�?B猒淧湐�€ he强戵T� 0 Then�$ netincm = "and net_incm_pos > 0"�Else: netincm = ""�End If�| case when soi_div_cd in ('42','44') then '41' when soi_div_cd in ('61','62','71','72','81') then '900' else soi_div_cd end 't�$If tabNum = "6" Or tabNum = "7" Then� constraints = ""�)'ElseIf tabNum = "8" Or tabNum = "9" Then�+' constraints = "and return_type = '01'"�*ElseIf tabNum = "10" Or tabNum = "11" Then�5 items10_11 = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) left outer join entity_additional_c05 b using(scpl, edit_1_2) left outer join form_1120_c05 using(scpl, edit_1_2) left outer join tax_comp_c05 using(scpl, edit_1_2) where edit_1_2 in ('1','A')"�o constraints = " and (a.return_type = '05' or (frn_cd = 'Y' and a.RETURN_TYPE not in ('09', '10', '14'))) "�*ElseIf tabNum = "12" Or tabNum = "13" Then�@ constraints = " and a.return_type not in ('02','04','06') "�*ElseIf tabNum = "14" Or tabNum = "15" Then�/ constraints = " and a.return_type = '02' "�*ElseIf tabNum = "16" Or tabNum = "17" Then�<� constraints = " and a.return_type in ('08','20','14') "�*ElseIf tabNum = "24" Or tabNum = "25" Then�E constraints = " and FRN_OWNR_CD = 'Y' and FRN_OWNR_PRCNT >= 50 "�End If�(Establish the connection to the database X�� MSDAORA.19v�User ID= `�; Password= d�; Data Source=SP11.WORLD9xC@q�� | X(z� 4�� f�� 4$p'~�# If arr1(1, i) = "DIV_FRN" Then�5 Item = "(comp_div_frn_corp+nvl(div_cfc_85,0))"� Else: Item = arr1(1, i)� End If� Create a Recordset�&If tabNum = "10" Or tabNum = "11" Then�select nvl( t�3,1) indy, count(*) ct, sum(weight_f) wt, round(sum( ~�!*weight_f)) theitem from control_ T� join form_6765_ T�$ a using (scpl,edit_1_2) join micro_ T�� b using (scpl) where edit_1_2 in ('1','A') and ed_st in ('C','D') and b.return_type not in ('02','04','06') and a.R_TOT_ALLW_RSRCH_CR !=0 and r_cy_qual_exp > r_gen_50prcnt and r_allw_rsrch_exp <> 0 and r_gen_50prcnt <> 0 and ~�!=0 group by rollup( t�) Order by indy nulls last'€��Else: SQLstring = "select " & indy_cd & " indy_cd, count(*) ct, sum(weight_f) wt, round(sum(" & Item & "*weight_f)) theitem from micro_" & sbyear & extraitems & " and round(" & Item & "*weight_f) <> 0 " & netincm & constraints & " group by rollup(soi_div_cd,case soi_maj_cd when '625' then '6215' when '626' then '622' when '521' then '520' when '522' then '520' else soi_maj_cd end) Order by " & indy_cd & " nulls first"�End If��.\� €�� X%�.\� L�� L��酅L� �� L��竧 � 4$p � L��+L \!��theitem$\ � L��$L��ct$\!: � L��+L�wt$\!: � L��+L \B@�k��dFyk�� 4�� L��$8 L�� L��$8+r \B@B XB@B�'Lo��0��(��鄯Attribute VB_Name = "Module7" Option Base 1 Public myArray2, s, ac, tabNumbyearNSub a rrESV@4() Dim conn As New ADO怐B.Ceck1!rst Recordset UserId琁np€utBox("/SIsNumberm�Round� ClearContents{� Transpose桌Sheet2�Sheet3�Sheet4�Module5f arrESVtab26&Module6g arrESVtab37&Module7h arrESVtab48&Workbookk Worksheet窿��!%'�� A�� K��*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.5#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Micros1硛0*� pH�d� VBAProje坈t4@j = r �鑀s�J< r€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`僂OffDic凟Of€i�c侲瀫攢丒2DF8D04C-5BFA-10€1B-BDE5€E訟A€C4€2圗€�gram Files\CommonMicrosoft Shared\OFFICE14\MSO.0DLL#�僊 1€q Ob伭 Li`braryK伾ADODB>A諥DO€B5弨_A75196C-D9EB-4129-B803-931327F72D5ZC�/8僐�/SBW\@ado\ms@28耊�,Activ€eX Data-爏 2.8K.聵� ��聜ThisWork€bookG/俆@刬sW@垹rkb�o�*�2�� HB1娄%B,�!朠"EB+B�Sheet15G€#e噒1�5 2O赑燖OModPule3CM=d�u側3DC峅\萃:y�!�i� 4�4��4�4�/,T.@�1�1�1%�1��~U�2�2�2�2砂8�x�W�6C05�5�z﹑ク�6o6jJ6�6�2o鬲ǖ7�7�7��7�鈛�釿d��@Mo揔*� ��rU€€€€~~~~~~~~~~~~~~ �I鋜鹙踳Bj蔜鋧 �� 儕a � �� €��q��)� ��A� ��Y� ��`��Q��q� ��x��i�� (�� VBAProjectThisWorkbookSheet15Module3Module4Module1Module2Sheet2Sheet3Sheet4Module5Module6Module7��F/C:\PROGRA~1\COMM蘟�� *\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.7#0#C:\Program Files\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.0 Object Library�*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.5#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 12.0 Object Library*\G{2A75196C-D9EB-4129-B803-931327F72D5C}#2.8#0#C:\Program Files\Common Files\System\ado\msado28.tlb#Microsoft ActiveX Data Objects 2.8 Library ��鑀s�� ThisWorkbook0152984a24��!ThisWorkbook��朠%��Sheet150256967a87��%Sheet15��燖��Module30=5298593d��&Module3��y�0\��Module40>5298593d��@Module4��.@H��Module10?5298593d��JModule1��~`��Module20@5298593d��Module2��xx8��Module50A5298593d��Module5��ク�z��Module60B5298593d��Module6��亘�2��Module70C5298593d��Module7��2��(��`��H��i骅:DmO弫‰{ψV��!棉俷XD夫/裩�>��凜�9uIL燁�#狜匁��慰BlM秏檘N:T��*媘@,镠�昱汞&C��N藕倌餇K滇琧?胱�0��@娦�勆��(�闏碫��&亭�6��+n55�諥H謑��f罪R衉M儴苬 .fx兏U&婺E︱湎5��€^[�1Excel€+VBA麾Win16羱Win32Win64xMac巢VBA6�#VBA7�# VBAProject究stdole揱OfficeuADODBs�ThisWorkbook|� €�_Evaluate�Sheet15%PModule3dremoveWeakEstimateIndicatorsC�Application�*ScreenUpdating!arruActiveSheet%N UsedRange葔i`kbCells�Value銴Right NumberFormat誖Module4eWebReadypAarr2}Dg^h_Module1bmyArray2�,sjac}\tabNum�sbyear�arrESVe?connu� Connection谪rst� Recordset阪UserIdj�InputBox� Password鹞 lastColumn<�Columnsp9Count0vlastRoww�Rowsarr1|DRange�indy_cd巔Provider�ConnectionString津CursorLocation�*adUseClient覑Item讂 sqlstring禊ExecuteY�CommandTexteOptions adCmdText#mdEOF魤MoveNextL!Module2cmarkESV�myarray姴xoitemCtd7ItemWt#:totwtf"WorksheetFunction�&ON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA �� A�0�F4C:\Program Files\Microsoft Office\Office14\EXCEL.EXEExcelarrESV ��9�@0�FC:\Windows\system32\stdole2.tlbstdole a��PL续-鶾藉�D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice A��i�`lu*胭)A��'�-\4C:\Program Files\Common Files\System\ado\msado28.tlbADODB a��premoveWeakEstimateIndicators WebReady T 0@markESV arrESVtab2 arrESVtab3 arrESVtab4��F^bC#~t-G∷