Delphi как отключить excel - Word и Excel - помощь в работе с программами

Сообщение от qwertehok

у нас есть такая тема
Delphi + Excel

да, спасибо за ссылку, я как раз эту тему уже выкурил, теперь заполняю более корректно одним запросом:

Delphi

Excel.Range['A1','A1'].Select;
               Excel.ActiveSheet.Hyperlinks.Add(
               Anchor:=Excel.Selection,
               Address:='http://....',
               ScreenTip:='http://....',
               TextToDisplay:='Go to http://....'
               );

все равно вызов самого Hyperlinks.Add вызывает висюк…

из модуля Excell2000 вот такой конструктор достал:

Delphi

1 2	function Add(const Anchor: IDispatch; const Address: WideString; SubAddress: OleVariant; ScreenTip: OleVariant; TextToDisplay: OleVariant): IDispatch; dispid 181;

если указать на ненужных мне параметрах EmptyParam то на прохождении по этому конструктору вылетает «сохранить изменения?» — прерывается работа.

Добавлено через 28 минут
в чем же дело…. если закрыть свою программу экземпляр экселя тоже умирает в диспетчере….

Добавлено через 7 минут
и еще, может натолкнет на мысль… если открыть файл экселем и закрыть его, он пропадает из диспетчера при работающей далее программе вызвавшей его.

Добавлено через 40 минут
В общем остановился на приемлемом варианте

Delphi

   try
        Excel :=GetActiveOleObject('Excel.Application');
   except
        try
          Excel :=CreateOleObject('Excel.Application');
        except
          raise Exception.Create('Ошибка запуска Excel');
        end;
   end;

выходит что в любой момент времени остается висеть только один экземпляр экселя. Убивается он если открыть документ самим экселем и закрыть его, либо закрыть вызвавшую его программу.

Как-бы один экземпляр висюка еще можно потерпеть в ОЗУ. Почитав Василия Корнякова «Программирование документов и приложений MS Office в Delphi » понял что я делаю все правильно, это видимо лаг самого офиса, и не факт что он повторится на другой версии офиса.

Спасибо qwertehok и droider за помощь.

Источник

Would someone assist with what I’m sure is a basic error on my part please.

My goal is to open an Excel spreadsheet (invisibly), populate it, attach it to an email, send and close everything.

It is close to complete, except that Excel remains open — in the Task Manager — after the process is complete.

The block of code is:

procedure TFMain.SendEmail;
var
  i, j, r: Integer;
  vBody, vSaveVer: string;
  vAttach: TIdAttachment;
  vMftQty: array [1 .. 2] of Integer;
  vQtyTot: array [1 .. 12] of Integer;
  vNetTot: array [1 .. 12] of Real;
  oXL, oWB, oSheet: Variant;
begin
  IdMessage1.From.Address := 'sage@valid-email.co.uk';
  IdMessage1.From.Domain := 'valid-email.co.uk';
  IdMessage1.From.Text := 'Sage <sage@valid-email.co.uk>';
  IdMessage1.Subject := 'Sage';
  try
    SQLQuery1.Close;
    SQLQuery1.SQL.Clear;
    SQLQuery1.SQL.Add('SELECT comp,dept,e_addr FROM acc_email WHERE dept="' +
      EMailQuery.FieldByName('Dept').Text + '"');
    SQLQuery1.Open;
    while not SQLQuery1.Eof do
    begin
      IdMessage1.Recipients.EMailAddresses :=
        EMailQuery.FieldByName('E_Addr').Text;
      SQLQuery2.Close;
      SQLQuery2.SQL.Clear;
      SQLQuery2.SQL.Add('SELECT * FROM invoice WHERE global_dept_number="' +
        EMailQuery.FieldByName('Dept').Text +
        '" ORDER BY account_ref, stock_code');
      SQLQuery2.Open;

      oXL := CreateOleObject('Excel.Application');
      oXL.DisplayAlerts := False;
      oWB := oXL.Workbooks.Add;
      while not SQLQuery2.Eof do
      begin
        oXL.Cells[r, 1].Value := 'Code';
        oXL.Cells[r, 2].Value := 'Description';
        oXL.Cells[r, j * 2 + 1].Value := 'Qty';
        oXL.Cells[r, j * 2 + 2].Value := 'Value';
        Inc(r);
        oWB.Worksheets.Add(After := oWB.Worksheets[oWB.Worksheets.Count]);
        oSheet := oWB.ActiveSheet;
        oSheet.Name := SQLQuery2.FieldByName('account_ref').Text;
        oXL.Cells[1, j * 2 + 1].Value := 'Month';
        r := 2;
        SQLQuery2.Next;
      end;
      if oWB.Worksheets.Count > 1 then
        oWB.Worksheets.Item['Sheet1'].Delete;
      oWB.Worksheets[1].Select;
      oWB.SaveAs(vSave + EMailQuery.FieldByName('Dept').Text + '.xlsx');
      SQLQuery1.Next;
    end;
    try
      if IdMessage1.Recipients.EMailAddresses <> '' then
      begin
        vAttach := TIdAttachmentFile.Create(IdMessage1.MessageParts,
          vSave + EMailQuery.FieldByName('Dept').Text + '.xlsx');
        IdSMTP1.Connect;
        IdSMTP1.Send(IdMessage1);
        IdMessage1.Recipients.EMailAddresses := '';
        IdMessage1.Body.Text := '';
      end;
    finally
      if IdSMTP1.Connected then
        IdSMTP1.Disconnect;
    end;
  finally
    vAttach.Free;
    oSheet := Unassigned;
    oWB := Unassigned;
    oXL.Quit;
    oXL := Unassigned;
  end;
