Discussion :

[Isa31]

Bonjour,

Je souhaite a l'aide d'une interface Delphi formater un fichier excel en fonction de critères que l'on peut sélectionner dans l'interface.

J'ai fait le code suivant pour supprimer les lignes ou la valeur n'est pas comprise entre des données voulues :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If (OleApplication.Range[strLettre +  IntToStr(j)].Value < strMin) or (OleApplication.Range[strLettre +  IntToStr(j)].Value > strMax) Then
Begin
    OleApplication.Range[IntToStr(j) + ':' + IntToStr(j)].Select;
    OleApplication.Cells.Item[j,j].EntireRow.Delete(xlShiftUp);
End;

Le problème c'est que ca plante a la 278ème lignes du fichier.

D'ou peut venir mon erreur.

A savoir que mon fichier Excel peut avoir plus de 10 000 lignes.

Merci d'avance.

Isa

[Laurent Dardenne]

Salut,

Le problème c'est que ca plante a la 278ème lignes du fichier.
D'ou peut venir mon erreur.

Merci d'indiquer le message d'erreur rencontré ...

[Isa31]

Le message est le suivant :

Le projet a provoqué une classe d'exception EOleException avec le message 'Erreur OLE 800A03EC'. Processus stoppé.

[Isa31]

J'ai trouvé la solution à mon problème mais je ne comprend pas pourquoi, enfin ou plutot quelle est la différence entre ces 2 lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OleApplication.Selection.Delete(xlShiftUp);

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OleApplication.Cells.Item[j,j].EntireRow.Delete(xlShiftUp);

[MFDev]

Salut,
Encore des fichiers Excel avec 10000 lignes, d'autres 65536, j'ai du mal à comprendre, à mon avis, l'utilisateur de ces fichiers doit se prendre la tête pour utiliser ces fichiers...
On a tendance à utiliser Excel pour gérer des données, mais souvent, c'est une Base de donnée qu'il faudrait faire, et on peut même faire des calculs avec une BD.
Enfin ce n'est qu'un conseil...
Pour tes 2 lignes de code, à tu regardé l'aide Excel ou VB ?
@+
Fabrice

[Laurent Dardenne]

Trouvé sur les newsgroups Borland

>Does anyone know what OLE Error 800A03EC is

It is the error that Excel reports nine times out of ten,
whatever is wrong. Tell us the line of your code that
causes the problem, and we can (probably!) fix it.

Deborah Pate (Team JEDI)

Dans ton cas il s'agit peut être d'un pb de type de donnée utilisée ?

Doc Delphi
...
La différence principale entre Variant et OleVariant est que Variant peut contenir des types de données que seule l'application en cours sait traiter. OleVariant contient uniquement des types de données compatibles avec OLE Automation, ce qui signifie que ces types de données peuvent être transférés entre programmes ou sur le réseau sans qu'il soit nécessaire de savoir si l'autre extrémité saura manipuler les données.

[MFDev]

En créant des macros Excel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
// effacer des lignes entières
Rows("6:10").Select
Selection.Delete Shift:=xlUp
 
// effacer une plage, décaler vers le haut
Range("A10:F16").Select
Selection.Delete Shift:=xlUp

En général quand je pilote Excel avec delphi, suivant les cas, j'enregistre une macro sur las actions à faire, je récupère le code de la macro que je transpose sous Delphi. Résultats garantis à 100%.
J'ai essayé et avec ces 2 syntaxes cela fonctionne, sans erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
	XlsPage.Cells.Item[1, 10].EntireRow.Delete(xlShiftUp);
	XlsPage.Range['A10', 'F16'].Delete(xlShiftUp);

J'utilise un composant TExcelApplication, et déclare:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
	XlsWk: 	_workbook;
	XlsPage :_Worksheet;

@+
Fabrice

[Isa31]

Pour moi il n'y avait pas de différence entre toutes les lignes que je supprimais, je pensais plutot a un problème mémoire ou un truc du genre.

Merci a vous tous.