[OLE][Excel] : désallocation mémoire
PpPool
Messages postés
15
Date d'inscription
vendredi 22 mars 2002
Statut
Membre
Dernière intervention
18 mai 2005
-
18 mai 2005 à 14:57
aogie Messages postés 108 Date d'inscription vendredi 11 juillet 2003 Statut Membre Dernière intervention 27 novembre 2007 - 19 mai 2005 à 14:20
aogie Messages postés 108 Date d'inscription vendredi 11 juillet 2003 Statut Membre Dernière intervention 27 novembre 2007 - 19 mai 2005 à 14:20
A voir également:
- [OLE][Excel] : désallocation mémoire
- Arctan excel ✓ - Forum C++ & C++ .NET
- Erreur ole db ou odbc: exception de hresult : 0x80040e4e ✓ - Forum ASP / ASP.NET
- Erreur ole 800a03ec ✓ - Forum Foxpro
- Arctangente excel - Forum Visual Basic
- Excel vba modulo - Forum Visual Basic
1 réponse
aogie
Messages postés
108
Date d'inscription
vendredi 11 juillet 2003
Statut
Membre
Dernière intervention
27 novembre 2007
19 mai 2005 à 14:20
19 mai 2005 à 14:20
Bonjour,
Je vois que tu travailles sans référence sur la librairie Excel (Dim Feuil_Excel_Tampon As Object suivi d'un CreateObject()).
L'avantage est bien évidemment de n'avoir aucun impact sur la version
de l'application Excel. En revanche, tout objet intermédiaire sur un
appel donné doit clairement être nommé. En effet, il y a quelquefois
des "pertes de référence", notamment sur l'objet Application.
Crée autant de variables de type Object que d'objets Excel utilisés. Tu
ne dois pas "traverser" les différents objets pour faire appel à une
méthode du 3ème objet "traversé". Il vaut mieux ne pas dépasser un
objet après ta référence...
En VBA (interne à l'exécutable), tu peux écrire :
Dim o As Object
Set o = CreateObject("...")
o.obj1.obj2.obj3.f1(...)
Pour ton cas (externe car automation) :
Dim o As Object, o1 As Object, o2 As Object, o3 As Object
Set o = CreateObject("...")
Set o1 = o.obj1
Set o2 = o1.obj2
Set o3 = o2.obj3
o3.f1(...)
De plus, je pense qu'il y a une erreur car ta variable
Feuil_Excel_Tampon est déjà une référence sur l'objet automation
"Application".
Tu ne dois donc pas utiliser la propriété "Application", utilisée pour
le code VBA (interne à l'Exe). Toi tu te trouves à l'extérieur et tu
travailles par automation, ta référence pour l'objet "Application" est
ta variable.
Feuil_Excel_Tampon.Application.Workbooks.Open (Dir.Path &
"\Debug\thread n°" & I & ".xls")
Feuil_Excel_Tampon.Application.Visible = False
devient
Feuil_Excel_Tampon.Workbooks.Open (Dir.Path & "\Debug\thread n°" & I & ".xls")
Feuil_Excel_Tampon.Visible = False
-- AOGie --
Je vois que tu travailles sans référence sur la librairie Excel (Dim Feuil_Excel_Tampon As Object suivi d'un CreateObject()).
L'avantage est bien évidemment de n'avoir aucun impact sur la version
de l'application Excel. En revanche, tout objet intermédiaire sur un
appel donné doit clairement être nommé. En effet, il y a quelquefois
des "pertes de référence", notamment sur l'objet Application.
Crée autant de variables de type Object que d'objets Excel utilisés. Tu
ne dois pas "traverser" les différents objets pour faire appel à une
méthode du 3ème objet "traversé". Il vaut mieux ne pas dépasser un
objet après ta référence...
En VBA (interne à l'exécutable), tu peux écrire :
Dim o As Object
Set o = CreateObject("...")
o.obj1.obj2.obj3.f1(...)
Pour ton cas (externe car automation) :
Dim o As Object, o1 As Object, o2 As Object, o3 As Object
Set o = CreateObject("...")
Set o1 = o.obj1
Set o2 = o1.obj2
Set o3 = o2.obj3
o3.f1(...)
De plus, je pense qu'il y a une erreur car ta variable
Feuil_Excel_Tampon est déjà une référence sur l'objet automation
"Application".
Tu ne dois donc pas utiliser la propriété "Application", utilisée pour
le code VBA (interne à l'Exe). Toi tu te trouves à l'extérieur et tu
travailles par automation, ta référence pour l'objet "Application" est
ta variable.
Feuil_Excel_Tampon.Application.Workbooks.Open (Dir.Path &
"\Debug\thread n°" & I & ".xls")
Feuil_Excel_Tampon.Application.Visible = False
devient
Feuil_Excel_Tampon.Workbooks.Open (Dir.Path & "\Debug\thread n°" & I & ".xls")
Feuil_Excel_Tampon.Visible = False
-- AOGie --