c++ builder, transfer des donnees du stringgrid vers un fichier excel?

Bonjour.

mon probleme:

j'ai un programme en c++ builder 6 qui est le suivant:
-un StringGrid avec une seul ligne et 10 colonnes et avec des donnes quelconques.
-et un bouton.
en cliquant sur le boutton je enregistrer les donnees du StringGrid vers un fichier excel

question: comment peut on faire cela?

Salut taab84:
Un lien sur le Forum qui je crois va repondre a ta question:

Citation:

---

http://www.developpez.net/forums/sho...ght=stringlist

---

la methode montre dans ce lien c'est uniquement pour enregistrer dans un fichier texte ,moi je veut enregistrer dans un fichier excel (.xls) que je veut enregistrer mes donnees.
merci quand meme

Si tu sauvegarde ton StringGrid au format Texte avec un separateur de champs par exemple le ";" quand tu ouvrira ton fichier avec Excel celui ci se chargera de repartir chaque champ dans une cellule.
Sinon il te faut par programme ouvrir Excel par Ole faire une boucle qui lit ton StringGrid et sauve chaque cellule du StringGrid dans une cellule Excel puis sauvegarder ton fichier Excel.
Un lien sur le site pour t'aider a demarrer

Citation:

---

http://lfe.developpez.com/Excel/

---

il y a aussi la FAQ

Citation:

---

http://c.developpez.com/faq/bcb/?page=msoffice

---

je te remercie beaucoup j'ai essayer de travailler dessus

mais en ajoutant cette ligne:

vWorksheet = vWorksheets.OleProdedure("Add");

il m'a afficher ce message d'erreur:
E2316 'OleProcedure' n'est pas un membre de 'Variant'

comment je resoud cela

Pense aux balises de code c'est le "#" en haut a droite :P
Essaye de remplacer " OleProcedure " par " OleFunction ".
Et ne pas oublier " #include <utilcls.h> "

j'ai tout recommencer et j'ai ecrit le code suivant en cliquant sur un boutton:

debut code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

void __fastcall TForm1::Button1Click(TObject *Sender) { Variant vXLWorkbook, vXLWorkbooks,vMSExcel;   vMSExcel = Variant::CreateObject("Excel.Application"); vMSExcel.OlePropertySet("Visible", true);   vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks"); vXLWorkbook = vXLWorkbooks.OleFunction("Add"); Variant vFileName;   Variant vWorksheet, vSheetName;   vSheetName = "Feuil1"; vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);     vFileName = "File.xls"; vXLWorkbook.OleProcedure("Saveas", vFileName);}

---

fin code

il genere un fichier excel mais il est vide
Comment dois je faire pour remplir les donnees du stringgrid vers ce fichier?
quel instruction ajouter?

et merci beaucoup

Salut taab84:
Tout d'abord fecilitation pour tes recherches et ton code :P
Pense aux balises de code c'est le "#" en haut a droite ton code sera plus lisible
J'ai repris une partie de ton code et ajoute comment ecrire dans une cellule.
Le .cpp

Code:

---

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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include <utilcls.h> // <--- ne pas oublier #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "ColorBtn" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::ColorBtn1Click(TObject *Sender) { // Le code suivant permet donc de lancer Excel si il n'est pas déjà actif // ou de se connecter à l'instance existante éventuelle. try { vMSExcel = Variant::GetActiveObject("Excel.Application"); } // une exception est normale en pas a pas si Excel n'est pas cree catch(...) { vMSExcel = Variant::CreateObject("Excel.Application"); } vMSExcel.OlePropertySet("Visible", true); vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks"); vXLWorkbook = vXLWorkbooks.OleFunction("Add"); vSheetName = "Feuil1"; vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName); // on selectionne la Feuil1 vWorksheet.OleProcedure("Select"); // pour ecrire dans une cellule // ("Cells", ligne, colonne) vCell = vWorksheet.OlePropertyGet("Cells", 2, 2); // on passe la valeur a la cellule vCell.OlePropertySet("Value", "toto"); } //--------------------------------------------------------------------------- void __fastcall TForm1::ColorBtn2Click(TObject *Sender) { vMSExcel.OleFunction("Quit"); vMSExcel = Unassigned; } //--------------------------------------------------------------------------- void __fastcall TForm1::ColorBtn3Click(TObject *Sender) { vFileName = "File.xls"; vXLWorkbook.OleProcedure("Saveas", vFileName); } //---------------------------------------------------------------------------

---

le .h

Code:

---

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

//--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include <Classes.hpp> #include <Controls.hpp> #include <StdCtrls.hpp> #include <Forms.hpp> #include "ColorBtn.h" //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TColorBtn *ColorBtn1; TColorBtn *ColorBtn2; TColorBtn *ColorBtn3; void __fastcall ColorBtn1Click(TObject *Sender); void __fastcall ColorBtn2Click(TObject *Sender); void __fastcall ColorBtn3Click(TObject *Sender); private: // User declarations public: // User declarations __fastcall TForm1(TComponent* Owner); Variant vXLWorkbook, vXLWorkbooks,vMSExcel; Variant vFileName; Variant vWorksheet, vSheetName; Variant vCell; }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif

---

les parametres ligne colonne sont des entier
"toto" est a remplacer par le contenu du StringGrid
Pour recuperer le contenu d'une cellule du StringGrid:

Citation:

---

Valeur_A_Recuperer = StringGrid1->Cells[colonne][ligne];

---

bonjour blondelle
Je te remercie pour ton aide car j'ai finie d'atteindre mon objectif.
je n'ai pas copie le code source que tu m'a envoyer a 100%,mais je me suis inspire pour finaliser ma solution,et certains nouvelles instructions m'ont beaucoup aider

voila mon code source pour enregistrer le contenu d'un stringgrid de 2 lignes et 5 colonnes:

Unit1.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
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 i,j;
for(j=0;j<2;j++)
{
vLn=j+1;
vLn=vLn.operator int();
for(i=0;i<5;i++)
{
vCl =i+1;
vCl =vCl.operator int();
vCell = vWorksheet.OlePropertyGet("Cells",vLn,vCl);
vValue = StringGrid1->Cells[i][j];
vValue=vValue.operator int();
vCell.OlePropertySet("Value", vValue);
}
}
Variant vFileName;
vFileName = "File.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName);
}
//---------------------------------------------------------------------------


Unit1.h
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // Composants gérés par l'EDI
TButton *Button1;
TStringGrid *StringGrid1;
void __fastcall Button1Click(TObject *Sender);
private: // Déclarations de l'utilisateur
public: // Déclarations de l'utilisateur
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Et merci encore pour ton aide

Pas de probleme, mais c'est toi qu'il faut feliciter le pilotage Ole n'est pas evident.
Tu a oublie d'inclure dans ton entete

Citation:

---

#include <utilcls.h> // <--- ne pas oublier

---

fait le car dans certaines circonstances tu va avoir une erreur