Batcher

test.vbs

'修改Excel
Set objExcel = Nothing 
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\test\a.xls")
objExcel.WorkSheets(1).Activate
objExcel.Cells(2, 1).Value = "23456"
objExcel.ActiveWorkbook.Save
objWorkbook.Close
objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing
复制代码