Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1827
  • Last Modified:

Having Problems with Microsoft Excel 11.0 object library to work on iis 6.0 server using asp.net vb

I am trying to create an excel spreadsheet at runtime to be displayed to users over the web.
(Office 2003 has been installed on all computers and iis server)

I have added the refference to "Microsoft Excel 11.0 Object Library" to my VisualStudio 2005 web project which is located on the iis server.

The website is a private site where users must be authenticated..(No problems there just adding background) the site works fine but when i try to create a worksheet i get an error:

****** this is the error displayed in ie when i run the page ****************************
_________________________________________________________________

Retrieving the COM class factory for component with CLSID {00020819-0000-0000-C000-000000000046} failed due to the following error: 80040154.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.Runtime.InteropServices.COMException: Retrieving the COM class factory for component with CLSID {00020819-0000-0000-C000-000000000046} failed due to the following error: 80040154.

Source Error:


Line 14:     Private Sub CreateSpreadsheet()
Line 15:         thisExcel = New Excel.Application
Line 16:         thisWorkbook = New Excel.Workbook    <-------- Error occurs here
Line 17:         thisExcel.Workbooks.Add("D:\INTERNET\test\Test\Excel_Templates\Forecasting_Template_1.xls")
Line 18:         'thisWorkbook = thisExcel.Workbooks.Open(, )
 


'this is the code for the page that is run:
 
 
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports Excel = Microsoft.Office.Interop.Excel
 
Partial Class Report_Forecasting_Excel_1
    Inherits System.Web.UI.Page
 
    'Create Excel Objects
    Dim thisExcel As Excel.Application
    Dim thisWorkbook As Excel.Workbook
    Dim thisWorksheet As Excel.Worksheet
 
    Private Sub CreateSpreadsheet()
        thisExcel = New Excel.Application
        thisWorkbook = New Excel.Workbook
        thisExcel.Workbooks.Add("D:\INTERNET\test\Test\Excel_Templates\Forecasting_Template_1.xls")
        'thisWorkbook = thisExcel.Workbooks.Open(, )
        thisExcel.Visible = True
        thisWorkbook.Activate()
 
        thisExcel.Workbooks.Add(thisWorkbook)
        thisWorksheet = New Excel.Worksheet
        thisWorkbook.Worksheets.Add(thisWorksheet)
        thisWorkbook.Application.Visible = True
 
        thisWorksheet.Cells(1, 1) = "hello there"
    End Sub
 
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        CreateSpreadsheet()
    End Sub
End Class

Open in new window

0
LennyCXIII
Asked:
LennyCXIII
  • 2
1 Solution
 
Anurag ThakurCommented:
can you please confirm that doing these settings make any difference
http://blog.crowe.co.nz/archive/2006/03/02/589.aspx
0
 
LennyCXIIIAuthor Commented:
I changed the page code to the following and now i get no errors but i just see a blank page.
how do i display the excel sheet: in the browser window

*******************NEW CODE*****************

Imports System.Reflection
Imports System.Runtime.InteropServices
Imports Excel = Microsoft.Office.Interop.Excel

Partial Class Report_Forecasting_Excel_1
    Inherits System.Web.UI.Page

    'Create Excel Objects
    Dim thisExcel As Excel.Application
    Dim thisWorkbook As Excel.Workbook
    Dim thisWorksheet As Excel.Worksheet

    Private Sub CreateSpreadsheet()
        thisExcel = New Excel.Application
        thisExcel.Workbooks.Add("D:\INTERNET\test.JazzCameras.com\Test\Excel_Templates\Forecasting_Template_1.xls")
        thisWorkbook = thisExcel.Workbooks(1)
        thisWorkbook.Activate()
        thisWorksheet = thisWorkbook.Worksheets(1)
        thisWorkbook.Application.Visible = True
        thisWorksheet.Cells(10, 10) = "hello there"
    End Sub


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        CreateSpreadsheet()
    End Sub
End Class
0
 
LennyCXIIIAuthor Commented:
or add     to the global.conf
0

Featured Post

Ask an Anonymous Question!

Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now