set app = createobject("Excel.Application") set wb = app.workbooks.add set ws = wb.Worksheets(1) ws.Cells(1,1) = "1234" ws.Cells(2,1) = "4321" ws.Cells(3,1) = "=SUM(R[-1]C,R[-2]C)" response.write ws.Cells(3,1) set ws = nothing set wb = nothing app.quit set app = nothing |