ASP and Excel

By ServerWatch Staff (Send Email)
Posted Jun 10, 1999


by Armand Datema

Here is a new tutorial on how to write to an Excelsheet using ASP. The result is nothing serious, but it shows the potential :)

Here is a new tutorial on how to write to an Excelsheet using ASP. The result is nothing serious, but it shows the potential...

First we set the type of script

<%@ LANGUAGE="VBSCRIPT" %>

Make the object, and set the object to an Excelsheet

Dim ExcelFace
Set ExcelFace = CreateObject("Excel.Sheet")

Now lets write the rest of the script, see the comments

' show or dont show Excel to user, TRUE or FALSE
ExcelFace.Application.Visible = True
' Create the yellow face
ExcelFace.ActiveSheet.Range("F3:K25").Interior.ColorIndex = 6
' Create both the blue eyes
ExcelFace.ActiveSheet.Range("G6:G10").Interior.ColorIndex = 5
ExcelFace.ActiveSheet.Range("J6:J10").Interior.ColorIndex = 5
' Create a purple nose
ExcelFace.ActiveSheet.Range("H13:I18").Interior.ColorIndex = 29
' create a red mouth
ExcelFace.ActiveSheet.Range("G21:J24").Interior.ColorIndex = 3
' Write the text
ExcelFace.ActiveSheet.Cells(1,1).Value = "Now isnt this fun :) "
' Save the the excelsheet to excelface
ExcelFace.SaveAs "c:\excelface.xls"
' Close Excel with the Quit method on the Application object.
ExcelFace.Application.Quit
' Release the object variable.
Set ExcelFace = Nothing
%>

Now lets complete the HTML tags.

<HTML>
<HEAD>
<TITLE>Excelface</TITLE>
</HEAD>
<BODY>
</BODY>
</HTML>

This completes yer ASP page, look below for the complete code of excelface.asp

<%@ LANGUAGE="VBSCRIPT" %>
<%
' Create Object
Dim ExcelFace
Set ExcelFace = CreateObject("Excel.Sheet")
' show or dont show excelto user, TRUE or FALSE
ExcelFace.Application.Visible = True
' Create the yellow face
ExcelFace.ActiveSheet.Range("F3:K25").Interior.ColorIndex = 6
' Create both the blue eyes
ExcelFace.ActiveSheet.Range("G6:G10").Interior.ColorIndex = 5
ExcelFace.ActiveSheet.Range("J6:J10").Interior.ColorIndex = 5
' Create a purple nose
ExcelFace.ActiveSheet.Range("H13:I18").Interior.ColorIndex = 29
' create a red mouth
ExcelFace.ActiveSheet.Range("G21:J24").Interior.ColorIndex = 3
' Write the text
ExcelFace.ActiveSheet.Cells(1,1).Value = "Now isnt this fun :) "
' Save the the excelsheet to excelface
ExcelFace.SaveAs "c:\excelface.xls"
' Close Excel with the Quit method on the Application object.
ExcelFace.Application.Quit
' Release the object variable.
Set ExcelFace = Nothing
%>
<HTML>
<HEAD>
<TITLE>Excelface</TITLE>
</HEAD>
<BODY>
</BODY>
</HTML>

Download Code

Page 1 of 2


Comment and Contribute

Your name/nickname

Your email

(Maximum characters: 1200). You have characters left.