🚀 go-pugleaf

Het is vrij gemakkelijk.  Hierbij een voorbeeldje
    Dim dbXLS As DAO.Database
    Dim rsXLS As DAO.Recordset
    Dim myVar as string
    Set dbXLS = OpenDatabase(xlsFile, False, False, "Excel 8.0;HDR=yes;")
    strSheet = dbXLS.TableDefs(0).Name
    Set rsXLS = dbXLS.OpenRecordset(strSheet)
    Do While Not rsXLS.EOF        ' elke lijn
        myVar = rsXLS.fields({kolomnummer})        'elke kolom
        rsXLS.Movenext
    loop
    rsXLS.Close
    dbXLS.Close

Wel Microsoft DAO 2.5/3.5 toevoegen aan uw References.

Geoffrey Frederickx
www.geoware.be
info@nospam.geoware.be



"Hugo Maes" <Hugo.Maes@chello.be> wrote in message
news:3D77E4C6.10EA0A65@chello.be...
> Weet er iemand hoe een bestaand Excel spreadheet uit te lezen vanuit
> Visual Basic [dus niet via VBA die in Excel zelf zit].
> Tenzij ik erover heb gekeken is er geen standaard ActiveX in VB zelf om
> dit te doen.
> Mijn probleem hierbij is dat het een tijdelijk project is dat ik in 1
> week klaar moet hebben, en daarom prefereer ik in mijn vertrouwde VB
> omgeving te blijven. Ook Google helpt me niet direkt op weg, noch mijn
> MSDN, noch mijn VB6 handboeken.
>
> mvg en dank bij voorbaat, HM