qaz123654

dim aa
aa=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1) 
Set oexcel=CreateObject("excel.application")
oexcel.Workbooks.Add()
oexcel.Cells(3,3).Value = "4 1"
oexcel.Cells(10,6).Value = "10 6"
oexcel.ActiveWorkbook.SaveAs(aa+"\test.xls")
oexcel.Quit
复制代码

qaz123654

的确是看错了~~

 
dim aa
aa=createobject("wscript.shell").currentdirectory&"\"
Set oexcel=CreateObject("excel.application")
oexcel.Workbooks.Add()
Set obj = oexcel.Range("C3","F10")
obj.columns ="=CONCATENATE(ROW(),"" "",COLUMN())" 
oexcel.ActiveWorkbook.SaveAs(aa+"test.xls")
oexcel.Quit
复制代码