XLSReadWriteII 使用
2011-04-12 08:24
393 查看
(转)-------------------------------------------
1、例子解析
for i := 0 to xls.Sheets[m].lastrow do
//**** i定义的是行,lastrow是最大行号,是从0开始的行号,而不是
行数,如按count计算会少计算一行。
for j := 0 to xls.Sheets[m].LastCol do
//****j定义的是列,lastcol是最大列号,是从0开始算的列号,而不是
列数,
begin
//取出单元格的值
s := xls.sheet[0].AsFmtString[j, i];
//判断是否有格式
if xls.sheet[0].cell[j, i].IsFormatted then
begin
//如果单元格背景色是黄色,则..,背景色是FillPatternForeColor
,而不是有backcolor的那个,这是上了当的。
//cell,sheet都是不带s的,且【】后都是先列后行的,与excel,vb的
习惯是不一样的,那是先行后列。
if xls.sheet[0].cell[j, i].FillPatternForeColor =
biffrecsII2.texcelcolor(13) then
begin
tb1.Append;
tb1.fieldbyname('nrow').AsInteger := i;
tb1.fieldbyname('ncol').AsInteger := j;
tb1.FieldByName('mbdm').AsInteger := mb_mctodm
(XLS.Sheets[M].Name);
tb1.post;
end;
end;
except
ShowMessage(IntToStr(i) + '--' + inttostr(j));
end;
end;
2、怎样显示枚举变量的值
// ShowMessage(GetEnumName(TypeInfo(Texcelcolor),
Integer(xls.sheet[0].cell[j, i]
// .FillPatternForeColor)));
当然在前面的引用单元中要加入TypInfo单元。
相关文章推荐
- Delphi中使用XlsReadWriteII
- 如何使用XlsReadWriteII在Delphi中读取Excel文件
- Excel读写方案XLSReadWriteII使用技巧总结
- delphi中XLSReadWrite控件的使用(1)---简介
- 支持.NET和移动设备的XLS读写控件XLSReadWriteII下载地址及介绍
- delphi中XLSReadWrite控件的使用(2)---delphi XE下安装
- [转载]: delphi中XLSReadWrite控件的使用(3)---基本应用
- 分享一下解决 XLSReadWriteII 解析Excel95格式的文件乱码的问题
- [转载]: delphi中XLSReadWrite控件的使用(2)---delphi XE下安装
- delphi中XLSReadWrite控件的使用(3)---基本应用
- [转载]: delphi中XLSReadWrite控件的使用(1)---简介
- XLSReadWrite使用
- XLSMini控件是XLSReadWriteII的简版可读写Excel单元格的值
- 转 Delphi中XLSReadWrite控件的使用(2)---基本应用
- 转Delphi中XLSReadWrite控件的使用(1)---简介
- delphi中XLSReadWrite控件的使用(1)---简介
- 转 XlsReadWriteII 的博文(自留参考)
- XLSReadWriteII控件来完成10×10的乘法表
- delphi中XLSReadWrite控件的使用(2)---delphi XE下安装
- 转Delphi中XLSReadWrite控件的使用(3) 读和写Excel