เกี่ยวกับ spreadsheet ของ excel ครับ อยากเขียนโค๊ดเพื่อแสดง spreadsheet ของไฟล์ excel ออกที่ dropdownlist ครับ

        Dim objExcel As Excel.Application
        Dim objWorkBook As Excel.Workbook
        Dim totalWorkSheets As Excel.Worksheet
        
        objExcel = CreateObject("Excel.Application")
        objWorkBook = objExcel.Workbooks.Open("Partfile.xls")

        For Each totalWorkSheets In objWorkBook.Worksheets        
            dropdownlist.Items.Add(totalWorkSheets.Name)
        Next totalWorkSheets