Выгрузка данных в MS Excel

[liones]

Проблема такая: из бд выгружаются данные в excel.

Код:
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Application.EnableEvents := false;
Workbook := ExcelApp.WorkBooks.Open(blankpath+'blank.xls');
.....

В общем, файл формируется, все хорошо. Но, после закрытия файла в диспетчере задач остается процесс Excel. Получается сколько раз формируется файл, столько раз и процесс висит в диспетчере. Как его закрыть?

[zubr]

ExelAppl.Quit;

[liones]

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

[zubr]

Ну так закрывай только книгу Workbook.Close

[liones]

В том то и дело, что не надо мне закрывать книгу. Надо, чтобы после закрытия бд закрывался процесс excel.

Пробовала вот это:
ExcelApp.Application.Hide;
...
ExcelApp.Application.UnAssigned;
...
ExcelApp.Application:=nil;

Не работает, выдает разные ругательные сообщения.

[sss]

liones, читай мануал:

In Delphi code, CreateOleObject is called once to create each new single instance of a class.

Тебе надо найти выполняющийся экземпляр в таблице ROT. Что нибудь вроде GetActiveOleObject.
Если не найден выполнять CreateOleObject...

[x77]

В том то и дело, что не надо мне закрывать книгу. Надо, чтобы после закрытия бд закрывался процесс excel.

Пробовала вот это:
ExcelApp.Application.Hide;
...
ExcelApp.Application.UnAssigned;
...
ExcelApp.Application:=nil;

Не работает, выдает разные ругательные сообщения.

в данном случае Application является свойством объекта ExcelApp. от того, что вы обнулите свойство - в лучшем случае, ничего не изменится, в худшем - будет ошибка (если свойство обнуления не допускает. чтобы в диспетчере задач не оставался висеть процесс, надо обнулять сам объект. корректные варианты:

1) ExcelApp := nil; Null; // upd. - x77
2) ExcelApp := Unassigned;
3) Finalize (ExcelApp);

liones, читай мануал:

In Delphi code, CreateOleObject is called once to create each new single instance of a class.

Тебе надо найти выполняющийся экземпляр в таблице ROT. Что нибудь вроде GetActiveOleObject.
Если не найден выполнять CreateOleObject...

на GetActiveOleObject проверять действительно стоит, но корректное обнуление всё равно необходимо, иначе в таск-менеджере будет всегда висеть один процесс.

[sss]

на GetActiveOleObject проверять действительно стоит, но корректное обнуление всё равно необходимо, иначе в таск-менеджере будет всегда висеть один процесс.

Ничего не понял. Почему плохо, если висит один сервер процесс? Его использовать и надо для множества книг. Кстати. Если вы создаете объект, присваивание ExcelApp := nil  приводит к неявному вызову метода Release() интерфейса IDispacth скрытого реализацией TVariant, что должно закрыть сервер (по идее соцсоревнований). Но почти во всех версиях MSO это действо вылетает с ошибкой для word и excel.  liones об этом и пишет.  А вот если получаете указатель на выполняющийся - это необходимо.

[x77]

почти во всех версиях MSO это действо вылетает с ошибкой для word и excel.

хоть одну версию приведите из этих "почти всех"

почему плохо, когда висит процесс - я не знаю. потому что не знаю, что делает автор. может, у неё прога, которая работает на терминальном сервере, к которому коннектиться 10-20 юзеров через RDP. иметь двадцать запущенных экселов в памяти - в общем не есть гуд. можно ещё варианты придумать.

но вот именно потому, что я не знаю, что именно делает автор, я тупо отвечаю на её вопрос: как "убрать" процесс из ТаскМенеджера.

[sss]

MSO 2003 Prof, MSO 2000 Prof, MSO 2003 Std. Речь как раз о том, что бы все запросы отрабатывал один сервер автоматизации. Для этого если его нет, его надо создать. Если для созданного вызвать ExcelApp := nil он будет закрыт. Ну должен был бы быть закрыт - однако это вызывает исключение. При этом хоть сто клиентов RDP - кто то из них должен первым создать этот чёртов сервер и не присваивать ExcelApp := nil...

[x77]

sss, очепятка там у меня. с седьмых дельфей юзается не вариант, а OleVariant, соответственно,

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  E: OleVariant;
begin
  E := CreateOleObject ('Excel.Application');
  try
    E.Visible := TRUE;
  finally
    E := Null;
  end;