end;

Yet Excel remains in the Task Manager and as the process runs a few times over the day, they build up in the background.

Could someone direct me to either the solution or how to troubleshoot the problem?

Источник

← →
scorpio_md

(2005-12-16 11:35)
[0]

Подскажите плиз, как закрыть екселевское приложение без запроса на сохранение, пробовал
xls.quit; xls.quit(2); — По аналогии с WORD — ругается, неизветсный параметр

← →
Scorpio ©

(2005-12-16 15:07)
[1]

Мастера подскажите как мне всетаки закрыть ексель без сохранения, а то мозги уже кипят.

← →
Zz_

(2005-12-16 15:09)
[2]

DisplayAlerts

← →
Scorpio ©

(2005-12-16 15:16)
[3]

xls := CreateOleObject(«Excel.Application»);
app := XLS.Workbooks.Open(«c:spravkaspravka»);
xls.worksheets[«Ëèñò1″].Cells[1,1].Cells:=»Ïðèâåò»;
XLS.ActiveWindow.SelectedSheets.PrintOut(Copies:=1,Collate:=True);
xls.DisplayAlerts; xls.quit; xls := unassigned; app := Unassigned;
Я пробовал с xls.quit; и без, он мне выдает «Метод DisplayAlerts из класса Application завершен неверно».

← →
umbra ©

(2005-12-16 15:23)
[4]

xls.DisplayAlerts := false;

← →
Vlad ©

(2005-12-16 15:49)
[5]

> Scorpio © (16.12.05 15:16) [3]

Можно его обмануть

XLS.WorkBooks[1].Saved := True;
XLS.Quit;

← →
Scorpio ©

(2005-12-16 16:03)
[6]

Всем спасибо, теперь у меня все работает.

Источник

msm.ru

Нравится ресурс?
Помоги проекту!

