globalscape/vbs/excel.vbs

19 lines
308 B
Plaintext

Dim objXL
Dim objWB
Dim objWS
Set objXL = CreateObject("Excel.Application")
Set objWB = objXL.Workbooks.Open("C:\wd\scripts\blahblah.xls")
Set objWS = objWB.Worksheets("sheet1")
objWS.Rows(1).EntireRow.Delete
objWB.Save
objWB.Close
objXL.Quit
Set objXL = Nothing
Set objWB = Nothing
Set objWS = Nothing