trouble with Excel

← →
Aks (2004-02-11 14:26) [0]

Люди, хочу найти последнюю запись, а он ругается

XLApp:=CreateOleObject(Excel.Application);
while XLApp.Cells(last,1)<>"" do inc(last);

Может кто-нить подскажет что здесь не так

← →
olookin © (2004-02-11 14:48) [1]

Круто! А теперь так:

procedure TForm1.Button1Click(Sender: TObject);
var xlapp,v: variant;
last: integer;
b: boolean;
begin
XLApp:=CreateOleObject("Excel.Application");
xlapp.visible:=true;
xlapp.workbooks.add;
xlapp.activesheet.cells[1,1]:="dfgd";
xlapp.activesheet.cells[2,1]:="dfgd2";
xlapp.activesheet.cells[3,1]:="dfgd3"; last:=1;
while VarToStr(XLApp.ActiveSheet.Cells[last,1])<>"" do inc(last);
showmessage("This is last "+inttostr(last));
end;

И не забудь убить эксель перед закрытием программы.

← →
Aks (2004-02-11 14:54) [2]

спасибки

← →
AlexandrKu (2004-02-11 15:25) [3]

подскажите как убить эксель ???
вопрос уже задавал но все проигнорировали

← →
AlexandrKu (2004-02-11 15:25) [4]

подскажите как убить эксель ???
вопрос уже задавал но все проигнорировали

← →
olookin © (2004-02-11 15:39) [5]

[4] AlexandrKu (11.02.04 15:25)

Я делаю это так

if not VarIsEmpty(Excel) then begin
Excel.Quit;
VarClear(Excel); end;

← →
AleksandrKu (2004-02-11 15:42) [6]

пишет что метод Quit неподдерживается automation object

← →
olookin © (2004-02-11 15:45) [7]

[6] AleksandrKu (11.02.04 15:42)
пишет что метод Quit неподдерживается automation object

Excel: Variant. У тебя случайно не OleVariant?

← →
AleksandrKu (2004-02-11 15:48) [8]

Excel : Variant;
WorkSheet : Variant;

[8] AleksandrKu (11.02.04 15:48)

В таком случае не знаю. А как вызываешь Excel?

← →
AleksandrKu (2004-02-11 15:54) [10]

mainform.OleContainer1.CreateObjectFromFile(FileName, False);
mainform.OleContainer1.Run;
excel:=mainform.OleContainer1.OleObject;
WorkSheet := Excel.WorkSheets[1];

WorkSheet := Excel.WorkSheets[1];

Мне кажется надо

WorkSheet := Excel.ActiveWorkbook.WorkSheets[1];

И кроме того, я вызываю через CreateOleObject а не через компонент OleContainer. Короче, минуя компоненты я вызываю - не знаю может это имеет значение.

trouble with Excel Найти похожие ветки