Y y_peijun Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-18 #2 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;
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;
F fxWSY Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-12 #3 我用过TXLSWrite,发现在1.21以后的版本中支持单元格合并操作(函数MergeCells), 但输出的文件一定要97版(即XLSWrite.XLSVersion:=xls97),但这样的结果是: 中文数据有乱码问题,因为我的实际需要,我用另外一个折衷的方法解决了。
我用过TXLSWrite,发现在1.21以后的版本中支持单元格合并操作(函数MergeCells), 但输出的文件一定要97版(即XLSWrite.XLSVersion:=xls97),但这样的结果是: 中文数据有乱码问题,因为我的实际需要,我用另外一个折衷的方法解决了。
W wqthai Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-07 #4 什么折衷办法?? 我是把它判断XLSWrite.XLSVersion:=xls97的语句给屏蔽 掉了,可以用MergeCell函数,输出中文也没有乱码了!
F fxWSY Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-08 #5 wqthai:我下载该控件的多个版本,低版本没有合并功能,高版本 输出的xls文件有中文就有乱码或者含有版权信息。我很饭! 我不知道你是用什么版本,有控件源码?能否发一个给我?(fxwsy@21cn.com) 我试验过,如果不写XLSWrite.XLSVersion:=xls97, 那么在使用MergeCell时回提示不支持此函数。因为TXLSWrite控件创建时, 缺省XLSWrite.XLSVersion:=xls50。 我的折衷方法是,是使用三行解决行居中问题。
wqthai:我下载该控件的多个版本,低版本没有合并功能,高版本 输出的xls文件有中文就有乱码或者含有版权信息。我很饭! 我不知道你是用什么版本,有控件源码?能否发一个给我?(fxwsy@21cn.com) 我试验过,如果不写XLSWrite.XLSVersion:=xls97, 那么在使用MergeCell时回提示不支持此函数。因为TXLSWrite控件创建时, 缺省XLSWrite.XLSVersion:=xls50。 我的折衷方法是,是使用三行解决行居中问题。