[LilLoco]

anatoly_neo, Здравствуйте! Вытащить данные из Excel можно следующим образом :

Код:

excel : Variant; // Объявляем переменную
...............
excel := CreateOleObject('Excel.Application');
excel.Workbooks.Open("excelfile.xls"); //Открываем файл excel
RowsCount := excel.ActiveSheet.UsedRange.Rows.Count; //Получаем количество использованных строк*
for i := 0 to RowsCount
begin
// выполняем операции со строками**
end
excel.ActiveWorkbook.Close;//закрываем файл excel
excel.Application.Quit;//"закрываем" excel приложение

* - Строки могут быть пустыми, но если они отформатированы, то будут считаться использованными, по вашему примеру их будет 18!

** - Обращаться к ячейкам так :

Код:

excel.Cells[i,j].Value

где i - строка, j - столбец

хотелось бы сразу добавить небольшое усложнение задачи »

Сначала тащите из excel ячейку с датой, выполняйте все операции необходимые для проверки, проверяйте, и если true выводите!

P.S.
не забыть добавить

Код:

uses ComObj

[anatoly_neo]

как открыть файлик вроде разобрался, но вот как прочитать оттуда ячейки и закинуть их в StringGrid так и не могу пока понять, подмогните плиз

[LilLoco]

как прочитать оттуда ячейки и закинуть их в StringGrid »

Циклом пройтись по документу!
Например по представленному вами файлу Excel :

Код:

for i := 2 to 4 do
begin
sg.cells[i - 1, 0] := excel.cells[i, 1].Value; // время
sg.cells[i - 1, 1] := excel.cells[i, 2].Value; // фио
sg.cells[i - 1, 2] := excel.cells[i, 3].Value; // номер

где sg - StringGrid

если количество строк неизвестно заранее то

Код:

RowsCount := excel.ActiveSheet.UsedRange.Rows.Count;

[anatoly_neo]

что-то не хочет работать такая вот комбинация:

procedure TForm1.Button1Click(Sender: TObject);
var excel : variant;
i, j, n: integer;
begin
n := OpenFile();
//Caption := ExtractFileName(Form1.OpenDialog1.FileName);
for i := 1 to 3 do
begin
sg1.cells[i - 1, 0] := excel.cells[i, 1].Value; // время
sg1.cells[i - 1, 1] := excel.cells[i, 2].Value; // фио
sg1.cells[i - 1, 2] := excel.cells[i, 3].Value; // номер
end;
end;


жалуется на "Undeclarated identifier 'Value' "....

[LilLoco]

В коде у меня тоже подчеркивается красным, и та же ситуация Undeclarated identifier 'Value', но при этом все компилируется и работает отлично! Что делает строка

Код:

n := OpenFile();

?
И где инициирование переменной excel?
Тут было все довольно конкретно описано!

[Хоф]

LilLoco,
вопрос в догонку так сказать для собственного просвещения.

любая_прога := CreateOleObject('название этой проги') »

Создает объектную переменную размером с саму программу?

и если создает то внутри кого VBA или Delphi (в применительно к условиям anatoly neo )

[anatoly_neo]

n := OpenFile(); - это у меня была функция сделана для открытия файла...
переделал как вы писали выше, вроде и правда заработало.

получилось как то вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var excel : variant;
i, j, RowsCount: integer;

begin
Form1.OpenDialog1.Execute();
excel := CreateOleObject('excel.application');
excel.workbooks.open[Form1.OpenDialog1.FileName];
RowsCount := excel.ActiveSheet.UsedRange.Rows.Count;
excel.Cells.SpecialCells(xlCellTypeLastCell,EmptyParam).Activate;

  for i := 1 to RowsCount do
    begin
      sg1.cells[i - 1, 0] := excel.cells[2, i].Value; // время
      sg1.cells[i - 1, 1] := excel.cells[3, i].Value; // фио
      sg1.cells[i - 1, 2] := excel.cells[4, i].Value; // номер
    end;
  excel.activeworkbook.close;
  excel.application.quit;
end;

осталось только допилить код чтобы он все данные без явного указания ячеек расставлял (я про такие строки sg1.cells[i - 1, 0] := excel.cells[2, i].Value; ) ...
будем думать и химичить, если не дойдёт как наверно ещё обращусь


PS: только одного не понял, вроде бы в sg1.cells[i , j] , i - это столбец, а j - это строка... но по вашему примеру он мне строки в столбцы выводил, а так как написано у меня, он выводит строки в строчку, как мне и хотелось... в чём же загадка?

[LilLoco]

вроде бы в sg1.cells[i , j] , i - это столбец, а j - это строка... »

Да, моя ошибка извиняюсь, сначала идет столбец, а потом строка! У меня же в примере, наоборот

Создает объектную переменную размером с саму программу? »

Вы знаете, я затрудняюсь ответить на этот вопрос, так как не сильно разбирался когда нужно было это реализовать!
ИМХО, создается просто ссылка на объект, так как сам excel во время работы запускается в фоновом режиме, это можно отследить в процессах, а по окончании работы с документом из программы Delphi, он выгружается из памяти! Не думаю, что в программе под эту переменную выделяется много памяти!

[anatoly_neo]

состряпал такой вот кодик:

Код:

 for i := 1 to RowsCount do
    begin
      for j := 1 to RowsCount do
        begin
          sg1.cells[i - 1, j - 1] := excel.cells[j, i].Value;

так он заполняет табличку, но не с самой верхней строки, а со второй, подскажите куда рыть?