沒什么好說的，就是一個導出Excel的功能，代碼如下：

function TExportToExcel.Export(SGrid_List: TStringGrid;filename:string;out Errstr:string): Boolean; varexcelapp:Variant;page:Variant;i,j:Integer;savedialog:TSaveDialog;strsavefile:string; begintryresult := false;savedialog := TSaveDialog.Create(self);trysavedialog.FileName := filename;savedialog.Filter := '*.xls';if not savedialog.Execute() thenexit;strsavefile := savedialog.FileName;Screen.Cursor:=crhourglass; //屏幕指針形狀excelapp := CreateOleObject('excel.application');excelapp.workbooks.add;excelapp.workbooks[1].worksheets[1].name:=filename;page:=excelapp.workbooks[1].worksheets[filename];for i:= 0 to SGrid_List.RowCount-2 dobegin//第一列沒有數據，不用for j:=1 to SGrid_List.ColCount-1 dobeginpage.cells[i+1,j]:= SGrid_List.Cells[j,i];end;end;excelapp.activeworkbook.saveas(strsavefile);Application.ProcessMessages;excelapp.application.quit;result := true;finallysavedialog.Free;Screen.Cursor:=crDefault;end;excepton E:Exception dobeginErrstr := e.Message;result := false;end;end; end;

?

轉載于:https://www.cnblogs.com/jinshizuofei/p/3373150.html

總結

以上是生活随笔為你收集整理的delphi中TStringGrid数据的导出的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。