| 订阅 | 在线投稿
分享
 
 
 

将表记录导入到Excel完整代码

来源:互联网网民  宽屏版  评论
2008-10-25 09:18:32

void clicked()

{

#Excel

HWND HWND;

SysExcelApplication excel;

SysExcelWorkbooks books;

SysExcelWorkbook book;

SysExcelWorksheets sheets;

SysExcelWorksheet sheet;

SysExcelRange columns;

SysExcelRange column;

SysExcelCells cells;

SysExcelCell cell;

SysExcelStyle ExcelStyle;

SysExcelFont ExcelFont;

SysExcelFormatCondition FormatCondition;

//定义要导出的表.

BeMarked _mark;

int i = 1;

//构造Excel表结构.

excel = SysExcelApplication::construct();

books = excel.workbooks();

book = books.add();

Sheets = book.worksheets();

sheet = sheets.itemFromNum(1); //控制到第几个工作表.

sheet.name("abc");

super();

//字段名:

sheet.cells().item(1,1).value("STR"); // item(row,column)

sheet.cells().item(1,2).value("INT");

sheet.cells().item(1,3).value("Choose");

sheet.cells().item(1,4).value("company");

//导入字段值.

while select _mark

{

excel.visible(true);

sheet.cells().item(i+1,1).value(_mark.Str);

sheet.cells().item(i+1,2).value(_mark.Int);

// sheet.cells().item(3,1).value().handle(); //?

// ExcelFont.bold(true);

sheet.cells().item(i+1,3).value(_mark.choose);

sheet.cells().item(i+1,4).value(_mark.dataAreaId);

i++;

}

}

 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
void clicked() { #Excel HWND HWND; SysExcelApplication excel; SysExcelWorkbooks books; SysExcelWorkbook book; SysExcelWorksheets sheets; SysExcelWorksheet sheet; SysExcelRange columns; SysExcelRange column; SysExcelCells cells; SysExcelCell cell; SysExcelStyle ExcelStyle; SysExcelFont ExcelFont; SysExcelFormatCondition FormatCondition; //定义要导出的表. BeMarked _mark; int i = 1; //构造Excel表结构. excel = SysExcelApplication::construct(); books = excel.workbooks(); book = books.add(); Sheets = book.worksheets(); sheet = sheets.itemFromNum(1); //控制到第几个工作表. sheet.name("abc"); super(); //字段名: sheet.cells().item(1,1).value("STR"); // item(row,column) sheet.cells().item(1,2).value("INT"); sheet.cells().item(1,3).value("Choose"); sheet.cells().item(1,4).value("company"); //导入字段值. while select _mark { excel.visible(true); sheet.cells().item(i+1,1).value(_mark.Str); sheet.cells().item(i+1,2).value(_mark.Int); // sheet.cells().item(3,1).value().handle(); //? // ExcelFont.bold(true); sheet.cells().item(i+1,3).value(_mark.choose); sheet.cells().item(i+1,4).value(_mark.dataAreaId); i++; } }
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有