Er zijn 1 reacties in dit onderwerp

[Marc Devlieger]

Hoi hoe krijk ik mijn excelsheets in listbox of cmbox ?

Heb code... doch krijg het niet goed :

If CnnADO_Excel.State <> adStateClosed Then CnnADO_Excel.Close

    ExcelPath = Form_98.Dir1.Path & "\"
    ExcelName = Form_98.File1.FileName

    CnnADO_Excel.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & ExcelPath & ExcelName & ";" & _
    "Extended Properties=""Excel 8.0;HDR=Yes"";"

    Set Rsado_Excel = CnnADO_Excel.OpenSchema(adSchemaTables)

    Rsado_Excel.MoveFirst


    Do While Rsado_Excel.EOF
    Form_03.CMBMap.AddItem Rsado_Excel.Fields("TABLE_NAME").Value
    Rsado_Excel.MoveNext
    Loop

    Rsado_Excel.Close
    Set Rsado_Excel = Nothing

[Marc Devlieger]

Probleem deels opgelost :

    Set Rsado_Excel = CnnADO_Excel.OpenSchema(adSchemaTables, _
    Array(Empty, Empty, Empty, "Table"))

    Rsado_Excel.MoveFirst


    Do While Not Rsado_Excel.EOF
    Form_03.CMBMap.AddItem Rsado_Excel!TABLE_NAME
    Rsado_Excel.MoveNext
    Loop


Maar ik krijg een dubbele waarde in 'cmbmap' ... op het einde van item komt er 'afdruktitels' erbij.