Discussion :

[Masmeta]

bonjour à tous!!!

Je tente de maitriser le pilotage de d'excel par BCB v4. Je veux integrer des valeurs lues dans un fichier txt dans une feuille Excel.
Mon problème vient de cette erreur :
[C++ Erreur] sysvari.h(2473): E2015 Ambiguïté entre 'TVariantT<tagVARIANT>::operator =(const TVariantT<tagVARIANT> &)' et 'TVariantT<tagVARIANT>::operator =(bool)'.
Cela pointe sur le fichier sysvari.h

Code :

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

1
2
3
4
5
6
7
template <class P1>
  Variant Variant::OlePropertyGet(const String& name, P1 p1)
  {
    TAutoArgs<1> args;
    args[1] = p1;
    return OlePropertyGet(name, static_cast<TAutoArgsBase*>(&args));
  }

Et mon code est :

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
40
41
42
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        AnsiString IniPath = ExtractFileDir(ParamStr(0));
        String FileName = IniPath + "\\TestExcel.xls"  ;
        TStringList *point=new TStringList;  //Creation de la StringList
        String sTabExcel[10] = {"A1","A2","A3","A4","A15","A6","A7","A8","A9","A10"};
        int i,j; //index
 
        //Ouverture d'excel
        vMSExcel = Variant::CreateObject("Excel.Application");
        vMSExcel.OlePropertySet("Visible", true);
 
        //Création d'un classeur
        //vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
        //vXLWorkbook = vXLWorkbooks.OleFunction("Add");
 
 
        //Ouverture  du classeur
        vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
        vXLWorkbook=vXLWorkbooks.OleFunction("Open", FileName.c_str());
 
        //mettre dans la feuille donne
        vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", "Donne");                  
        //lecture du fichier txt
        sFileName = IniPath + "\\point.crb";
        point->LoadFromFile(sFileName);
        //Tant que la lecture n'est pas de 10 valeurs
         while((i-1)!= 10 )
         {
                        vRange = sTabExcel[i-1];
                        vCell = vWorksheet.OlePropertyGet("Range", vRange); //aller à la cellule
                        vValue = i;
                        vCell.OlePropertySet("Value", vValue); // initialisé à la nouvelle valeur de la cellule
                        i++;
                }
 
        }
 
        delete point;   //effacer le contenu de la StringList
 
}

Auriez vous une petite idée pour m'aider

[Masmeta]

J'ai modifié mon code mais j'ai toujours la même erreur. J'ai beau faire comme dans la faq cela ne marche pas.

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
 
        FILE *fichier;
        AnsiString IniPath = ExtractFileDir(ParamStr(0));
        String sFileName = IniPath + "\\point.crb";
        String sTabExcel[10] = {"A1","A2","A3","A4","A15","A6","A7","A8","A9","A10"};
        char buf[200];
        int i; //index
        i=0;
        //mettre dans la feuille donne
        vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", "Donne");
        //lecture du fichier txt
 
        if ((fichier = fopen(sFileName.c_str(),"r"))==NULL)
                //le fichier n'a pas pu etre ouvert
                Application->MessageBox("Le fichier n'a pa pus être ouvert","Erreur",MB_ICONEXCLAMATION);
        else
        {//On se place en début de fichier
                fseek(fichier,0,SEEK_SET);
                while(feof(fichier)==1 )
                {
                        vRange = sTabExcel[i];
                        vCell = vWorksheet.OlePropertyGet("Range", vRange); //aller à la cellule
                        vValue = atoi(fgets(buf,200,fichier));
                        vCell.OlePropertySet("Value", vValue); // initialisé à la nouvelle valeur de la cellule
                        i++;
                  }
 
         }
          fclose(fichier);

[blondelle]

Salut Masmeta:
Dabord un lien sur le pilotage OleExcel

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

une facon d'ouvrir Excel et de charger un fichier.

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
 
Variant vMSExcel, vXLWorkbooks, vXLWorkbook, vWorksheet;
Variant vRange, vWorksheets;
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
Variant vFileName, vNotUsed, vSeparator, FileFormat, ReadOnlyRecommended;
Variant CreateBackup, Password, WriteResPassword;
Variant Mot_passe;
// ouverture d'un fichier au format csv
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Classeur1.xls";
vNotUsed = Unassigned;
vSeparator = 1;
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed,
vNotUsed, vSeparator);

Je serais disponible aux environ de 18h00, 18h30 en attendant amuse toi bien avec ce que je t'ai donne.

[Masmeta]

Salut Masmeta:
Dabord un lien sur le pilotage OleExcel

Salut blondelle.

J'ai regarde de long en large cette page et les diférents forums traitant du sujet excel aujourd'hui. je ne sais pas trop d'ou vient mon probleme. J'ai fais le test avec la ligne pour "sauvegardé sous" donne par la faq et j'ai le meme type d'erreur.

Donc la je reste un peu paumé.

[blondelle]

Salut Masmeta:
Regarde mon poste precedent le Filename est declare en Variant Ole travail essentiellement en Variant c'est peut etre une possibilite d'erreur sinon tu met un point d'arret dans ton code et tu execute en pas a pas pour voir ou se situe l'erreur en fonction du code de la ligne incriminee on aura une idee du probleme.

[Masmeta]

Salut Blondelle.

De retour au travail, j'ai tenté ta solution mais sur la ligne :

Code :

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

1
2
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed,
vNotUsed, vSeparator);

J'ai toujours l'erreur de compilation :

[C++ Erreur] sysvari.h(1869): E2015 Ambiguïté entre 'TVariantT<tagVARIANT>::operator =(const TVariantT<tagVARIANT> &)' et 'TVariantT<tagVARIANT>::operator =(bool)'.

Par contre quand je clique sur l'endroit de l'erreur je me retrouve sans le sysvari.h avec ce code :

Code :

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

1
2
3
4
5
6
7
  template <class P1, class P2>
  Variant Variant::OleFunction(const String& name, P1 p1, P2 p2)
  {
    TAutoArgs<2> args;
    args[1] = p1;  args[2] = p2;
    return OleFunction(name, static_cast<TAutoArgsBase*>(&args));
  }

J'ai l'impression que le passage de plusieurs paramètres posent problème. Sa ne serait pas un pb de configuration de BCB?