end;

такой код отработает нормально почти с любым офисом.

[zubr]

x77, проверь свой код но в разных кнопках. То есть одной кнопкой открой Excel, а другой закрой.

Согласен с SSS - надо проверять наличие активного сервера. А для закрытия процесса Excel вызывать ExcelApp.Quit.

[zubr]

А нет, извиняюсь, если книги закрыты, то закрывается.

[x77]

zubr, а что от этого может измениться?

Код:

var
  E: OleVariant;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  E := CreateOleObject ('Excel.Application');
  E.Visible := TRUE;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  E := Null;
end;

работает, есс-но.

[x77]

if the interface returned by CreateOleObject is assigned to a Variant, you can release the interface by assigning the Unassigned constant to that Variant.

Finalize simply sets all long strings to empty and all variants and interfaces to Unassigned, thus properly releasing any memory that was referenced by the long strings and variants.

таким образом, присовение Null, Unassigned или вызов Finalize - в случае с вариантом делают одно и то же. почему я предпочитаю именно этот способ, вместо обращения к Excel.Quit, так это потому, что освобождать объект должен тот, кто его создаёт.

если я делаю Excel := Null, я могу проверить Excel на VarIsNull (Excel). если я делаю Excel := Unassigned или Finalize (Excel) - я могу проверить через VarIsEmpty (Excel).

а вот когда вы пишите Excel.Quit - переменная Excel не является пустой, не является "неприсвоенной", и не равна Null. в общем случае вы не сможете по этой переменной определить, жив ли ваш объект. потому что создаёте его вы (Excel := CreateOleObject), а освобождает он себя сам (Excel.Quit).

и это - опасная и порочная практика

[zubr]

x77, дык никто и не спорит, что надо очищать вариантную переменную - сделал Excel.Quit, а затем Excel := Null.
Насчет жив ли объект не поможет и VarIsNull если объект закрыл пользователь.

[x77]

ещё как поможет. после Quit - у тебя остаётся висеть процесс. если пользователь закрыл объект (что равносильно Quit) - у тебя тоже остаётся висеть процесс. и VarIsNull покажет, что объект жив. и это правда. и убьётся процесс только с поледующим присвоением null.

[x77]

т.е. я имел в виду, когда эксель открывается через сом-интерфейс, программно. в этом случае закрытие экселя не приводит к убитию процесса, ибо в проге остаётся ссылка на ком-объект (которая после закрытия проги станет невалидной).

[Aguilina]

Всем доброго дня!
У меня схожая проблема. Но есть еще кое-что.
Такая задача:
Я написала программу, установила экзешник у пользователей. Всё работает. Но вот в чем неудобство - во время формирования отчета они не могут открыть другие экселевские файлы. Как только пользователи их открывают формируемый отчет ломается. И в итоге в диспетчере остается процесс Excel.
1.   В коде программы написала как выше посоветовал х77:
Excel := CreateOleObject ('Excel.Application');
  try
    Excel.Visible := TRUE;
  finally
    Excel := Null;
  end;
Теперь отчет не ломается при открытии других файлов экзель и в диспетчере не остается процесс EXcel, но отчет формируется в фоновом режиме.
Т.е.  теперь нужно сделать так, чтобы пользователь мог работать(открывать, редактировать,  закрывать) с другими файлами экселя и не имел доступа к отчету во время формирования и в конце диспетчер должен очиститься от процессов Excel(ну эту проблему с помощью вышеуказанного кода вроде решила=)) , за что огромное спасибо!).
       2. Когда делаю Excel.Visible := FALSE;  не дает открыть другие эксель файлы и формирование отчета ломается.
Что еще можно сделать?

[Aguilina]

Доброе утро.

