Problem with sheetnames in excel....

[Elsje]

Hello,

I have a problem with retrieving the excel-sheetnames in a file.

I use the following code to get these names and this works fine:
Dim schemaTable As DataTable = conExcel.GetOleDbSchemaTable(Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})

But my problem is that I get the names in alphabetical order and I want them in the order of the file.

Thanks in advance...
Elsje

 

[waddellg]

Hi
The only way I know how to do it is to use the Excel application and parse through the worksheets:

dim XL as new Microsoft.Office.Interop.Excel.Application
dim xlWS as Microsoft.Office.Interop.Excel.Worksheet
dim xlWB as Microsoft.Office.Interop.Excel.Workbook
dim strSheet as string

xlWB = XL.Workbooks.Add("C:\myXL.xls")
for each xlWS in xlWB.Worksheets
 strSheet = xlWS.Name
next