Votre question

Builder C++ et excel

Tags :
  • Programme
  • Programmation
Dernière réponse : dans Programmation
15 Mai 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:


  1. #include <vcl.h>
  2. #pragma hdrstop
  3.  
  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. }
  17.  
  18. //-------------------------------------------------------------------------
  19.  
  20. void __fastcall TForm1::Button2Click(TObject *Sender)
  21. {
  22. Variant vMSExcel;
  23. ExcelApplication1->Connect();
  24.  
  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;
  35.  
  36. }
  37. //---------------------------------------------------------------------------
  38. void __fastcall TForm1::Button4Click(TObject *Sender)
  39. {
  40. Variant vFileName,vXLWorkbook;
  41.  
  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;
  49.  
  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;
  59.  
  60. vSheetName = "Feuil2";
  61. vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
  62. }

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

Autres pages sur : builder excel

2 Février 2010 16:43:18

J'ai le même problème il me semble que ça a un rapport avec la version de utilcls.h.
m
0
l
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS