Lecture dans fichiers excel

Signaler
Messages postés
6
Date d'inscription
dimanche 4 mars 2007
Statut
Membre
Dernière intervention
5 décembre 2010
-
Messages postés
6
Date d'inscription
dimanche 4 mars 2007
Statut
Membre
Dernière intervention
5 décembre 2010
-
bonjour,

dans une application VB6, je dois lire une liste de plages contenues dans un millier de fichiers xls contenus dans un répertoire.Pour l'instant, j'utilise les instructions reprises ci-dessous. Cette méthode ouvre systématiquement une session excel dans le task manager. A la fin de chaque lecture de fichier, je fais xlApp.quit et set xlApp = nothing.
ma question :
existe t il une autre méthode pour lire le contenu de fichiers excel SANS générer de session excel dans le task manager ? D'apres la personne qui me demande ce travail, il parait que oui mais n'en sait pas plus.

merci pour vos conseils,
luc-emm

   dim ynGetObjectOK  as boolean
   dim xlApp  as object, wbk_Aux  as object
...
                ynGetObjectOK = True
                Set xlApp = GetObject(, "Excel.Application")
Label_CreateObject:
                If Not ynGetObjectOK Then
                    Set xlApp = CreateObject("Excel.Application")
                End If
                Set wbk_Aux = xlApp.Workbooks.Open(strPath & strXls_Filename, 0) 'ouverture sans mise à jour des liaisons
...

Main_Err:
...    ElseIf Err.Number 424 Or Err.Number 429 Then
        ynGetObjectOK = False
        Resume Label_CreateObject
   endif
luc-emm

2 réponses

Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

Vas voir ici
tu trouveras des exemples sur ce que tu cherches.

A+
Messages postés
6
Date d'inscription
dimanche 4 mars 2007
Statut
Membre
Dernière intervention
5 décembre 2010

Bonsoir big_fish

Je viens de tester le code que tu me renseignes.
Cela fonctionne nickel. Je ne connaissais absolument pas cette manière de faire.
Un tout grand merci.

luc-emm