怎樣把值輸入到新建的excel中。

怎樣把值輸入到新建的excel中。

Set Excel = CreateObject("Excel.Application")

oexcel.Workbooks.Add()

oExcel.DisplayAlerts=FALSE '不顯示提示信息,這樣保存的時候就不會提示是否要覆蓋原文件

oExcel.Cells(1, 1).Value=6   '可以把六改成過程中你要輸出的值）
oexcel.ActiveWorkbook.SaveAs(createobject("wscript.shell").currentdirectory&"\test.xls")
oExcel.Quit
Set Excel = Nothing