posts - 0, comments - 77, trackbacks - 0, articles - 356
  BlogJava :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理

将数据到Excel文件

Posted on 2006-05-12 15:00 semovy 阅读(334) 评论(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程序
}
//--------------------------------------------------------------------------- 

只有注册用户登录后才能发表评论。


网站导航: