Data Import Utility

[need2progm]

Does any one know a way to get a collection of Worksheets form an excel workbook?

I want to provide the user a list of the available worksheets in a dropdown list and I am not sure how to get them.

Thanks in Advance for any help you can provide

 

[SqueakinSweep]

Firstly Import a COM Reference for MS Excel into your project

Dim oExcel As New Excel.Application
oExcel.Workbooks.Open("c:\downloads\book1.xls")

Dim iCount As Integer = oExcel.Sheets.Count
For i As Integer = 0 To iCount - 1
   Dim sName As String = oExcel.Sheets(i).Name
Next

Code is untested, and it may only work with certain versions of the COM library. I suspect it may not work with version 10.

Sweep
...if it works dont mess with it

 

[need2progm]

Thanks for the code example....

So I guess I will use the com object then through it into a ado object.. Will look at this .. Thank you

 

[need2progm]

This worked GREAT ..

Private Sub GetExcelWorkSheets(ByVal ExcelBookName As String)
Dim Excel As New Excel.Application
Excel.Workbooks.Open(ExcelBookName)

'add all the sheets name to an arraylist
Dim ExcelSheet As Excel.Worksheet
Dim ExcelSheets As New ArrayList
For Each ExcelSheet In Excel.Sheets
ExcelSheets.Add(ExcelSheet.Name)
Next

'Now databind...


One question.. I added a reference to excel.. the version was 2.3 .. Will this work with non 2003 version of office/excel?