再发一次。。。唉。。。变通一下嘛
这是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);