用OLE操纵Excel
当前位置：以往代写 > C/C++ 教程 >用OLE操纵Excel

用OLE操纵Excel

2019-06-13

用OLE操纵Excel

用OLE操纵Excel

副标题#e#

用OLE操纵Excel(今朝最全的资料)(04.2.19更新)

本文档部门资料来自互联网,大部门是ccrun(老妖)在Excel中通过录制宏–>察看宏代码–>转为CB代码而来.本文档不绝更新中.接待各人存眷.

要在应用措施中节制Excel的运行,首先必需在体例自动化客户措施时包括Comobj.hpp

#include "Comobj.hpp"

C++ Builder把Excel自动化工具的成果包装在下面的四个Ole Object Class函数中,应用人员可以很利便地举办挪用。

配置工具属性:void　　　　OlePropertySet(属性名,参数……);

得到工具属性:Variant　　 OlePropertyGet(属性名,参数……);

挪用工具要领:1) Variant　OleFunction(函数名,参数……);

2) void　　 OleProcedure(进程名,参数……);

在措施中可以用宏界说来节减时间：

#define　 PG　 OlePropertyGet

#define　 PS　 OlePropertySet

#define　 FN　 OleFunction

#define　 PR　 OleProcedure

举例：

ExcelApp.OlePropertyGet("workbooks").OleFunction("Add");

可写为

ExcelApp.PG("workbooks").FN("Add");

C++ Builder中利用OLE节制Excel2000,必需把握Excel2000的自动化工具及Microsoft Word Visual Basic辅佐文件中的关于Excel的工具、要领和属性。工具是一个Excel元素,属性是工具的一个特性或操纵的一个方面,要领是工具可以举办的行动。—www.bianceng.cn

首先界说以下几个变量：

Variant ExcelApp,Workbook1,Sheet1,Range1;

1、Excel中常用的工具是:Application,Workbooks,Worksheets等。

★建设应用工具★

Variant ExcelApp;

ExcelApp = Variant::CreateObject ("Excel.Application");

可能

ExcelApp = CreateOleObject ("Excel.Application");

★建设事情簿工具★

Variant WorkBook1;

WorkBook1 = ExcelApp.PG("ActiveWorkBook");

★建设事情表工具★

Variant Sheet1;

Sheet1 = WorkBook1.PG("ActiveSheet");

★建设区域工具★

Variant Range;

Range = Sheet1.PG("Range","A1:A10");

可能利用

Excel.Exec(PropertyGet("Range")<<"A1:C1").Exec(Procedure("Select"));


#p#副标题#e#

2、常用的属性操纵:

★使Excel措施不行见★

ExcelApp.PS("Visible", (Variant)false);

★新建EXCEL文件★

◎ 新建系统模板的事情簿

ExcelApp.PG("workbooks").FN("Add")　　　//默认事情簿

ExcelApp.PG("workbooks").FN("Add", 1)　 //单事情表

ExcelApp.PG("workbooks").FN("Add", 2)　 //图表

ExcelApp.PG("workbooks").FN("Add", 3)　 //宏表

ExcelApp.PG("workbooks").FN("Add", 4)　 //国际通用宏表

ExcelApp.PG("workbooks").FN("Add", 5)　 //与默认的沟通

ExcelApp.PG("workbooks").FN("Add", 6)　 //事情簿且只有一个表

可能利用ExcelApp的Exec要领

Excel.Exec(PropertyGet("Workbooks")).Exec(Procedure("Add"));

◎ 新建本身建设的模板的事情簿

ExcelApp.PG("workbooks").FN("Add", "C:\\Temp\\result.xlt");

★打开事情簿★

ExcelApp.PG("workbooks").FN("open", "路径名.xls")

★生存事情簿★

WorkBook1.FN("Save");　　　　　　//生存事情簿

WorkBook1.FN("SaveAs", "文件名");//事情簿生存为,路径留意用"\\"

★退出EXCEL★

ExcelApp.FN ("Quit");

ExcelApp = Unassigned;

可能

ExcelApp.Exec(Procedure("Quit"));

★操纵事情表★

◎ 选择选择事情表中第一个事情表

Workbook1.PG("Sheets", 1).PR("Select");

Sheet1 = Workbook1.PG("ActiveSheet");

◎ 重定名事情表

Sheet1.PS("Name", "Sheet的新名字");

◎ 当前事情簿中的事情表总数

int nSheetCount=Workbook1.PG("Sheets").PG("Count");

#p#副标题#e#

★操纵行和列★

◎ 获取当前事情表中有几多行和几多列：

Sheet1.PG("UsedRange").PG("Columns").PG("Count"); //列数

Sheet1.PG("UsedRange").PG("Rows").PG("Count");　　//行数

◎ 配置列宽

ExcelApp.PG("Columns", 1).PS("ColumnWidth", 22);

可能

Range = ExcelApp.PG("Cells", 1, 3);

Range.PS("ColumnWidth", 22);

◎ 配置行高

ExcelApp.PG("Rows", 2).PS("RowHeight", 25);

可能

Range = ExcelApp.PG("Cells", 2, 1);

Range.PS("RowHeight", 25);

◎ 在事情表最前面插入一行

Sheet1.PG("Rows", 1).PR("Insert");

◎ 删除一行

ExcelApp.PG("Rows", 2).PR("Delete"); //将第2行删除

// 本文作者：ccrun ，如转载请担保本文档的完整性，并注明出处。

// 接待降临 C++ Builder 研究 www.ccrun.com

// 摘自:http://www.ccrun.com/doc/go.asp?id=529

★操纵单位格★

◎ 配置单位格字体

