01.Dim objExcel As Excel.Application
02.Dim objWorkBook As Excel.Workbook
03.Dim totalWorkSheets As Excel.Worksheet
04.
05.objExcel = CreateObject("Excel.Application")
06.objWorkBook = objExcel.Workbooks.Open("Partfile.xls")
07.
08.For Each totalWorkSheets In objWorkBook.Worksheets
09. dropdownlist.Items.Add(totalWorkSheets.Name)
10.Next totalWorkSheets
