Cbuilder用OLE操作Excel.docVIP

  • 3
  • 0
  • 约7.34千字
  • 约 6页
  • 2017-06-11 发布于北京
  • 举报
用OLE操作Excel 要在应用程序中控制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元素,属性是对象的一个特性或操作的一个方面,方法是对象可以进行的动作。 首先定义以下几个变量: 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)); 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, 路径名.x

文档评论(0)

1亿VIP精品文档

相关文档