semovy

#include?<vcl.h>
#pragma?hdrstop
#include?\\\"Comobj.hpp\\\"?//必須包含的頭文件

#include?\\\"Unit1.h\\\"
//---------------------------------------------------------------------------
#pragma?package(smart_init)
#pragma?resource?\\\"*.dfm\\\"
#define ?PG ?OlePropertyGet?//主要用到的便于編寫的四個宏定義
#define ?PS ?OlePropertySet
#define ?FN ?OleFunction
#define ?PR ?OleProcedure

TForm1?*Form1;
//---------------------------------------------------------------------------
__fastcall?TForm1::TForm1(TComponent*?Owner)
:?TForm(Owner)
{
}
//---------------------------------------------------------------------------

void?__fastcall?TForm1::BitBtn1Click(TObject?*Sender)
{
?Variant?ExcelApp?=?CreateOleObject?(\\\"Excel.Application\\\");?//創建一個工作簿對象
?SaveDialog1->Execute();?//執行保存對話框
?ExcelApp.PG(\\\"workbooks\\\").FN(\\\"Add\\\",?6);//?向工作簿對象添加一張工作表
?Variant?WorkBook1;
?WorkBook1?=?ExcelApp.PG(\\\"ActiveWorkBook\\\");//獲取活動工作薄
Variant?Sheet1;
?Sheet1?=?WorkBook1.PG(\\\"ActiveSheet\\\");//獲取活動的工作表
?for?(int?i=1;i<=10;i++)
for?(int?j=1;j<=10;j++)
?Sheet1.PG(\\\"Cells\\\",i,j).PS(\\\"Value\\\",i*100+j);//循環向工作表中添加數據
?Sheet1.PS(\\\"Name\\\",?\\\"Sheet的新名字\\\");?//工作簿重命名
?WorkBook1.PR(\\\"SaveAs\\\",?SaveDialog1->FileName.c_str());//存儲在指定的保存對話框文件名的文件上
?WorkBook1.PR(\\\"Close\\\");//關閉工作簿
?ExcelApp.FN(\\\"Quit\\\");//關閉Excel程序
}
//---------------------------------------------------------------------------?