Tom's Guide > Forum > Programmation > Builder C++ et excel

Builder C++ et excel

Forum Programmation : Builder C++ et excel

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
jojolastar27   15-05-2009 à 10:26:28

Bonjour,
Je souhaite ouvrire le logiciel Excel afin d'écrire dans une cellule.
Le probleme est que lorsque je lance le programme(appuye sur le button2),excel s'ouvre et se referme automatiquement.(Bref apparition en bas de la fenêtre).Ensuite si j'appuye sur les autres boutons une erreur arrive:
"_ASSERTE: IsBound() @ c:\bcb\emuvcl\utilcls.h/4249 Press [Y]es to termine [N]o to continue [C]ancel to debug".

Voici mon programme:


Code :
  1. #include <vcl.h>
  2. #pragma hdrstop
  4. #include "Unit1.h"
  5. #include <utilcls.h>
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma link "PERFGRAP"
  9. #pragma link "Excel_2K_SRVR"
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  18. //-------------------------------------------------------------------------
  20. void __fastcall TForm1::Button2Click(TObject *Sender)
  21. {
  22. Variant vMSExcel;
  23. ExcelApplication1->Connect();
  25. vMSExcel = Variant::CreateObject("Excel.Application" );
  26. vMSExcel.OlePropertySet("Visible", true);
  27.        
  28. }
  29. //---------------------------------------------------------------------------
  30. void __fastcall TForm1::Button3Click(TObject *Sender)
  31. {
  32. Variant vMSExcel;
  33. vMSExcel.OleFunction("Quit" );
  34. vMSExcel = Unassigned;
  36. }
  37. //---------------------------------------------------------------------------
  38. void __fastcall TForm1::Button4Click(TObject *Sender)
  39. {
  40. Variant vFileName,vXLWorkbook;
  42. vFileName = "c:\\test.xls";
  43. vXLWorkbook.OleProcedure("Saveas", vFileName);
  44. }
  45. //---------------------------------------------------------------------------
  46. void __fastcall TForm1::Button6Click(TObject *Sender)
  47. {
  48. Variant vValue, vRange, vCell,vWorksheet;
  50. vRange = "D3";
  51. vCell = vWorksheet.OlePropertyGet("Range", vRange);
  52. vValue = "valeur de la cellule";
  53. vCell.OlePropertySet("test", vValue);
  54. }
  55. //---------------------------------------------------------------------------
  56. void __fastcall TForm1::Button5Click(TObject *Sender)
  57. {
  58. Variant vWorksheet, vSheetName,vXLWorkbook;
  60. vSheetName = "Feuil2";
  61. vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
  62. }


Je ne voit pas ou peut venir l'erreur !!!?:(
Merci

Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > Builder C++ et excel
Aller à :

Il y a 2486 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,176 secondes
Liens