delphiµ¼³öºó³¤Êý¾ÝÏÔʾ²»È«

Delphi(Pascal) code:

procedure Tpaigon.N2Click(Sender: TObject);
var
j,col:integer;
filename:string;
MSExcel,xlsheet,xlBook:Variant; //ole ComObj
begin
IF DBGrid1.Fields[0].AsString='' then
begin
Application.MessageBox('ÁбíΪ¿Õ£¬ÎÞ·¨µ¼³ö£¡','´íÎó²Ù×÷',MB_OK+MB_ICONError);
exit;
end;
//µ¼³öÊý¾Ý
SaveDialog1.FileName:='ÅɳöÐÅÏ¢';
if SaveDialog1.Execute then
begin
filename := concat(SaveDialog1.FileName,'.xls');
try
MSExcel:=CreateOLEObject('Excel.Application');
xlBook:=MSExcel.WorkBooks.Add;
xlsheet:=xlBook.Worksheets['sheet1'];
for col:=1 to DBgrid1.Columns.Count do
begin
xlsheet.Cells.item[1,col]:=DBgrid1.Columns[col-1].Title.Caption;
j:=1;
adoquery1.First;
while not ADOQuery1.Eof do begin
DBGrid1.SelectedRows.CurrentRowSelected:=True;
xlsheet.Cells.item[j+1,col]:=DBGrid1.Fields[col-1].AsString;
ADOQuery1.Next;
j:=J+1;
end;
end;
xlBook.SaveAs(filename);
MSExcel.WorkBooks.close;
MSExcel.Quit;
MSExcel:=unassigned;

except
Application.Messagebox('ExcelûÓа²×°!','´íÎóÌáʾ',MB_ICONERROR+mb_Ok);
exit;
end;
end;
end;




ÉÏÃæÊÇ´úÂë,µÃÔÚÄÄÀï¼ÓÉÏÒ»¾äÉèÖÃÁÐΪÎı¾Ð͵ÄÓï¾ä....°ÑÁÐÀà±ð¸Ä³ÉÎı¾Ðͺó