本文主要是介绍把表的数据导出到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[i]);}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[j])->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();}//---------------------------------------------------------------------------
这篇关于把表的数据导出到EXCEL,同时还可以打印的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!