Sheet1.PG("Cells", 1, 1).PG("Font").PS("Name", "隶书"); //字体

Sheet1.PG("Cells", 2, 3).PG("Font").PS("size", 28);　　 //巨细

◎ 配置所选区域字体

Range.PG("Cells").PG("Font").PS("Size", 28);

Range.PG("Cells").PG("Font").PS("Color", RGB(0, 0, 255));

个中参数的配置:

Font　 Name : "隶书"　　　　　　　 //字体名称

Size : 12　　　　　　　　　 //字体巨细

Color : RGB(*,*,*)　　　　　 //颜色

Underline : true/false　　　　　 //下划线

Italic: true/false　　　　　 //斜体

◎ 配置单位格名目为小数百分比

Sheet1.PG("Cells", 1, 1).PS("NumberFormatLocal", "0.00%");

◎ 设定单位格的垂直对齐方法

Range = ExcelApp.PG("Cells", 3, 4);

// 1=靠上 2=居中 3=靠下对齐 4=两头对齐 5=分手对齐

Range.PS("VerticalAlignment", 2);

◎ 设定单位格的文本为自动换行

Range = ExcelApp.PG("Cells", 3, 4);

Range.PS("WrapText", true);

#p#副标题#e#

★单位格的归并★

◎ Range = Sheet1.PG("Range", "A1:A2");　　　　　//A1和A2单位格归并

String strRange = "A" + IntToStr(j) + ":" + "C" + IntToStr(j); //好比：A1:C5

Range1=Sheet1.PG("Range", strRange.c_str()); //可以用变量节制单位格归并

Range1.FN("Merge", false);

★读写单位格★

◎ 指定单位格赋值

String strValue = "abcdefg";

Sheet1.PG("Cells", 3, 6).PS("Value", strValue.c_str());

Sheet1.PG("Cells", j, 1).PS("Value", "总记录:" + String(j-6));

可能利用

Excel.Exec(PropertyGet("Cells")<<1<<3).Exec(PropertySet("Value")<<15);

◎ 所选区域单位格赋值

Range.PG("Cells").PS("Value", 10);

◎ 所选区域行赋值

Range.PG("Rows",1).PS("Value", 1234);

◎ 事情表列赋值

Sheet1.PG("Columns",1).PS("Value", 1234);

◎ 读取取值语句:

String strValue = Sheet1.PG("Cells", 3, 5).PG("Value");

★窗口属性★

◎ 显示属性

ExcelApp.PS("Windowstate", 3);　　　 //最大化显示

1———xlNormal　　　　　　//正常显示

2———xlMinimized　　　　 //最小化显示

3———xlMaximized　　　　 //最大化显示

◎ 状态栏属性

ExcelApp.PS("StatusBar", "您好,请您稍等。正在查询！");

ExcelApp.PS("StatusBar", false);　　 //还原成默认值

◎ 标题属性:

ExcelApp.PS("Caption", "查询系统");

#p#副标题#e#

3、操纵图表

★添加图表

#p#分页标题#e#

Variant Chart;
　　 Chart = ExcelApp.Exec(PropertyGet("Charts")).Exec(Function("Add"));
　　 ExcelApp.Exec(PropertySet("Visible") << true);
　　 Chart.Exec(PropertySet("Type") << -4100);

★转动图表

for(int nRotate=5; nRotate <= 180; nRotate += 5)
　　 {
　　　　　 Chart.Exec(PropertySet("Rotation") << nRotate);
　　 }
　　 for (int nRotate = 175; nRotate >= 0; nRotate -= 5)
　　 {
　　　　　 Chart.Exec(PropertySet("Rotation") << nRotate);
　　 }

别的，为担保措施能正常运行，需要在措施中判定方针呆板是否安装了Office;

try
{
　　 ExcelApp = Variant::CreateObject ("Excel.Application");
}
catch(...)
{
　　 ShowMessage("运行Excel堕落,请确认安装了Office");
　　 return;
}
#include "comobj.hpp"
//---------------------------------------------------------------------------
// 对指定Excel文件中的指定罗列办排序
// strExcelFileName : excel文件名
// nCol : 指定的列号
// nSortStyle : 1:升序，2:降序
void SortExcelColumn(String strExcelFileName, int nCol, int nSortStyle)
{
　　 Variant vExcelApp, vWorkbook, vRange;
　　 vExcelApp = Variant::CreateObject("Excel.Application");
　　 vExcelApp.OlePropertySet("Visible", false);
　　 vExcelApp.OlePropertyGet("WorkBooks").OleProcedure("Open", strExcelFileName.c_str());
　　 vWorkbook = vExcelApp.OlePropertyGet("ActiveWorkbook");
　　 vExcelApp.OlePropertyGet("Columns", nCol).OleProcedure("Select");
　　 vExcelApp.OlePropertyGet("ActiveSheet").OlePropertyGet("Cells", 1, nCol).OleProcedure("Select");
　　 vRange =　vExcelApp.OlePropertyGet("Selection");
　　 vRange.Exec(Function("Sort")<<vExcelApp.OlePropertyGet("Selection")<<nSortStyle);
　　 vWorkbook.OleProcedure("Save");
　　 vWorkbook.OleProcedure("Close");
　　 vExcelApp.OleFunction("Quit");
　　 vWorkbook = Unassigned;
　　 vExcelApp = Unassigned;
　　 ShowMessage("ok");
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
　　 // 对C:\123\123.xls文件中第一个Sheet的第四罗列办升序排序
　　 SortExcelColumn("C:\\123\\123.xls", 4, 1);
}
//---------------------------------------------------------------------------

    关键字：

在线提交作业