unit1.cpp

来自「C++Builder读写EXCEL的例子」· C++ 代码 · 共 59 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "ComObj.hpp"

#define   PG   OlePropertyGet
#define   PS   OlePropertySet
#define   FN   OleFunction
#define   PR   OleProcedure

 //---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant ExcelApp,Workbook1,Sheet1,Range1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	/////定义自动化对象变量
	Variant ExcelApp,Workbook,Sheet1,Sheet2;
	/////建立EXCEL对象
	ExcelApp=Variant::CreateObject("Excel.Application");
	///////打开 "c:\\book1.xls"文件
	ExcelApp.PG("WorkBooks").PR("Open","c:\\book1.xls");
	/////获取当前激活的工作簿对象
	Workbook=ExcelApp.PG("ActiveWorkBook");
	////获取当前激活的工作表对象
	Sheet1=Workbook.PG("ActiveSheet");

	/////选择第二个工作表
	Workbook.PG("Sheets", 2).PR("Select");
	Sheet2 = Workbook.PG("ActiveSheet");

	////获取EXCEL第二个工作表第二行第二列表格值
	Edit1->Text=Sheet2.PG("Cells",2,2).PG("Value");
	////循环设置表格值
	for (int i=1;i<=10;i++)
		for (int j=1;j<=10;j++)
			Sheet1.PG("Cells",i,j).PS("Value",i*100+j);
	/////保存数据
	Workbook.PR("Save");
	////关闭工作表
	Workbook.PR("Close");



}
//---------------------------------------------------------------------------