把表的数据导出到EXCEL，同时还可以打印
以下代码出自http://blog.csdn.net/hellogv/,引用请注明出处！首先加入这两句：
#include "utilcls.h"#include "comobj.hpp"
下面正式开始：
void __fastcall TMainForm::ToExcel(TADOQuery *TT,AnsiString str){//TT为被导出数据的表,str为命令(具体看代码底部的if语句)#define PG OlePropertyGet#define PS OlePropertySet#define FN OleFunction#define PR OleProcedureVariant excel;try{excel=CreateOleObject("Excel.Application"); //启动Excel}catch(...){ShowMessage("无法启动Excel,请检查是否已经安装EXCEL!");}excel.PS("Visible", (Variant)true); //使Excel启动后可见excel.PG("workbooks").FN("Add", 1); //单工作表for(int i=0;i<TT->FieldCount;i++) //首先给EXCEL添加表的字段名{excel.Exec(PropertyGet("Cells")<<1<<i+1).Exec(PropertySet("Value")<<TT->FieldList->Strings);}for(int j=0;j<TT->FieldCount;j++)//按字段排列{TT->First();for(int i=0;i<TT->RecordCount;i++)//按数据顺序排雷{ excel.Exec(PropertyGet("Cells")<<i+2<<j+1).Exec(PropertySet("Value")<<TT->FieldByName(TT->FieldList->Strings)->AsString); TT->Next();}}if(str=="导出"){}//如果是导出，就什么都不干if(str=="打印")//如果是打印excel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OleFunction("PrintOut");if(str=="打印浏览")//如果是打印浏览excel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OleFunction("PrintPreview");excel.~Variant();}//---------------------------------------------------------------------------
页:
[1]