Problem Opening an Corrupted Excel file

[Boomessh]

Hi,
I am trying to open an existing excel workbook. It pops up an error
stating that
“Errors were detected in 1598.xls but Microsoft Office Excel was able to
open the file by making the repairs listed below. Save the file to make these
repairs permanent.� ‘Renamed invalid sheet name.’“

This message is popped up when the XLS file has work sheet with the name
like rpt:coursedetai ls etc.,

When trying to open this workbook, programmaticall y in VB.Net, the following
exception is raised:

An unhandled exception of type 'System.Runtime .InteropService s.COMException'
occurred in ExcelObjetCreat ion.exe

Additional information: Exception from HRESULT: 0x800A03EC.

Could you please tell me how this exception can be handled?

DO THERE IS ANY WAY

The code that i have written to open a currepted file is as below

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim xlApp As New Excel.Applicati on
Dim xlworkBook As Workbook
Dim xlSheet As Worksheet
Dim ExcelFile_Path As String = "C:\XLReports\9 13.xls"
xlApp = CreateObject("E xcel.Applicatio n")
xlSheet = xlApp.ActiveShe et()
MsgBox(xlSheet. Name)
xlworkBook = xlApp.Workbooks .Open(ExcelFile _Path)
MsgBox(xlworkBo ok.Name)
xlSheet = xlworkBook.Shee ts(1)
MsgBox(xlSheet. Name)
xlSheet.Name = "Mysheet"
MsgBox(xlSheet. Name)

End Sub

I get an error at the following code
xlworkBook = xlApp.Workbooks .Open(ExcelFile _Path)
I feel like that its not possible to open a workbook which has a corrupted
sheetname.
How do microsoft open such file and ask for renaming it,and rename it?

[Jimmy Jose]

You can use this to open a correpted report and rename it.
Case "EXCEL"

strFullPath = strSpoolPath & strReportID & ".xls"

strOutputFormat = Constants.acFor matXLS

If InStr(strRepNam e, ":") Then

Dim strNewRepName As String

strNewRepName = Replace(strRepN ame, ":", "_")

objAcc.DoCmd.Co pyObject(, strNewRepName,
AcObjectType.ac Report, strRepName)
objAcc.DoCmd.Ou tputTo(AcOutput ObjectType.acOu tputReport, strNewRepName,
Constants.acFor matXLS, strFullPath, False)

objAcc.DoCmd.De leteObject(AcOb jectType.acRepo rt,
strNewRepName)

Else
objAcc.DoCmd.Ou tputTo(AcOutput ObjectType.acOu tputReport, strRepName,
Constants.acFor matXLS, strFullPath, False)

End If

strFilename = strReportID & ".xls"
"Boomessh" wrote:

Hi,
I am trying to open an existing excel workbook. It pops up an error
stating that
“Errors were detected in 1598.xls but Microsoft Office Excel was able to
open the file by making the repairs listed below. Save the file to make these
repairs permanent.� ‘Renamed invalid sheet name.’“

This message is popped up when the XLS file has work sheet with the name
like rpt:coursedetai ls etc.,

When trying to open this workbook, programmaticall y in VB.Net, the following
exception is raised:

An unhandled exception of type 'System.Runtime .InteropService s.COMException'
occurred in ExcelObjetCreat ion.exe

Additional information: Exception from HRESULT: 0x800A03EC.

Could you please tell me how this exception can be handled?

DO THERE IS ANY WAY

The code that i have written to open a currepted file is as below

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim xlApp As New Excel.Applicati on
Dim xlworkBook As Workbook
Dim xlSheet As Worksheet
Dim ExcelFile_Path As String = "C:\XLReports\9 13.xls"
xlApp = CreateObject("E xcel.Applicatio n")
xlSheet = xlApp.ActiveShe et()
MsgBox(xlSheet. Name)
xlworkBook = xlApp.Workbooks .Open(ExcelFile _Path)
MsgBox(xlworkBo ok.Name)
xlSheet = xlworkBook.Shee ts(1)
MsgBox(xlSheet. Name)
xlSheet.Name = "Mysheet"
MsgBox(xlSheet. Name)

End Sub

I get an error at the following code
xlworkBook = xlApp.Workbooks .Open(ExcelFile _Path)
I feel like that its not possible to open a workbook which has a corrupted
sheetname.
How do microsoft open such file and ask for renaming it,and rename it?