Category

Development Platform
Home > E-Books > Visual C++ Books > View Code
Unit1.cpp
Package: C++Builder.rar　[view]
Upload User: lhxd_sz
Upload Date: 2014-10-02
Package Size: 38814k
Code Size: 2k
Category:

Visual C++ Books

Development Platform:

C++ Builder

Unit1.cpp：Code Content
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include <comobj.hpp>
  4. #include <utilcls.h>
  5. #pragma hdrstop
  7. #include "Unit1.h"
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::Button1Click(TObject *Sender)
  20. {
  21.   TStringGrid *sgrid;
  22.   int ii,jj,pp;
  23.   int CC;
  24.   AnsiString ass,assn;
  25.   Variant my_excel;
  26.   Variant all_workbooks;
  27.   Variant my_workbook;
  28.   Variant my_worksheet;
  29.   Variant my_range;
  30. //
  31.   PropertyGet Range("Range");
  32.   PropertySet SetValue("Value");
  33. //
  34.   sgrid=StringGrid1;
  35. //
  36.   try
  37.   {
  38.     my_excel=GetActiveOleObject("excel.application");
  39.   }
  40.   catch(...)
  41.   {
  42.     try
  43.     {
  44.       my_excel=CreateOleObject("excel.application");
  45.     }
  46.     catch(...)
  47.     {
  48.       Application->MessageBox("不能连接Excel!","提示",MB_OK);
  49.       return;
  50.     }
  51.   }
  52.   my_excel.OlePropertySet("Visible",true);
  53.   all_workbooks=my_excel.OlePropertyGet("Workbooks");
  54. //  my_excel.OlePropertySet("SheetsInNewWorkbook",1);
  55.   my_workbook=all_workbooks.OleFunction("Add");
  57.   my_worksheet=my_excel.OlePropertyGet("ActiveSheet");
  58. //
  59.   my_range=my_worksheet.Exec(Range<<"A1");
  60.   my_range.Exec(SetValue<<"输出自己的表");
  61.   Range.ClearArgs();
  62.   SetValue.ClearArgs();
  63. //表头
  64.   CC='A';
  66. //表内容
  67.   pp=2;
  68.   for(jj=0;jj<sgrid->RowCount;jj++)
  69.   {
  70.     for(ii=0;ii<sgrid->ColCount;ii++)
  71.     {
  72.       assn=char(CC+ii);
  73.       assn=assn+IntToStr(pp);
  74.       ass="";
  75.       ass=sgrid->Cells[ii][jj];
  76.       my_range=my_worksheet.Exec(Range<<assn);
  77.       my_range.Exec(SetValue<<ass);
  78.       Range.ClearArgs();
  79.       SetValue.ClearArgs();
  80.     }
  81.     pp++;
  82.   }
  83. }
  84. //---------------------------------------------------------------------------
  85.