Пожалуйста, выделяйте текст программы тегом [сode=pas] … [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как «свернуть» программу в трей.
3. Как «скрыться» от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
… (продолжение следует) …

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.

Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка — 60 дней. Последующие попытки бан.
Мат в разделе — бан на три месяца…

Правильно закрыть Excel

Подписаться на тему
Сообщить другу
Скачать/распечатать тему

Сообщ.
#1

,
30.11.10, 17:06

Full Member

Рейтинг (т): 10

Ребят, всем привет. Использую для работы с Excel следующую конструкцию. По её завершению в процессах остается все равно висеть злосчастный EXCEL.EXE. Как его оттуда убрать?

var

Excel : Variant;

procedure TMainForm.LoadFromExcel();

begin

//создаем объект

Excel := CreateOleObject(‘Excel.Application’);

//что то с ним делаем

Excel.DisplayAlerts := False; //блокировка уведомлений о сохранении

Excel.WorkBooks[1].SaveAs(ExcelFileName);

try

Excel.Workbooks.Close;

except

end;

Fr0sT

Сообщ.
#2

,
30.11.10, 17:33

Цитата seska @ 30.11.10, 17:06

По её завершению в процессах остается все равно висеть злосчастный EXCEL.EXE

Так ты его и не закрываешь, закрываешь только одну вкладку. Вероятно, надо вызывать что-то вроде Excel.Quit

seska

Сообщ.
#3

,
30.11.10, 17:45

Full Member

Рейтинг (т): 10

Excel.Quit тоже не работает. Вероятно нужно что-то вроде этого, а что конкретно я к сожалению не могу найти ;(

VahaC

Сообщ.
#4

,
30.11.10, 18:39

в DRKB -> ActiveX, COM и Другие технологии -> Работа с приложениями Microsoft Office -> Работа с Microsoft Excel -> Как зыкрыть Excel говорят что вот так

try

Ex1.Workbooks.Close(LOCALE_USER_DEFAULT);

Ex1.Disconnect;

Ex1.Quit;

Ex1:=nil;

except

end;

andrew.virus

Сообщ.
#5

,
30.11.10, 18:47

seska, для получения результата нужно выполнить следующее:

var

tmpExcel: variant;

begin

// создаем объект

tmpExcel:=CreateOleObject(‘Excel.Application’);

// что то с ним делаем

tmpExcel.Workbooks.Add; // добавляем один лист в книгу

// сохраняем полученный результат

tmpExcel.DisplayAlerts:=false; // блокируем уведомления о сохранении

tmpExcel.ActiveWorkbook.SaveAs(extractfilepath(application.ExeName) + ‘1.xls’);

tmpExcel.ActiveWorkbook.Close

end;

з.ы.: во вложении пример с использованием данного кода …

Прикреплённый файлexcel_close.zip (1,79 Кбайт, скачиваний: 161)

seska

Сообщ.
#6

,
30.11.10, 19:14

Full Member

Рейтинг (т): 10

Спасибо, VahaC! Вроде процесс удаляется теперь. Только код немного видоизменил, так он не компилируется.

try

Excel.Workbooks.Close;

except

end;

Excel.Quit;

Excel := null;

Добавлено 30.11.10, 19:16
andrew.virus да, тут задача чтобы Excel была глобальной переменной. Если она локальная, как у тебя, то после выхода из процедуры процесс действительно исчезает

Light13

Сообщ.
#7

,
01.12.10, 09:31

Есть замечательная функция Excel := Unassigned. Перед присвоением не забыть сделать Quit.

Fr0sT

Сообщ.
#8

,
01.12.10, 11:23

Excel := nil тоже вполне сработает

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

Предыдущая тема
Delphi: Общие вопросы
Следующая тема

[ Script execution time: 0,0344 ] [ 18 queries used ] [ Generated: 13.04.23, 22:37 GMT ]

Источник

Не могу закрыть Excel из Delphi

	От:	yuriyr
Дата:	06.07.04 11:06
	Оценка:

У меня форма запускает через Ole Excel

    SaveName:=Name;
    XLap := CreateOLEObject('Excel.Application');
    Workbook := XLap.WorkBooks.Open(Name);
    xlap.Visible := true;
    xlap.DefaultFilePath:=ExtractFileDir(Name);

а сама всплывает поверх его (из нее я перетаскиваю в ячейки всякую шнягу)
она держит application екселя до своего закрытия,
а при закрытии этой формы я все сохраняю и закрываю ексель

    xlap.DisplayAlerts := False;
    Workbook.SaveAs(SaveNAme);
    xlap.Quit;
    Application.ProcessMessages;

Так вот если в екселе не редактируется ячейка все проходит на ура
а ежели редактируется, то он игнорирует команды на закрытие и остается открытым.
Вопрос: Как бы его вывести из состояния редактирования ячейки?
YuriyR

Re: Не могу закрыть Excel из Delphi

	От:	Softwarer	http://softwarer.ru
Дата:	06.07.04 11:16
	Оценка:	+1

Здравствуйте, yuriyr, Вы писали:

Y> xlap.Quit;
Y>Так вот если в екселе не редактируется ячейка все проходит на ура
Y>а ежели редактируется, то он игнорирует команды на закрытие и остается открытым.

Ответы на такие вопросы легче искать, сделав xlap.visible := true. В данном случае, если мне не изменяет память, Excel задает тебе вопрос о том, надо ли сохранять сделанные изменения, и, соответственно, не выходит, пока не ткнешь в Yes или No в невидимом окне Соответственно, надо явно сохранить файл.

Re[2]: Не могу закрыть Excel из Delphi

	От:	yuriyr
Дата:	06.07.04 11:23
	Оценка:

Здравствуйте, Softwarer, Вы писали:

S>Здравствуйте, yuriyr, Вы писали:

Y>> xlap.Quit;
Y>>Так вот если в екселе не редактируется ячейка все проходит на ура
Y>>а ежели редактируется, то он игнорирует команды на закрытие и остается открытым.

S>Ответы на такие вопросы легче искать, сделав xlap.visible := true. В данном случае, если мне не изменяет память, Excel задает тебе вопрос о том, надо ли сохранять сделанные изменения, и, соответственно, не выходит, пока не ткнешь в Yes или No в невидимом окне Соответственно, надо явно сохранить файл.

Нет первая команда xlap.DisplayAlerts := False;
Она отменяет все вопросы Excel на счет подтверждения сохранения
Но и она — самая первая — не выполняется exeption выдает каманда игнорирована

Re[3]: Не могу закрыть Excel из Delphi

	От:	Softwarer	http://softwarer.ru
Дата:	06.07.04 11:28
	Оценка:

Здравствуйте, yuriyr, Вы писали:

Y>Нет первая команда xlap.DisplayAlerts := False;

Виноват, действительно прореагировал «на рефлексах». Прошу прощения.

Re[3]: Не могу закрыть Excel из Delphi

От:

akasoft

Дата:

06.07.04 13:36

Оценка:

Здравствуйте, yuriyr, Вы писали:

Y>Нет первая команда xlap.DisplayAlerts := False;
Y>Она отменяет все вопросы Excel на счет подтверждения сохранения

Я тебе конечно верю, но и ты мне поверь, иногда Excel капризничает, иногда привелегий не хватает. Попробуй с алертами, посмотри, что он там пишет и дай ему это…

… << RSDN@Home 1.1.4 beta 2 >>

Re[4]: Не могу закрыть Excel из Delphi

	От:	yuriyr
Дата:	06.07.04 16:25
	Оценка:

Здравствуйте, akasoft, Вы писали:

A>Я тебе конечно верю, но и ты мне поверь, иногда Excel капризничает, иногда привелегий не хватает. Попробуй с алертами, посмотри, что он там пишет и дай ему это…

Попробовал и так. Изменений нет
OLE error ‘Вызов был отклонен’
Использую ExcelXP
Help! Please

Re: Не могу закрыть Excel из Delphi

От:

Slicer [Mirkwood]

https://ru.linkedin.com/in/maksim-gumerov-039a701b

Дата:

06.07.04 19:01

Оценка:

Да не команду на закрытие он игнорирует, а любые OLE-вызовы

Slicer

Специалист — это варвар, невежество которого не всесторонне

Re[5]: Не могу закрыть Excel из Delphi

	От:	Григоричев Денис
Дата:	08.07.04 05:15
	Оценка:	6 (1)

Здравствуйте, yuriyr, Вы писали:
Y>Здравствуйте, akasoft, Вы писали:

A>>Я тебе конечно верю, но и ты мне поверь, иногда Excel капризничает, иногда привелегий не хватает. Попробуй с алертами, посмотри, что он там пишет и дай ему это…

Y>Попробовал и так. Изменений нет
Y>OLE error ‘Вызов был отклонен’
Y>Использую ExcelXP
Y>Help! Please
Таки да, есть такая бодяга. Проходили.Вылечилось так:
EA.SendKeys(‘{ESC}’,0,LOCALE_USER_DEFAULT);
Где EA — ExcelApplication.
Этим мы вырубаем режим редактирования ячейки. Дальше он принимает все OLE вызовы.

… << RSDN@Home 1.1.3 stable >>

Re[6]: Не могу закрыть Excel из Delphi

От:

Slicer [Mirkwood]

https://ru.linkedin.com/in/maksim-gumerov-039a701b

Дата:

08.07.04 09:04

Оценка:

Логично
Интересно, а нормальное решение есть? Без имитации клавиатурного ввода?
Ведь такая имитация плоха уже тем, что при этом отменяются внесенные юзверем в ячейку изменения. Сравните это с поведением самого Excel: если мы пытаемся его закрыть в момент редактирования, внесенные в ячейку изменения считаются подтвержденными.
Кстати, напомню, что в ряде случаев такая блокировка со стороны Excel очень логична (если, например, юзверь сидит в диалоговом окне).

Во многих случаях может подойти открытие данных как внедренного OLE-объекта. При этом как только пользователь переключится на другой элемент нашего окна, automation закроет эксель (в т.ч. если эксель был в режиме редактирования — но не в диалоговом окне). Правда, есть и досадный глюк (по кр. мере, в D6): если в design-time открыть (open, а не edit) объект в OLEContainer, а потом закрыть только книгу (но не эксель), будет закрыта и эксель тоже. А вот если то же проделать в рантайме — эксель останется открыта. Подробно не смотрел — может, как-то это регулируется. Ну сопровождение этого глюка — если один раз объект открыли в режиме open и закрыли, потом с ним можно делать что угодно — но в режиме просмотра в контейнере он при этом будет заштрихован серым (как если в данный момент редактируется в режиме open).

На выбор еще три варианта, не полностью, но решающих проблему: 1) ждем, пока Excel не согласна будет выполнить нашу команду (юзер покинет диалог или выйдет из режима редактирования), 2) блокируем пользовательский интерфейс Excel, 3) открываем данные в режиме «только для чтения» (проблема с диалогами остается).

