Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.034 c