| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3270090
建立时间:2005年6月6日 |
| |
|
 [delpih编程]delphi 取得xls文件中单个表的顺序号
软件技术
吕向阳 发表于 2010/11/19 14:09:13 |
| function mb.opensheet(sheetname: string): integer;var i: integer;begin result := -1; for i := 1 to xlsapp.worksheets.count do begin if uppercase(trim(xlsapp.worksheets[i].name)) = uppercase(trim(sheetname)) then begin result := i; exit; end; end;end;==下面是运用， sheetorder := opensheet(mb_sheetname); if sheetorder = -1 then begin showmessage('没有指定的表格，退出'); exit; end; worksheet := xlsapp.worksheet[i]; for i := 1 to worksheet.usedrange.rows.count do for j := 1 to worksheet.usedrange.cols.count do begin showmessage(INTTOSTR(worksheet.cells(i, j).interior.color)); //与下面一行是两种单元格的表式方法 if worksheet.cells(i, j).interior.color = 5296274 then begin showmessage('ok'); end; end; |
|
|