Кстати, а зачем понадобилось показывать юзеру эксель и разрешать редактирование? И почему убивать Excel мы пытаемся из нашего приложения? Раз уж юзеру дали возможность полазить по таблице, так может, он сам определится, когда ему выходить?

Slicer

Специалист — это варвар, невежество которого не всесторонне

Re[7]: Не могу закрыть Excel из Delphi

	От:	Григоричев Денис
Дата:	09.07.04 05:27
	Оценка:

Здравствуйте, Slicer [Mirkwood], Вы писали:

SM>Логично
SM>Интересно, а нормальное решение есть? Без имитации клавиатурного ввода?
IMHO, нет. Я не нашел, спрашивал об этом на Королевстве Дельфи — мне так и сказали. Так же мне сказали, что сплошная безнадега пытаться узнать позицию курсора при редактировании ячейки.
SM>Ведь такая имитация плоха уже тем, что при этом отменяются внесенные юзверем в ячейку изменения.
Мне это подходило, ибо я все равно затираю содержимое ячейки. В ЭТОМ случае. В другом — ставлю в позицию редактирования. Нашел способ.
SM> Сравните это с поведением самого Excel: если мы пытаемся его закрыть в момент редактирования, внесенные в ячейку изменения считаются подтвержденными.
О, Excel это такая загадочная вещь!
SM>Во многих случаях может подойти открытие данных как внедренного OLE-объекта. При этом как только
Я его так и использую. Мне нужно было достроить меню своими фишками, и, чтобы не мучиться с Add-in-ами, сделал в OleContainer.

