Inlezen groot bestand met combobox VBA traag

W

WilElektro

Gebruiker
Lid geworden
13 mrt 2025
Berichten
29
Hallo, ik heb en excel bestand met een combobox om artikelen in te lezen tbv een calculatie programma; ik he een werkend excel bestand, echter de in te lezen artikelen komen uit een extern zeer groot bestand; ca 260 duizend artikelen; ik heb een verkorte versie als voorbeeld bijgevoegd, eveneens een verkort artikelenbestand; Hoe zou je dit kunnen oplossen? Zodat ik verder kan met mijn programma; Alvast dank
 

Bijlagen

Probeer eens of het zo sneller gaat met het grote bestand.
AddItem vervangen.
 

Bijlagen

Al eens aan DAO gedacht ?
Overlaatst nog een code geschreven voor iemand die 72K rijen inlas in 0.6sec.
 
Scrollen door 260.000 artikelen in een combobox werkt niet echt handig.
Maar als je kunt filteren op artikelomschrijving met behulp van wildcards wordt het een stuk makkelijker.
Bijgaand een voorbeeld voor "Artikelen toevoegen groot", in het zoekvak kun je filteren op artikelomschrijving.
Met * vind je alle artikelen
Begin gewoon eens met letters intikken, je kunt ook wildcards (* en ?) gebruiken.
Probeer een *45
of Aar
of B
De rest van de functionaliteit van het formulier werkt nu niet meer, dit voorbeeld is alleen bedoeld om te laten zien hoe je met AdvancedFilter zou kunnen werken.
 

Bijlagen

Je kunt mogelijk e.e.a. nog optimaliseren, maar Excel is van nature niet al te snel en er komt dus een einde aan wat haalbaar is. Misschien een goed moment om eens na te gaan denken over het gebruik van een echte database.
 
AHulpje zei:
Scrollen door 260.000 artikelen in een combobox werkt niet echt handig.
Maar als je kunt filteren op artikelomschrijving met behulp van wildcards wordt het een stuk makkelijker.
Bijgaand een voorbeeld voor "Artikelen toevoegen groot", in het zoekvak kun je filteren op artikelomschrijving.
Met * vind je alle artikelen
Begin gewoon eens met letters intikken, je kunt ook wildcards (* en ?) gebruiken.
Probeer een *45
of Aar
of B
De rest van de functionaliteit van het formulier werkt nu niet meer, dit voorbeeld is alleen bedoeld om te laten zien hoe je met AdvancedFilter zou kunnen werken.
Klik om te vergroten...
Oke zal ook hier naar kijken of dit lukt
 
Kijk eens of het laden vanuit een extern bestand hiermee al sneller gaat.
Ook is ingebouwd dat wanneer je de 1ste letter van een artikel intypt de combobox gefilterd wordt,
hoe meer letters hoe fijner de filtering.
Kijk wel even na of het pad correct is in Userform_Initialize.
 

Bijlagen

Warme bakkertje zei:
Kijk eens of het laden vanuit een extern bestand hiermee al sneller gaat.
Ook is ingebouwd dat wanneer je de 1ste letter van een artikel intypt de combobox gefilterd wordt,
hoe meer letters hoe fijner de filtering.
Kijk wel even na of het pad correct is in Userform_Initialize.
Klik om te vergroten...
Ga dit proberen vanavond
 
@WB

Code: 
Private Sub UserForm_Initialize()
  pad = "G:\OF\SCH2025.xlsx"

  If Dir(pad) <> vbNullString Then CMBproduct.Column =
