Springen naar inhoud


- - - - -
VB6

Excelsheets In Listbox



  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 Marc Devlieger

Marc Devlieger

    Starting Developer

  • Leden
  • 13 berichten
    Laatst bezocht 05 mei 2015 17:51

Geplaatst op 04 februari 2015 - 22:04

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

#2 Marc Devlieger

Marc Devlieger

    Starting Developer

  • Leden
  • 13 berichten
    Laatst bezocht 05 mei 2015 17:51

Geplaatst op 04 februari 2015 - 22:38

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.





Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)