SM>Кстати, а зачем понадобилось показывать юзеру эксель и разрешать редактирование? И почему убивать Excel мы пытаемся из нашего приложения? Раз уж юзеру дали возможность полазить по таблице, так может, он сам определится, когда ему выходить?
Не всегда это подходит. У меня это делается в диалоговом окне. Т.е., юзер, сам решает, когда ему прекратить редактирование. Но убиваем Excel из нашего приложения. Ксати, есть способ убить процесс Excel, если прогу «срубили», например из TaskMan?
Денис

… << RSDN@Home 1.1.3 stable >>

Re[8]: Не могу закрыть Excel из Delphi

От:

Slicer [Mirkwood]

https://ru.linkedin.com/in/maksim-gumerov-039a701b

Дата:

09.07.04 09:52

Оценка:

ГД>Ксати, есть способ убить процесс Excel, если прогу «срубили», например из TaskMan?
Это вряд ли хорошо — в экселе могут быть открыты чьи-то еще документы, кроме подсунутых Вами

Slicer

Специалист — это варвар, невежество которого не всесторонне

Re[9]: Не могу закрыть Excel из Delphi

	От:	yuriyr
Дата:	09.07.04 11:21
	Оценка:

Сделал так
Не могу использовать OleContainer так как суть работы заключается в OLE перетаскивании данных из одного обьекта
в ексель, а сним при потере фокуса в контейнере нифига не сделаешь.

