Posted on 2006-05-12 15:00
semovy 阅读(328)
评论(0) 编辑 收藏 所属分类:
C++ Builder相关
#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程序
}
//---------------------------------------------------------------------------