各位高手,如何把一个strings里的内容录入excel中,并且分列(50分)

  • 主题发起人 主题发起人 lisa1513
  • 开始时间 开始时间
L

lisa1513

Unregistered / Unconfirmed
GUEST, unregistred user!
我这样几个个字符串:
s1=name address num
s2=wang wu 3
我要将两个字符串录入excel中,并且是分列分好的
请问要用到什么函数,什么控件
 
怎么又是你啊。。
我不发给你了啊
 
再发一次。。。唉。。。变通一下嘛
这是excel的 ,word 类似的 。

uses comobj...
.....
.....
var
eclapp,workbook:variant;
xlsfilename:string;
inti,intj:integer;
begin
if StringGrid.RowCount <=1 then
exit;

if not SaveDialog.Execute then
exit;
xlsfilename:=SaveDialog.FileName;

try
eclapp:=createoleobject('excel.application');
workbook:=createoleobject('excel.sheet');
except
messagebox(handle,'你的计算机没装有Excel !','提示',MB_OK+MB_ICONINFORMAT
ION);
exit;
end;

try
workbook:=eclapp.workbooks.add;

for inti:=0 to StringGrid.RowCount -1 do
begin

eclapp.cells(inti+1,1):=StringGrid.Cells[0,inti];
eclapp.cells(inti+1,2):=StringGrid.Cells[1,inti];
eclapp.cells(inti+1,3):=StringGrid.Cells[2,inti];
eclapp.cells(inti+1,4):=StringGrid.Cells[3,inti];
eclapp.cells(inti+1,5):=StringGrid.Cells[4,inti];
eclapp.cells(inti+1,6):=StringGrid.Cells[5,inti];
eclapp.cells(inti+1,7):=StringGrid.Cells[6,inti];
eclapp.cells(inti+1,8):=StringGrid.Cells[7,inti];
eclapp.cells(inti+1,9):=StringGrid.Cells[8,inti];
eclapp.cells(inti+1,10):=StringGrid.Cells[9,inti];
eclapp.cells(inti+1,11):=StringGrid.Cells[10,inti];
eclapp.cells(inti+1,12):=StringGrid.Cells[11,inti];
eclapp.cells(inti+1,13):=StringGrid.Cells[12,inti];
eclapp.cells(inti+1,14):=StringGrid.Cells[13,inti];
eclapp.cells(inti+1,15):=StringGrid.Cells[14,inti];
eclapp.cells(inti+1,16):=StringGrid.Cells[15,inti];
end;
workbook.saveas(xlsfilename);
workbook.close;
except
eclapp.quit;
exit;
end;

xlsfilename:='你的文件保存在 '+xlsfilename;
messagebox(handle,pchar(xlsfilename),'提示',MB_OK+MB_ICONINFORMATION);
 
见你问的都是同一问题
 
Excel支持好几种格式文本的导入的
查Excel的帮助
 
知道你是高手,我对delphhi有什么函数和有什么控件都不熟,见笑见笑,现在还没入门
请问你知道那个网站有delphi资料,不要星星点点的,是比较系统的教学资料
 
建议去买书看。。。
然后最重要的就是实践,这样才能学到东西。。不懂的拿到这里来,让大家为你解答,,爽吧
 
后退
顶部