TXLSWrite 控制Excel文档的输出,例2行合并成1行.急!(100分)

  • 主题发起人 主题发起人 wqthai
  • 开始时间 开始时间

for col:= 1 to s.ColCountdo
FOR K:=0 TO s.RowCount/2do
begin

for Row := 1 to s.RowCountdo
D.DATA[ROW,COL]:=PCHAR(S.DATA[ROW+2*K,COL])+PCHAR(S.DATA[ROW+2*K+1,COL]);

ExcelSheet1.InsertData(D.DATA[K,COL],K,COL,K,COL);
end;


 
我用过TXLSWrite,发现在1.21以后的版本中支持单元格合并操作(函数MergeCells),
但输出的文件一定要97版(即XLSWrite.XLSVersion:=xls97),但这样的结果是:
中文数据有乱码问题,因为我的实际需要,我用另外一个折衷的方法解决了。
 
什么折衷办法?? 我是把它判断XLSWrite.XLSVersion:=xls97的语句给屏蔽
掉了,可以用MergeCell函数,输出中文也没有乱码了!
 
wqthai:我下载该控件的多个版本,低版本没有合并功能,高版本
输出的xls文件有中文就有乱码或者含有版权信息。我很饭!
我不知道你是用什么版本,有控件源码?能否发一个给我?(fxwsy@21cn.com)
我试验过,如果不写XLSWrite.XLSVersion:=xls97,
那么在使用MergeCell时回提示不支持此函数。因为TXLSWrite控件创建时,
缺省XLSWrite.XLSVersion:=xls50。
我的折衷方法是,是使用三行解决行居中问题。
 
后退
顶部