Excel Object Error

[RazerWriter]

Here is the code:
1 Dim exExcel As Excel.Application
2 Dim exWorkbook As Excel.Workbook
3 Dim exSheet As Excel.Worksheet

5 exExcel = New Excel.Application
6 exWorkbook = exExcel.Workbooks.Open(strFilename)
7 exSheet = exWorkbook.Worksheets("Sheet1")



I get an error at line 6 saying:
---------------------------------------------------------------------------
An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in Program.exe

Additional information: The server threw an exception.

---------------------------------------------------------------------------

Now I know the file exists, and all dll's are loaded. Why am I coming up with this error?

Just in case, it might help to know that I am running under the NET framework, not vb6. I am using Excel 8.0 Object Library

[dRAMmer]

i dont know about how u do this in NET framework
but in vb you should use the SET keyword to reference an object

 Dim exExcel As Excel.Application
 Dim exWorkbook As Excel.Workbook
 Dim exSheet As Excel.Worksheet

 Set exExcel = New Excel.Application
 Set exWorkbook = exExcel.Workbooks.Open(strFilename)
 Set exSheet = exWorkbook.Worksheets("Sheet1")

[RazerWriter]

Actually I solved the problem myself, but I had to do quite a bit of searching to get it. Here is the update code:

Option Strict Off

Public Shared xlApp As Object
Public Shared xlBook As Object
Public Shared xlSheet As Object

xlApp = CreateObject("Excel.Application")
'Late bind an instance of an Excel workbook.
xlBook = xlApp.Workbooks.Add
'Late bind an instance of an Excel worksheet.
xlSheet = xlBook.Worksheets(1)
xlSheet.Activate()

xlBook.SaveAs(strFilename)

[csar]

Option Strict Off

Public Shared xlApp As Object
Public Shared xlBook As Object
Public Shared xlSheet As Object

xlApp = CreateObject("Excel.Application")
'Late bind an instance of an Excel workbook.
xlBook = xlApp.Workbooks.Add
'Late bind an instance of an Excel worksheet.
xlSheet = xlBook.Worksheets(1)
xlSheet.Activate()

xlBook.SaveAs(strFilename)

your code for VB6 or .Net I never use Shared statement

[RazerWriter]

i don't see the point of not using shared, whats so bad about it?

[csar]

Sorry for my english..

I mean, I don't know about Shared statement. It's used for VB6 or VB.Net.


I have same problem with u, how to solve please?

[RazerWriter]

The .NET code looks like this:

Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strFilename & ";" & _
"Extended Properties=Excel 8.0;"
'Excel Sheet Name as TableName (Make sure where Sheet1 appears that you change the name to your sheet name)
xlOleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn)
xlOleDbDataAdapter.Fill(DataForm.xlData, "Sheet1")
xlGrid.DataSource = DataForm.xlData.Tables(0).DefaultView