Export to Excel from ASP form

BEJW · Jun 4, 2003

Hi All,

The following are my codes, but I got error:

"Export error '80010108'
The object invoked has disconnected from its clients.

Any suggestion?

Thanks.
JW

<HTML>
<HEAD><%@ LANGUAGE="VBSCRIPT" %>
<TITLE>Excelface</TITLE>
</HEAD>
<BODY>

<%
dim whichAction
dim myconnection
dim rsPatientInfo
dim connectString
dim sqlString
dim requestPatientID

whichAction = Request.Form("Action&quot

response.write(whichAction)

' Create Object
Dim ExcelFace
Set ExcelFace = CreateObject("Excel.Sheet&quot

' show or dont show excel to user, TRUE or FALSE
ExcelFace.Application.Visible = True

connectString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\Inetpub\

http://wwwroot\A.mdb"

set myConnection = Server.CreateObject("ADODB.Connection&quot

set rsPatientInfo = Server.CreateObject("ADODB.Recordset&quot

'Set ExcelFace = CreateObject("Excel.Sheet&quot

' show or dont show excelto user, TRUE or FALSE
ExcelFace.Application.Visible = True

connectString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\Inetpub\

http://wwwroot\A.mdb"

set myConnection = Server.CreateObject("ADODB.Connection&quot

set rsPatientInfo = Server.CreateObject("ADODB.Recordset&quot

sqlString = "select * from Patients, Examinations where Patients.PatientID = Examinations.ID"
' open a connection
myConnection.Open connectString
' create a recordset
Set rsPatientInfo = myConnection.Execute(sqlString)

dim counter
counter = 0
with rsPatientInfo
do while not .EOF Or .BOF
ExcelFace.ActiveSheet.Range("F3:K25&quot

.Interior.ColorIndex = 6
' Create both the blue eyes
ExcelFace.ActiveSheet.Range("G6:G10&quot

.Interior.ColorIndex = 5
ExcelFace.ActiveSheet.Range("J6:J10&quot

.Interior.ColorIndex = 5
' Create a purple nose
ExcelFace.ActiveSheet.Range("H13:I18&quot

.Interior.ColorIndex = 29
' create a red mouth
ExcelFace.ActiveSheet.Range("G21:J24&quot

.Interior.ColorIndex = 3
' Write the text
ExcelFace.ActiveSheet.Cells(counter,1).Value = fields(0)
counter = counter + 1
.MoveNext
LOOP
end with

' Save the the excelsheet to excelface
dim fileName
fileName = inputbox ("Enter File name", "File Name&quot

ExcelFace.SaveAs fileName ' "c:\excelface.xls"
' Close Excel with the Quit method on the Application object.
ExcelFace.Application.Quit
' Release the object variable.
Set ExcelFace = Nothing
%>

The data is exported to file:
<a href="
<% response.write(fileName) %>
"><% response.write(fileName) %>
' open a connection
myConnection.Open connectString
' create a recordset
Set rsPatientInfo = myConnection.Execute(sqlString)

dim counter
counter = 0
with rsPatientInfo
do while not .EOF Or .BOF
ExcelFace.ActiveSheet.Range("F3:K25&quot

.Interior.ColorIndex = 6
' Create both the blue eyes
ExcelFace.ActiveSheet.Range("G6:G10&quot

.Interior.ColorIndex = 5
ExcelFace.ActiveSheet.Range("J6:J10&quot

.Interior.ColorIndex = 5
' Create a purple nose
ExcelFace.ActiveSheet.Range("H13:I18&quot

.Interior.ColorIndex = 29
' create a red mouth
ExcelFace.ActiveSheet.Range("G21:J24&quot

.Interior.ColorIndex = 3
' Write the text
ExcelFace.ActiveSheet.Cells(counter,1).Value = fields(0)
counter = counter + 1
.MoveNext
LOOP
end with

' Save the the excelsheet to excelface
dim fileName
fileName = inputbox ("Enter File name", "File Name&quot

ExcelFace.SaveAs fileName ' "c:\excelface.xls"
' Close Excel with the Quit method on the Application object.
ExcelFace.Application.Quit
' Release the object variable.
Set ExcelFace = Nothing
%>

The data is exported to file:
<a href="
<% response.write(fileName) %>
"><% response.write(fileName) %>
%>
</BODY>
</HTML>

onpnt · Jun 4, 2003

this is a long shot, but should be
Set ExcelFace = Server.CreateObject("Excel.Sheet&quot

I have to admit I have never seen this error and there isn't much out there for reference to it but some crystal report version issues. I'll seach a bit longer and see but I think I'm at a loss.

____________________________________________________
_{$str = "sleep is good for you. sleep gives you the energy you need to function";

$Nstr = ereg_replace("sleep","coffee",$str); echo $Nstr;}

_{http://www.onpntwebdesigns.com}

sergeiY · Jun 5, 2003

onpnt

this is an off topic but I still want to ask ...

I've seen many questions were people create instances of various MsOffice objects such as Excel or Access ... this is seems really intresting to me ... it opens new horisonts

where can I find more info on what objects I can create and their methods and properties ?

sorry again for off topic

Sergei

BEJW · Jun 5, 2003

Hi, onpnt,

But I got another error when I changed to " Set ExcelFace = Server.CreateObject("Excel.Sheet&quot

".

The Error:Server object error 'ASP 0196 : 80040154'

Cannot launch out of process component

/post.asp, line 20

Only InProc server components should be used. If you want to use LocalServer components, you must set the AspAllowOutOfProcComponents metabase setting. Please consult the help file for important considerations.

Thanks again.
JW

onpnt · Jun 5, 2003

afer checking I was incorrect in that.

still looking into this error though and I'm coming up short which is getting lightly irritable.

anyone else have some suggestions on the error. I've in assuming this is not the script and a IIS component problem. maybe I'm just searching in the wrong place.

____________________________________________________
_{$str = "sleep is good for you. sleep gives you the energy you need to function";

$Nstr = ereg_replace("sleep","coffee",$str); echo $Nstr;}

_{http://www.onpntwebdesigns.com}

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Export to Excel from ASP form

BEJW

Programmer

onpnt

Programmer

sergeiY

Programmer

BEJW

Programmer

onpnt

Programmer

Similar threads

Part and Inventory Search

Sponsor