Можно ускорить с ответом пожалуйста. Мне уже завтра окончательный вариант предоставить нужно (((

[zubr]

Если мне не изменяет память у оффисных приложений есть объект Protection, позволяющий запретить пользователю вносить изменения в определенный документ. Попробуй посмотреть в этом направлении.

[Aguilina]

Если ставить этот объект, то пользователь не сможет редактировать отчет, когда тот будет готов. Можно еще дать ему доступ через пароль, или отключить защиту после формирования. Но как-то это неудобно...
Все-таки желательно, чтоб сам отчет при формировании не открывался, но в то же время пользователь мог открывать другие отчеты. Есть какие нибудь советы по этому вопросу? Поделитесь... =))
В отчет выгружается очень большой объем данных из базы SQL. Поэтому желательно процесс формирования не прерывать.
Использую Delphi 7, SQL Navigator 5.5, Win XP.
Заранее благодарю.

[zubr]

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

[sss]

Aguilina, почему нельзя экземпляр, в который выводится отчет, оставить невидимым до окончания вывода?

[Aguilina]

sss, до этого я его делала невидимым. Но когда открывала другие экселевские файлы, то отчет ломался во время формирования. Т.е. до конца отчет не формировался.

[Aguilina]

zubr, мне перед открытием экселя и после закрытия ставить? Вот краткий вариант кода:

var
.......................
Begin
     Excel:=CreateOleObject('Excel.Application');
     try
      Excel.Visible:=True;
      Excel.Workbooks.Open('C:\DProject\USTF_From_TI\EXCEL\'+trim(FileName.text)+'.xls', False);
      Workbook:=Excel.Workbooks.Item[1];
      Sheet1:=Workbook.Sheets.Item[1];
{-------------------------------------------------------------------}
    for i:=StrToInt(StartEdit.text) to StrToInt(EndEdit.text) do
    begin
    //начинается поиск по одному продукту а
      If BMSearch(1, trim(Sheet1.Cells[i,5].text), 'а')>0 then
       begin
           DataModule1.Query1.SQL.Clear;
           DataModule1.Query1.SQL.Add('select…..');
           DataModule1.Query1.SQL.Add('from…….');
           DataModule1.Query1.SQL.Add('where………');
           DataModule1.Query1.SQL.Add('order by ………..);

           DataModule1.Query1.ExecSQL;
           DataModule1.Query1.Open;
           FillExcel(Sheet1,i,DataModule1.Query1.FieldByName('').AsString,DataModule1.Query1.FieldByName('..').AsString, , , , , , ,); //заполняю эксель
           DataModule1.Query1.Close;
       end;
    //заканчивается поиск по продукту а

   //начинается поиск по одному продукту б
    ..........................................................
    ..........................................................
   //заканчивается поиск по продукту б
  
   // и так продолжается по 15-ти продуктам.

   end;
{-------------------------------------------------------------------}
    xlFileName:='path:\'+trim(FileName.text)+'_1.xls';
    Workbook.SaveAs(FileName:=xlFileName, FileFormat:=xlWorkbookNormal);

    finally
      Excel:=Unassigned;
    end;
    Form1.Close;

end;

[Aguilina]

Подскажите плз как протект использовать правильно, чтоб все работало. Ранее не сталкивалась....  

Пишу так в начале:
  Sheet1:=Workbook.Sheets.Item[1];
  Excel.ActiveSheet.protect('123');
  AllowFormattingCells:=False;
................................

а в конце так:
    
    finally
      Excel:=Unassigned;
    end;

Excel.ActiveSheet.Unprotect('123');

У меня файл открывается, но данные туда не попадают из таблицы, говорит файл защищен. Как же тогда отчет сформируется...?  

[zubr]

Aguilina, внимательнее посмотри описание метода Protect:
procedure Protect(Password: OleVariant; DrawingObjects: OleVariant; Contents: OleVariant;
                      Scenarios: OleVariant; UserInterfaceOnly: OleVariant;
                      AllowFormattingCells: OleVariant; AllowFormattingColumns: OleVariant;
                      AllowFormattingRows: OleVariant; AllowInsertingColumns: OleVariant;
                      AllowInsertingRows: OleVariant; AllowInsertingHyperlinks: OleVariant;
                      AllowDeletingColumns: OleVariant; AllowDeletingRows: OleVariant;
                      AllowSorting: OleVariant; AllowFiltering: OleVariant;
                      AllowUsingPivotTables: OleVariant); safecall;
Попробуй параметр UserInterfaceOnly сделать True.

[zubr]

Вот описание этого параметра в хелпе:
UserInterfaceOnly  True to protect the user interface, but not macros. If this argument is omitted, protection applies both to macros and to the user interface.

[sss]

Но когда открывала другие экселевские файлы, то отчет ломался во время формирования. Т.е. до конца отчет не формировался.

Как понять  "открывала другие экселевские файлы" ? Программно или проводником?