Excel File

[jessi]

Hello,

I need to open an excel Workboot from an existing excel file, but I get the
following error:

Old format or invalid type library

Here is my code:

Dim oExcel As Excel.Application
oExcel = New Excel.Application
Dim oWorkbook As Excel.Workbook
oWorkbook =
oExcel.Workbooks.Open(Filename:=Request.ServerVari ables("APPL_PHYSICAL_PATH")
& "otrapruebamas.xls") 'This line generates the exception
Dim x As String = oWorkbook.Worksheets(1).Range("A1").Value

I need help, thanks!!

[=?Utf-8?B?SmFrb2IgQ2hyaXN0ZW5zZW4=?=]

It has to do with a locale (LCID) bug in Excel. You might solve it by
setting CurrentCulture to en-US. The following links might be of help to you:

http://groups.google.dk/group/micros...a96f514ad3349f

http://groups.google.dk/group/micros...645f5f56732323

HTH, Jakob.
--
http://www.dotninjas.dk

"jessi" wrote:

>
Hello,

I need to open an excel Workboot from an existing excel file, but I get the
following error:

Old format or invalid type library

Here is my code:

Dim oExcel As Excel.Application
oExcel = New Excel.Application
Dim oWorkbook As Excel.Workbook
oWorkbook =
oExcel.Workbooks.Open(Filename:=Request.ServerVari ables("APPL_PHYSICAL_PATH")
& "otrapruebamas.xls") 'This line generates the exception
Dim x As String = oWorkbook.Worksheets(1).Range("A1").Value

I need help, thanks!!

[jessi]

Thanks
"Jakob Christensen" <Ja**************@discussions.microsoft.comwrote in
message news:90**********************************@microsof t.com...

It has to do with a locale (LCID) bug in Excel. You might solve it by
setting CurrentCulture to en-US. The following links might be of help to
you:

http://groups.google.dk/group/micros...a96f514ad3349f

http://groups.google.dk/group/micros...645f5f56732323

HTH, Jakob.
--
http://www.dotninjas.dk

"jessi" wrote:

>>
Hello,

I need to open an excel Workboot from an existing excel file, but I get
the
following error:

Old format or invalid type library

Here is my code:

Dim oExcel As Excel.Application
oExcel = New Excel.Application
Dim oWorkbook As Excel.Workbook
oWorkbook =
oExcel.Workbooks.Open(Filename:=Request.ServerVar iables("APPL_PHYSICAL_PATH")
& "otrapruebamas.xls") 'This line generates the exception
Dim x As String = oWorkbook.Worksheets(1).Range("A1").Value

I need help, thanks!!

[Pritcham]

It might also be to do with your use of the "Filename:=" syntax which
is specific to Excel VBA in this instance

i.e. either change your use of
oExcel.Workbooks.Open(Filename:=Request.ServerVari ables.......

to something like
oExcel.Workbooks.Open("Filename:=" & Request.ServerVariables.....

or find out the order of parameters passed to the Workbooks.Open()
method and skip the "Filename:=" declaration altogether as this is
only really used if you rearrange the parameters in the method call.

hope that helps
Martin