<%
Dim xls
Set xls = CreateObject("Excel.Application")
Dim rows
Dim cols
Const xlReadWrite = 3
xls.Workbooks.Open server.MapPath("yourfile.xls"), xlReadWrite, False
xls.Sheets("Sheet1").Select
xls.ActiveSheet.Cells(1,1).Value = "Wahoo"
xls.ActiveSheet.Cells(1,2).Value = "(1,2)"
xls.ActiveSheet.Cells(3,3).Value = "=Sum(A4+B4)"
xls.ActiveSheet.Cells(4,4).Value = 7777
rows = xls.ActiveSheet.UsedRange.rows.Count
cols = xls.ActiveSheet.UsedRange.columns.Count
response.Write(rows & " rows<br>")
response.Write(cols & " columns<br>")
xls.Save
xls.Application.Quit
Set xls = Nothing
response.Write("Done!")
%>