procedure TDSBOXF.OpenTemplate(Name: string);
begin
try
SaveName := Name;
XLap := CreateOLEObject(‘Excel.Application’);
Workbook := XLap.WorkBooks.Open(Name);
xlap.Visible := true;
xlap.DefaultFilePath := ExtractFileDir(Name);
except
end;
Show;
end;

procedure TDSBOXF.FormClose(Sender: TObject; var Action: TCloseAction);
var
i: integer;
findapp: string;
begin

////////////////////////////////////////////////////////////////////////////////
// Save Workbook
////////////////////////////////////////////////////////////////////////////////

try
xlap.DisplayAlerts := False;
Workbook.SaveAs(SaveNAme);
Workbook.Close(False);
Application.ProcessMessages;
except
on E: Exception do
begin
// if (E.ClassName = ‘EOleSysError’) AND (EOleSysError(E).ErrorCode = -2147417848) then Exit; // Отключен клиент
if (E.ClassName = ‘EOleSysError’) and (EOleSysError(E).ErrorCode = -2147418111) then // Заблокирован Excel
begin
findapp := ‘Microsoft Excel — ‘ + ChangeFileExt(ExtractFileNAme(SaveNAme), »);
if not AppActivate(Pchar(findapp)) then
begin
findapp := ‘Microsoft Excel*’;
if not AppActivate(Pchar(findapp)) then Exit;
end;
begin
try
SendKeys(‘{TAB}’, True);
Application.ProcessMessages;
xlap.DisplayAlerts := False;
Workbook.SaveAs(SaveNAme);
Workbook.Close(False);
Application.ProcessMessages;
except
end;
end;
end;
end;
end;

Покритикуйте!
Посылаю TAB через Sendkey32 немного модифицированный.
Там еще пишут XLap := CreateOLEObject(‘Excel.Application 7.8.9… ‘);
Вот эти 7-8-9 сильно нужны или нет ? У меня вроде и так все работает.

Wait...

Переместить
Удалить
Выделить ветку

Пока на собственное сообщение не было ответов, его можно удалить.

Источник

Форум программистов Vingrad

Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Как корректно закрыть Excel

Опции темы

Akella

Дата 24.2.2004, 15:52 (ссылка)

(нет голосов)

Загрузка …

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

использую WinXP, ExcelXP, D7

На дополнительной модальной форме лежит компонена TExcelApplication со страницы Servers
Автоподключение и автовыход отключены (False)

Uses System, …., ExcelXP;
также объявлены глобальные переменные

WorkBook: _WorkBook;
Sheet: _WorkSheet;

В нажатия кнопки коде пишу:
…
Excel.Connect;
Excel.WorkBooks.Open(параметры, имя файла);

выполняю какие-то действия
…
…
…

Excel.DisConnect;//это не помогает
Excel.Quit;//это тоже не помогает
и то и другое вместе тоже не помогает

Открываю диспетчер задач — висит Excel, исчезает только после закрытия основного окна, т.е. выхода из программы.