CreateObject("DAO.DBEngine.120").OpenDatabase(pad, False, True, "Excel
12.0 Xml;HDR=Yes;").OpenRecordset("SELECT * FROM [SCH$]").getrows(100)
End Sub
 
@snb
Uitgangspunt zijn de +/- 260K rijen in het artikelbestand waarover TS spreekt in Post#1
Ik heb jouw versie en mijn versie getest op het voorbeeldbestand en qua inlaadtijd is jouw versie iets sneller met dien verstande dat GetRows een arbitrair getal nodig heeft voor het aantal in te laden rijen.
Dus ofwel zet je daar een getal in van bv 300000 wat een vertraging zal teweeg brengen of je moet eerst via MoveLast, MoveFirst en RecordCount het juiste aantal rijen in de RecordSet bepalen en dit doorgeven aan GetRows. Bij jouw versie heb je dan ook geen Array om later een filterfunctie voor de Combobox te creëren. Die zal je dus extra moeten bijvoegen.
Mijn versie doet dit allemaal al wel dus ik vermoed dat op het einde van de rit het tijdsverschil niet heel veel zal betekenen.
Samengevat betekent dit mi dat wanneer je een tabel uit een extern bestand wil inladen zonder dat je er verder iets mee wil doen je de voorkeur kan geven aan jouw versie.
Wil je echter een filterfunctie of zoekfunctie inbouwen ben je beter af met mijn versie want je kan op zo'n aantal rijen toch niet telkens met een Sql filter dat extern bestand gaan raadplegen.
 
@WB

Als je gebruik maakt van ADODB.recordset hoef je het aantal 'rijen' bij getrows niet te specificeren om alle records te omvatten.
De array waarmee gefilterd kan worden staat al in de combobox; het externe bestand kan bij het filteren ongemoeid worden gelaten.
Ik betwijfel nog steeds of de externe gegevens in een Excelbestand staan; een csv-bestand lijkt me voor-de-hand-liggender. Mij lijkt de Excel-vorm een toevoeging van de TS.
 
Warme bakkertje zei:
@snb
Uitgangspunt zijn de +/- 260K rijen in het artikelbestand waarover TS spreekt in Post#1
Ik heb jouw versie en mijn versie getest op het voorbeeldbestand en qua inlaadtijd is jouw versie iets sneller met dien verstande dat GetRows een arbitrair getal nodig heeft voor het aantal in te laden rijen.
Dus ofwel zet je daar een getal in van bv 300000 wat een vertraging zal teweeg brengen of je moet eerst via MoveLast, MoveFirst en RecordCount het juiste aantal rijen in de RecordSet bepalen en dit doorgeven aan GetRows. Bij jouw versie heb je dan ook geen Array om later een filterfunctie voor de Combobox te creëren. Die zal je dus extra moeten bijvoegen.
Mijn versie doet dit allemaal al wel dus ik vermoed dat op het einde van de rit het tijdsverschil niet heel veel zal betekenen.
Samengevat betekent dit mi dat wanneer je een tabel uit een extern bestand wil inladen zonder dat je er verder iets mee wil doen je de voorkeur kan geven aan jouw versie.
Wil je echter een filterfunctie of zoekfunctie inbouwen ben je beter af met mijn versie want je kan op zo'n aantal rijen toch niet telkens met een Sql filter dat extern bestand gaan raadplegen.
Klik om te vergroten...
Bovenstaande gaat voor mij iets te moeilijk; maar heb nu mijn versie aangepast volgens WB, nu met ca 265000 artikelen; 1e keer inladen duurt ca 30 sec, maar als het formulier eenmaal geopend kun je snel artikelen plaatsen
 
Heb nog wat getest en deze zou toch tot een 1/3 sneller moeten zijn.
Code: 
Private Sub UserForm_Initialize()
    Dim pad As String, rs As Object, numrows As Long

    pad = ThisWorkbook.Path & "\WilElektro_SCH2025meia.xlsx"
    If Dir(pad) <> vbNullString Then
        With CreateObject("DAO.DBEngine.120").OpenDatabase(pad, False, True, "Excel 12.0 Xml;HDR=Yes;")
                Set rs = .OpenRecordset("SELECT * FROM [SCH$]")
                If Not (rs.BOF And rs.EOF) Then
                    rs.MoveLast: rs.MoveFirst: numrows = rs.RecordCount
                    CMBproduct.Column = rs.GetRows(numrows)
                End If
        End With
    End If
    Results = CMBproduct.List
End Sub

@snb
Heb geen Access meer dus kan geen ADODB connections meer gebruiken.
 
snb zei:
@WB

Als je gebruik maakt van ADODB.recordset hoef je het aantal 'rijen' bij getrows niet te specificeren om alle records te omvatten.
De array waarmee gefilterd kan worden staat al in de combobox; het externe bestand kan bij het filteren ongemoeid worden gelaten.
Ik betwijfel nog steeds of de externe gegevens in een Excelbestand staan; een csv-bestand lijkt me voor-de-hand-liggender. Mij lijkt de Excel-vorm een toevoeging van de TS.
Klik om te vergroten...
Ik heb ook een CSV bestand; dit heb ik omgezet in excel en gebruikt; weet niet of dit wat uitmaakt
 
@WB

Array en vullen combobox:

Code: 
Private Userform_Initialize()
  c00="G:\OF\SCH2025.xlsx"
  With CreateObject("ADODB.recordset")
    .Open "SELECT * FROM `SCH$`",
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & c00 & ";Extended
Properties=""Excel 12.0"""
    sn = .Getrows
  end With
 
  CMBproduct.Column = sn
End Sub

en nu het CSV-bestand (wellicht sneller ?)

Code: 
Private Userform_Initialize()
  With CreateObject("adodb.recordset")
    .Open "SELECT * FROM `SCH2025.csv`", "Driver={Microsoft Text
Driver (*.txt; *.csv)};Dbq=G:\OF\;HDR=Yes;IMEX=1", 3
    sn = .GetRows
  End With

  CMBproduct.Column = sn
End Sub
 
Laatst bewerkt:
Je moet ingelogd zijn om te kunnen reageren. Log in | Registreer
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan