View Single Post
 
Old 02-22-2010, 01:43 PM
sword.fish sword.fish is offline Windows 2K Office 2003
Novice
 
Join Date: Feb 2010
Posts: 3
sword.fish is on a distinguished road
Default Cannot generate 2003 Excel reports on Windows 2008 /IIS7

Hi There,

Software Installed on our server:
Operating System: Windows 2008 / IIS7
Web App: developed in 2.0 Framework
Office 2003

After migrating from our Win2003 / office 2003 to Win2008/IIS7 we are unable to generate the Excel reports.

Step: 1
I have created an Excel.html page with the following code (See below), when I run this page from the servers desk top, it generates the Excel report with the chart etc.
Step: 2
When I copy the same Excel.html to IIS7 it throws the following error:
Message: ActiveX component can't create object: 'Excel.Application'
createobject("Excel.Application") Failed
Line: 12
Char: 11
Code: 0
URI: http://localhost/Excel.html
We have installed office 2003 on the server:

I have tried the solution provided by the following URL
http://blog.crowe.co.nz/archive/2006/03/02/589.aspx , but the problem is that I cant find "Microsoft Excel Application" in the "Component Services" MMC window, to grant access to Excel.

Excel.HTML Code:
<HTML>
<BODY>
<INPUT id=button1 name=button1 type=button value=Button>
<SCRIPT LANGUAGE="VBScript">
sub button1_onclick()
' Launch Excel
dim app
set app = createobject("Excel.Application")

' Make it visible
app.Visible = true

' Add a new workbook
dim wb
set wb = app.workbooks.add

' Fill array of values first...
dim arr(19,9) ' Note: VBScript is zero-based
for i = 1 to 20
for j = 1 to 10
arr(i-1,j-1) = i*j
next
next

' Declare a range object to hold our data
dim rng
set rng = wb.Activesheet.Range("A1").Resize(20,10)

' Now assign them all in one shot...
rng.value = arr

' Add a new chart based on the data

wb.Charts.Add
wb.ActiveChart.ChartType = 70 'xl3dPieExploded
wb.ActiveChart.SetSourceData rng, 2 ' xlColumns
wb.ActiveChart.Location 2, "Sheet1" 'xlLocationAsObject

' Rotate it around...
for i = 1 to 360 step 30
wb.activechart.rotation = i
next
' Give the user control of Excel
app.UserControl = true
end sub
</SCRIPT>
</BODY>
</HTML>

Please help, and thanks HEAPS in advance,
Cheers
Sword.fish

Last edited by sword.fish; 02-22-2010 at 03:44 PM.
Reply With Quote