Использовать CreetOleObject не хочется, т.к. много переделывать, а уже все работает идеально кроме закрытия Excel`я

весь код я уже выкладывал.

Cashey

Дата 24.2.2004, 17:00 (ссылка)

(нет голосов)

Загрузка …

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60

Выгрузи переменные WorkBook и Sheet из памяти.

———————

библия учит любить ближнего, а камасутра обучает как именно

Albinos

Дата 24.2.2004, 19:03 (ссылка)

(нет голосов)

Загрузка …

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 11.10.2003

Репутация: 1
Всего: 3

А чего нибудь типа Close() там нет?

Georg4

Дата 25.2.2004, 01:19 (ссылка)

(нет голосов)

Загрузка …

Опытный

Профиль
Группа: Участник
Сообщений: 961
Регистрация: 2.11.2002

Репутация: 0
Всего: 10

Отличный вопрос
Нет не пугайтесь, кто бы то ни был, я не буду опять вбухивать суда всю мануала по ЕХЕЛУ, я действительно задолбался это делать, так что:
Закрытие Excel

Испольуя раннее связывание
if Assigned(IExcel) then begin
if (IExcel.Workbooks.Count > 0) and (not IExcel.Visible[xlLCID]) then
// не закрывайте не свои книги
begin
IExcel.WindowState[xlLCID] := TOLEEnum(Excel8_TLB.xlMinimized);
IExcel.Visible[xlLCID] := true;
Application.BringToFront;
end
else
IExcel.Quit;
IExcel := nil; // см. Хорошая практика
end;
Зачем столько кода? Зачем столько кода? Вы не запускали новый процесс, вы «законнектились» к уже существовавшему. В нем была открыта книга. Если оставить только присваивание в nil, то существовавший процесс не будет выгружен (он же существовал до запуска вашего приложения), но будет, возможно, спрятан от пользователя с его открытой книгой.
Используя компоненты Delphi 5
if Assigned(Excel) then begin
if (Excel.Workbooks.Count > 0) and (not Excel.Visible[xlLCID]) then
// не закрывайте не свои книги
begin
Excel.WindowState[xlLCID] := TOLEEnum(Excel97.xlMinimized);
Excel.Visible[xlLCID] := true;
Application.BringToFront;
end
else
Excel.Quit;
FreeAndNil(Excel);
end;
В Delphi 5 вы работаете уже не с интерфейсом напрямую, а с экземпляром класса TExcelApplcation. Это настоящий экземпляр класса, освободить который просто необходимо. Поэтому вместо присваивания в nil — FreeAndNil.
Используя позднее связывание
if not VarIsEmpty(Excel) then begin
if (Excel.Workbooks.Count > 0) and (not Excel.Visible) then
// не закрывайте не свои книги
begin
Excel.WindowState := Excel97.xlMinimized;
Excel.Visible := true;
Application.BringToFront;
end
else
Excel.Quit;
Excel := UnAssigned;
end;
Внимание — хорошая практика!
Процесс Excel останется в памяти, скрыто выполняясь, до тех пор, пока вы не освободите все ваши указатели на любые, использованные вами, интерфейсы Excel. Отсоедините все компоненты, присвойте всем интерфейсным переменным nil и установите все переменные типа variant в Unassigned, чтобы избежать этого.

Вот и все!

———————

Никто и никогда не должен решать одну проблему дважды

Kesh

Дата 25.2.2004, 13:52 (ссылка)

(нет голосов)

Загрузка …

Эксперт

Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54

Georg4 Ты бы весь цикл статей привел… Ибо это есть гуд…
По-моему «По волнам интеграции…»

———————

Cashey

Дата 25.2.2004, 15:44 (ссылка)

(нет голосов)

Загрузка …

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60

Georg4, все твои рекоммендации сводятся к одному Quit и выгрузка из памяти , что я и говорил.

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

———————

библия учит любить ближнего, а камасутра обучает как именно

Правила форума «Delphi: Общие вопросы»

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

Литературу по Дельфи обсуждаем здесь
Действия модераторов можно обсудить здесь
С просьбами о написании курсовой, реферата и т.п. обращаться сюда
Вопросы по реализации алгоритмов рассматриваются здесь
90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) — крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)

0 Пользователей:

« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Источник

Работа с EXCEL из Delphi

В этой статье я познакомлю вас как работать с MS Excel из Delphi
. Данная статья может быть полезна людям, которые хотят научиться создавать различные отчеты в Excel
из программ написанных на Delphi
. Статья содержит справочные данные необходимые для работы с MS Excel
. Здесь вы найдете информацию о том как:

Подключить и правильно отключить интерфейс Excel;
— Как изменить размер, цвет и тип шрифта;
— Как выделить, объединить, заполнить и размножить диапазон ячеек;
— Как повернуть и отцентрировать текст;
— Как нарисовать границы ячеек;
— Как ввести формулу в ячейку и многое другое…

И так, начнем…

Работать будем через модуль ComObj,
для этого в uses
необходимо добавить модуль ComObj
и модуль Excel_TLB
(для MS Excel 2007
).

Uses ……, ComObj, Excel_TLB;

Модуль Excel_TLB
содержит необходимые константы
для работы с Excel
, его можно не подключать, но тогда придется в ручную прописывать значения всех используемых констант из этого модуля. Значения констант можно найти внутри модуля или в интернете, но для разных версий MS Excel
они разные.
Внимание!!!

Модуль Excel_TLB
в других версиях MS Excel
может называться по другому. Перед подключением модуля Excel_TLB,
необходимо импортировать библиотеку Excel
. Для этого выберите Component->Import Component->Import a Type Library->
находим MS Excel
и следуем инструкциям.

В разделе описания переменных мы должны описать переменную типа Variant
или OleVariant
для подключения интерфейса Excel.
Я описал переменную excel
.

Form1: TForm1;
excel

: variant;
// Переменная в которой создаётся объект EXCEL

Создание документа

Внимание!!!

Всегда когда создаете объект интерфейса, заключайте процедуру создания в модуль обработки ошибок:
try

создаем интерфейс;
формируем отчет;
освобождаем интерфейс;
Except

обрабатываем ошибки;
освобождаем интерфейс;
end;

try

// создаем обьект EXCEL

// Чтоб не задавал вопрос о сохранении документа

excel.DisplayAlerts:= false;

// создаем новый документ
рабочую книгу

excel.WorkBooks.Add;

// или загружаем его из директории с программой

excel.WorkBooks.Open(GetCurrentDir() + «отчет.xls»);

{ GetCurrentDir()- возвращает путь к директории с программой}

// Делаем его видимым
данную функцию после отладки и тестирования лучше использовать в конце, после сформирования отчета (это ускоряет процесс вывода данных в отчет)
excel.Visible:= true;

//задаем тип формул в формате R1C1

excel.Application.ReferenceStyle:= xlR1C1;

// задаем тип формул в формате A1

excel.Application.ReferenceStyle:= xlA1;

// Задаем название первому и второму листу

excel.WorkBooks.WorkSheets.Name:= «Отчет1»;
excel.WorkBooks.WorkSheets.Name:= «Отчет2»;

//задаем формат числа для первой и четвертой колонки формат числа

excel.WorkBooks.WorkSheets.Columns.NumberFormat:= «0,00»;
excel.WorkBooks.WorkSheets.Columns.NumberFormat:= «0,0»;

// задаем ширину первой и второй колонки

excel.WorkBooks.WorkSheets.Columns.ColumnWidth:= 10;
excel.WorkBooks.WorkSheets.Columns.ColumnWidth:= 20;

// задаем начертание, цвет, размер и тип шрифта для первого ряда

excel.WorkBooks.WorkSheets.Rows.Font.Bold:= True; //жирный

excel.WorkBooks.WorkSheets.Rows.Font.Color:= clRed; // цвет красный

excel.WorkBooks.WorkSheets.Rows.Font.Size:= 12; //размер 12

excel.WorkBooks.WorkSheets.Rows.Font.Name:= «Times New Roman»; //шрифт

//присваиваем ячейке 1,4 и 2,4 значения (1 — ряд, 4 — колонка)

excel.WorkBooks.WorkSheets.Cells := «А так можно внести значение в ячейку»;
excel.WorkBooks.WorkSheets.Cells := «А так можно внести значение в ячейку»;

//ввод в ячейку «A12» формулы «=b5+c4»

excel.WorkBooks.WorkSheets.Range[«A12″].Formula:=»=b5+c4»;

// Выравнивам первый ряд по центру по вертикали

excel.WorkBooks.WorkSheets.Rows.VerticalAlignment:= xlCenter;

// Выравнивам первый ряд по центру по горизонтали

excel.WorkBooks.WorkSheets.Rows.HorizontalAlignment:= xlCenter;

// Выравнивам в ячейке по левому краю

excel.WorkBooks.WorkSheets.Cells.HorizontalAlignment:= xlLeft;

// Выравнивам в ячейке по правому краю

excel.WorkBooks.WorkSheets.Cells.HorizontalAlignment:= xlRight;

// Обьединяем ячейки «A1:A8»

excel.WorkBooks.WorkSheets.Range[«A1:A8»].Merge;

// Поворачиваем слова под углом 90 градусов для второго ряда

excel.WorkBooks.WorkSheets.Rows.Orientation:= 90;

// Поворачиваем слова под углом 45 градусов для диапазона ячеек «B3:D3»

excel.WorkBooks.WorkSheets.Range[«B3:D3»].Orientation:= 45;

//рисуем границы выделенного диапазона левая

excel.Selection.Borders.LineStyle:= xlContinuous; // стиль линии сплошная

excel.Selection.Borders.Weight:= xlMedium;// толщина линии

//рисуем границы выделенного диапазона верхняя