Excel Cells that are 'Pick from drop down list" could not be read through ADODB.recodset

Question

Dim ExcelConn As ADODB.Connection
        Dim ExcelRs As ADODB.Recordset
        Dim iidx As Integer
        Set ExcelConn = CreateObject("ADODB.Connection")
        ExcelConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\RRAJENDRAN\Desktop\Final Report Template.xls; Extended Properties=""Excel 8.0;HDR=YES;"""
        ExcelConn.Open
        iidx = 2
        Set ExcelRs = CreateObject("ADODB.Recordset")
        ExcelRs.Open "Select * FROM [Input$]", ExcelConn, 1, 3
        Do While Not ExcelRs.EOF
                Select Case iidx
                    Case 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19
                        Debug.Print iidx & ":" & ExcelRs.Fields(18).Value
                End Select
            ExcelRs.MoveNext
            iidx = iidx + 1
        Loop
        ExcelRs.Close
        ExcelConn.Close
The blank values correspond to cells that are drop -down lists
8:
9:8/11/2014
10:8/14/2014
11:8/15/2014
12:
13:
14:
15:
16:
17:
18:
19:
Raju Rajendran

Answer 1

Hi Raju,
Base on my test in excel 2013, it works fine.
Create a new excel file and save as xls
Add data (data validation for dropdownlist)
What’s the version of your excel? Could you reproduce that issue in a new file? You may share the sample file on the OneDrive.
Regards
Starain
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.