Discussion :

[taab84]

Bonjour tout le monde j'ai une question sur le c++ builder

Voila je sais enregister le contenue d'1 StringGrid sur un fichier exel mais uniquement lorsqu'il s'agit d'entier ou reel ou de type char

mais pour le cas d'une chaise de caracter je ne sais pas comment m'y prendre j'ai lance une recherche sur le forum mais j'ai rien trouve

Voila mon code souce comme exepmle pour integer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Variant vMSExcel;
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
 
 
 
Variant vXLWorkbook, vXLWorkbooks;
 
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Add");
 
 
Variant vWorksheet, vSheetName;
 
vSheetName = "Feuil1";
 
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
 
 
Variant vValue, vLn,vCl, vCell;
int q,p;
for(p=0;p<2;p++)
{
vLn=p+1;
vLn=vLn.operator int();
for(q=0;q<60;q++)
{
vCl =q+1;
vCl =vCl.operator int();
vCell = vWorksheet.OlePropertyGet("Cells",vLn,vCl);
vValue = StringGrid2->Cells[q][p];
vValue=vValue.operator int();                  ////a modifier
vCell.OlePropertySet("Value", vValue);
}
}
Variant vFileName;
vFileName = "File.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName);

la parite a modifier je metter un type string au lieu de int mais ça marche pas aidez moi SVP

Merci d'avance

[Invité]

Bonjour,

Pour écrire une cellule dans une feuille excel, tu vas faire quelque chose comme

Code :

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

1
2
3
4
5
 
AnsiString Cellule="A1";
AnsiString Libelle="MonTexte";
Variant VRange=Sheet.OlePropertyGet("Range",Cellule.c_str());
VRange.OlePropertySet("Value",Libelle.c_str());

ou

Code :

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

1
2
3
4
5
6
 
int lig=1;
int col=1;
AnsiString Libelle="MonTexte";
Variant VRange=Sheet.OlePropertyGet("Cells",lig,col);
VRange.OlePropertySet("Value",Libelle.c_str());

Si tu remplaces Libelle par un StringGrid1->Cells[l][c], ca devrait marcher...

Maintenant, si tu exportes un gros tableau comme ca, ca va être atrocement lent, et une partie de tes utilisateurs (en fait tous les utilisateurs normaux, qui n'aiment pas attendre 30 secondes pour exporter un tableau...) vont te hair...

Une façon plus rapide de faire est de copier d'abord tes données dans un tableau de Variant

Code :

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

1
2
3
4
5
6
7
 
    int vals[4]={0};
    vals[1]=nblignes-1;
    vals[3]=nbcols-1;
    Variant V1(vals,3,varOleStr);
    for(int i=0;i<nbcols;++i)
        for(int j=0;j<nblignes;j++) V1.PutElement(MaStringGrid->Cells[i][j],j,i);

(tu peux remplacer varOleStr par varDouble, quand tu exportes des nombres)

puis à recopier tout cela dans excel ( (l1,c1) et (l2,c2) étant les coordonnées des coins haut gauche et bas droit de ton tableau)

Code :

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

1
2
3
4
5
 
    Variant VR1=Sheet.OlePropertyGet("Cells",l1,c1);
    Variant VR2=Sheet.OlePropertyGet("Cells",l2,c2);
    Variant VRange=XLSheet.OlePropertyGet("Range",VR1,VR2);
    VRange.OlePropertySet("Value",V1);

Francois

[taab84]

J'ai essayé ton premier code source et ça a marché
j'essayerai plus tard ton 2eme code source et je t'enverrai ma réponse
Mais pour le moment le plus important c'est que ça marche

Merci pour tout mon ami