stringgrid to execl

1.   

   NativeExcel
     

    

2.   

   procedure Tsave.CopySGDataToExcel(Target: TStringGrid;FileName: string);
   var
   iCount, jCount: Integer;
   XLApp: Variant;
   Sheet: Variant;
   begin
   Screen.Cursor := crHourGlass;
   if not VarIsEmpty(XLApp) then
   begin
   XLApp.DisplayAlerts := False;
   XLApp.Quit;
   VarClear(XLApp);
   end;
   //通过ole创建Excel对象
   try
   XLApp := CreateOleObject('Excel.Application');
   except
   Screen.Cursor := crDefault;
   Exit;
   end;
   SaveDialog1.DefaultExt := 'xls';
   SaveDialog1.FileName := FileName;XLApp.WorkBooks.Add;    //你要把数据放在那里啊,先生成个文件在e:\1.xls
   XLApp.WorkBooks[1].WorkSheets[1].Name := 'sheet1';
   Sheet := XLApp.Workbooks[1].WorkSheets['sheet1'];
   Target.Row := 0;
   for iCount := 0 to Target.RowCount - 1 do
   begin
   for jCount := 0 to Target.ColCount - 1 do
      Sheet.cells[iCount + 1, jCount + 1] := Target.Cells[jCount,iCount];
   Target.Row := iCount;
   end;
   XLApp.ActiveWorkbook.SaveAs(FileName:=FileName);
   Screen.Cursor := crDefault;
   XLApp.ActiveWorkbook.Close;
   end;
     

    

3.   

   上面这个方法刚好是stringgrid导出Excel的方法，我自己用过的。
   当然你要是用advstringgrid的话还有更简单的方法，不用语句，靠控件就能实现。