| 導購 | 订阅 | 在线投稿
分享
 
 
 

將表記錄導入到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++; } }
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
王朝網路微信公眾號
微信掃碼關註本站公眾號 wangchaonetcn
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有