不安装Excel,怎样把数据导成Excel格式,能在程序中控制单元格格式(200分)

H

hnzpeng

Unregistered / Unconfirmed
GUEST, unregistred user!
不安装Excel,把数据源数据导成Excel格式
并且能控制单元格格式,象控制Excel一样,可以打印预览
能不能实现,怎样实现?有源码、例子最好
 
自己写个类似EXCEL控件 就解决了[:(!]
 
datasettoxls 找
 
可以写数据到stringlist中,然后savetofile('c:/file.csv');//存成逗号分隔符文件,然后就能用EXCEL文件打开了。或者再RENAME一下。
 
savetofile 话,用RM 报表控件就可以,用dbgrideh也可以保存成Excel,
 
可以写数据到stringlist中,字段之间用#9隔开,然后savetofile('c:/file.xls'
 
有控件的
直接可以转Excel
 
当然可以,收费开源的一堆VCL。
或者,你也可以自己下个XLS格式说明啃,自己做解析。
 
刚才试了一下,用RM 导成Excel 也要安装E
 
dbgrideh只是把数据保存成Excel文件,不能对文件格式进行控制
 
to bsense
找到了 datasettoxls 
我用 DataSetToXLS(ADOQhtqry,'C:/Documents and Settings/zpeng/桌面/new/file1.xls');
  出错:range check error. 错误行在
procedure TXLSWriter.CellStr(vCol, vRow: word; aValue: String;
vAtribut: TSetOfAtribut);
var FAtribut:array [0..2] of byte;
slen:byte;
begin
Writeword(4); // opcode for string
slen:=length(avalue);
Writeword(slen+8); // count of byte
Writeword(vCol);
Writeword(vRow);
SetCellAtribut(vAtribut,fAtribut);
fStream.Write(fAtribut,3);
fStream.Write(slen,1);
fStream.Write(aValue[1],slen); //错误提示停留在最后两行
end;
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
869
DelphiTeacher的专栏
D
顶部