zoukankan      html  css  js  c++  java
  • StringGrid存储为Excel文档

    function SaveAsExcelFile(StringGrid: TStringGrid; FileName: string):
    boolean;
    const
      xlWBATWorksheet = -4167;
    var
      Row, Col:     integer;
      GridPrevFile: string;
      XLApp, Sheet: OLEVariant;
    begin
      Result := false;
      XLApp := CreateOleObject('Excel.Application');
      try
        XLApp.Visible := False;
        XLApp.Workbooks.Add(xlWBatWorkSheet);
        Sheet      := XLApp.Workbooks[1].WorkSheets[1];
        Sheet.Name := 'My Sheet Name';
        for col := 0 to StringGrid.ColCount - 1 do
          for row := 0 to StringGrid.RowCount - 1 do
            Sheet.Cells[row + 1,col + 1] := StringGrid.Cells[col, row];
        try
          XLApp.Workbooks[1].SaveAs(FileName);
          Result := True;
        except
        end;
      finally
        if not VarIsEmpty(XLApp) then
        begin
          XLApp.DisplayAlerts := False;
          XLApp.Quit;
          XLAPP := Unassigned;
          Sheet := Unassigned;
        end;
      end;
    end;
  • 相关阅读:
    敏捷开发第五天
    敏捷开发第四天
    系统用户分析模型
    第三天敏捷开发
    第二天敏捷开发
    敏捷开发第一天
    第三周学习总结
    [学习笔记]莫队算法
    【网络流】Modular Production Line
    [学习笔记]set的使用
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/2940857.html
Copyright © 2011-2022 走看看