zoukankan      html  css  js  c++  java
  • 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的话还有更简单的方法,不用语句,靠控件就能实现。
          
  • 相关阅读:
    CSS3选择器:nth-child和:nth-of-type的差异
    H5 设计尺寸
    笔试题的各种trick
    OpenCV2.4.9 + VS2012 + win10 配置
    四种IO模型
    深信服笔试
    哈希表
    TimeOut Error :因为远程服务器关闭导致mnist数据集不能通过input_data下载下来
    Http协议对格式、请求头、方法
    GDB调试
  • 原文地址:https://www.cnblogs.com/maweiwei/p/12201828.html
Copyright © 2011-2022 走看看