lucemm2004
Messages postés6Date d'inscriptiondimanche 4 mars 2007StatutMembreDernière intervention 5 décembre 2010
-
2 nov. 2008 à 10:44
lucemm2004
Messages postés6Date d'inscriptiondimanche 4 mars 2007StatutMembreDernière intervention 5 décembre 2010
-
3 nov. 2008 à 18:04
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