Из Excel в Memo

[Nocturnal]

Доброго времени суток. Снова беда =) Нужно скопировать из Excel-я два первых столба в Memo. Я пока пробую построить цикл хотябы для 1-го... но если поможите и с двумя буду очень благодарен! Вот мои не рабочий код:

procedure TForm1.Button3Click(Sender: TObject);
function VarToInt(var AVariant: variant; DefaultValue: integer = 0): integer;
var e,ee:Variant;
i,Def:integer;
begin
DefaultValue:=0;
Result:=DefaultValue;
e:=CreateOleObject('Excel.Applicati on');
ExtractFilePath(Application.ExeName );
e.WorkBooks.Open('D:\Documents and Settings\Admin\Мои документы\Прога\1.xls');
ee:=e.Sheets.Item[1];
if VarIsNull(ee) then
Result := 0
else
if VarIsOrdinal(ee) then
Result := StrToInt(VarToStr(ee));
for i:=1 to StrToInt(VarToStr(ee.columns['A'])) do
Memo3.Lines.Add(ee.Cells[i,1].Text);
e.WorkBooks.Item[1].Save;
e.Quit;
e:=UnAssigned;

end;
end.


За ранее спасибо!

[AlexanderKs]

Для работы с Excel и Word, по моему, лучше использовать компоненты вкладки Servers, в данном случае - ExcelApplication.

Свойство AutoConnect необходимо сделать true, AutoQuit - на ваше усмотрение.

procedure TForm1.Button1Click(Sender: TObject); // кнопка "открыть"
begin
  ExcelApplication1.Visible[0]:=true;
  ExcelApplication1.Workbooks.Open('путь к книге *.xls', EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);

end;

procedure TForm1.Button2Click(Sender: TObject); // кнопка "прочитать"
var i:word;
begin
Memo1.Lines.Add('А'+'  В');
  for i:=1 to 65535 do begin
     with ExcelApplication1 do begin
        if (Range['A'+IntToStr(i),EmptyParam].Text='') and
          (Range['B'+IntToStr(i),EmptyParam].Text='') then
             Break; // условие остановки цикла (если строка пустая)

       Memo1.Lines.Add(Range['A'+IntToStr(i),EmptyParam].Text+'  ' +Range['B'+IntToStr(i),EmptyParam].Text);
     end;
  end;
end;

Возможно, не совсем красиво выглядит код для открытия книги (приходится указывать 14 "пустых" параметров) - но другого способа запуска сохранённой книги через ExcelApplication я не знаю..

Если понадобится информация по вкладке Servers, кое что сможете найти здесь

[Nocturnal]

Огромное спасибо! И литературка помогла и код! Очень выручили.