Hello,

If the ASP.NET app's account is a local administrator, it is enough to
invoke the Office component. We don't need impersonate as the one Microsoft
Office is currently runnning under. To confirm this, you can close all
Office process on the server and test again.

Regarding the problem, is there any more information with the error "HTTP
Error 403 - Forbidden"? For example, "Execute Access Denied"? or "SSL
require"? Is the virtual folder has been enabled as a IIS app? If you
create a virtual directory, create a new asp.net application in it, will it
work?

Luke

I uninstall the Office XP PIAs and re-install it back.
I don't have the denied error anymore, but there is another new error:


"QueryInterface for interface Microsoft.Office.Interop.Excel._Application
failed"

Stack Trace:
[InvalidCastException: QueryInterface for interface
Microsoft.Office.Interop.Excel._Application failed.]
Microsoft.Office.Interop.Excel.ApplicationClass.get_Workbooks() +0
WeekendScript.RefreshDatabase.readButton_Click1(Object sender, EventArgs
e) +138
System.Web.UI.WebControls.Button.OnClick(EventArgs e) +108

System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +57
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler
sourceControl, String eventArgument) +18
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +33
System.Web.UI.Page.ProcessRequestMain() +1277



(RefreshDatabase is the page name, and weekendScript is the app. name)


and here what inside readButton_click event:
Protected Sub readButton_Click1(ByVal sender As Object, ByVal e As
System.EventArgs) Handles readButton.Click

Dim link As String
Dim i, max_row, max_col As Int16
Dim xl As New Excel.Application
Dim wb As Excel.Workbook = xl.Workbooks.Open("c:\excelFilePath.xls")

xl.DisplayAlerts = False
Dim ws As Excel.Worksheet = xl.ActiveSheet

Dim ds As New DataSet
Dim dt As New DataTable

ds = GetTableShema() ' function to get a table shema ..... ... ...

For Each ws In xl.Worksheets
max_row = ws.UsedRange.Rows.Count
max_col = ws.UsedRange.Columns.Count

For i = 7 To max_row
link = "F" & i
If ws.Range(link).Hyperlinks.Count > 0 Then
Dim dr As DataRow
dr = ds.Tables(0).NewRow
dr(0) = ws.Range(link).Hyperlinks(1).Address()
ds.Tables(0).Rows.Add(dr)
End If
Next
Next

xl.Quit()
End Sub

From the error information, the interface of Excel cannot be found. It
seems there are some problem in system registry during Office Installation.
Can you create an Excel object in another application, for example, in a
VBscript file?

Luke