Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

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;


 
olookin ©   (2004-02-11 15:50) [9]

[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];


 
olookin ©   (2004-02-11 16:10) [11]

WorkSheet := Excel.WorkSheets[1];

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

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

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



Страницы: 1 вся ветка

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.045 c
1-80009
-=Zerg=-
2004-02-12 10:42
2004.02.25
Как вернуть курсор?


1-79990
Sergei!
2004-02-13 11:59
2004.02.25
TComboBoxEx.Indent не работает


1-79950
Khabibulin
2004-02-13 21:25
2004.02.25
Открыть с помощью ...


1-79982
h0use
2004-02-13 15:45
2004.02.25
Как из строки где записано 16-ное число сделать Integer


6-80078
Andersen
2003-12-16 14:22
2004.02.25
Вопрос про майл сервер