Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

19th
Июн

Сохранить данные из StringGrid в Excel

Posted by Chas under Delphi

На форме имеется таблица StringGrid, состоящая из нескольких сотен строк и 6 столбцов. Также есть Edit1, в который вводится имя файла. Нужно организовать возможность сохранения данных из этой таблицы в Excel.

А именно, при нажатии на кнопку «Сохранить» данные из СтрингГрида должны вывестись на лист книги Excel, а затем эта книга должна сохраниться в директорию с программой с названием, которое введено в Edit1.

Daramant
Это можно сделать вот так:

unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids;
type

  TForm1 = class(TForm)

    Button1: TButton;

    StringGrid1: TStringGrid;

    Edit1: TEdit;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }
    function GetExcelFileName: String;

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}
uses

  ComObj;
const

  EXCEL_FILE_EXT = '.xls';
function TForm1.GetExcelFileName: String;

begin

  Result := ExtractFilePath(Application.ExeName) + Edit1.Text;
  if LowerCase(ExtractFileExt(Result)) <> EXCEL_FILE_EXT then

    Result := Result + EXCEL_FILE_EXT;

end;
procedure TForm1.Button1Click(Sender: TObject);

var

 ExcelApp, Sheet: variant;

 Col, Row: Word;

begin

  ExcelApp := CreateOleObject('Excel.Application');

  try

    ExcelApp.Visible := false;
    ExcelApp.Workbooks.Add;

    Sheet := ExcelApp.ActiveWorkbook.Worksheets[1];
    for Col := 0 to StringGrid1.ColCount - 1 do

      for Row := 0 to StringGrid1.RowCount - 1 do

        Sheet.Cells[Row + 1, Col + 1] := StringGrid1.Cells[Col, Row];
    ExcelApp.ActiveWorkbook.SaveAs(GetExcelFileName);
    ShowMessage('Ok!');

  finally

    ExcelApp.Application.Quit;

    ExcelApp := unassigned;

  end;

end;

end.