S
Shetty
Hi all,
I have a small script running at each startup and shutdown.
At the runtime, it gives error that ---> Object doesn't support this property or
method; 'Activeworkbook.range' <---
Any Help is appreciated.
Regards,
Shetty.
So far I have the following.
Dim objXL
Dim objWkB
Dim i
Dim Dr
Set objXL = wscript.CreateObject("Excel.Application")
objXL.Visible = False
Set objWkB = objXL.WorkBooks.Open("c:\123\time.xls")
objXL.activeworkbook.Range("A65536").End(xlUp).Offset(1, 0).select
objXL.activeworkbook.ActiveCell.Value = Date
objXL.activeworkbook.ActiveCell.Offset(0, 1).Value = Time
objXL.activeworkbook.save
objXL.activeworkbook.Close' Close WorkBook
objXL.Visible = True
objXL.Quit 'Quit Excel
I have a small script running at each startup and shutdown.
At the runtime, it gives error that ---> Object doesn't support this property or
method; 'Activeworkbook.range' <---
Any Help is appreciated.
Regards,
Shetty.
So far I have the following.
Dim objXL
Dim objWkB
Dim i
Dim Dr
Set objXL = wscript.CreateObject("Excel.Application")
objXL.Visible = False
Set objWkB = objXL.WorkBooks.Open("c:\123\time.xls")
objXL.activeworkbook.Range("A65536").End(xlUp).Offset(1, 0).select
objXL.activeworkbook.ActiveCell.Value = Date
objXL.activeworkbook.ActiveCell.Offset(0, 1).Value = Time
objXL.activeworkbook.save
objXL.activeworkbook.Close' Close WorkBook
objXL.Visible = True
objXL.Quit 'Quit Excel