|
Вопрос # 4 671/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Есть форма с помощью нее при происходит экспорт в excel. При нажатии кнопки "В Excel" открывается окно для выбора куда сохранять файл xls и в диспетчере задач появляется процесс EXCEL.EXE. При нажатии сохранить процесс завершается, но если нажать отмена процесс остается висеть в диспетчере задач. Как сделать так чтобы при нажатии отмена процесс тоже завершался?
Приложение: Переключить в обычный режим- unit Unit5;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, Grids, StdCtrls, ComObj, Buttons, OleServer, ExcelXP, DateUtils,
- ComCtrls, ExtCtrls, Gauges, FileCtrl;
-
- type
- TForm5 = class(TForm)
- StringGrid1: TStringGrid;
- BitBtn1: TBitBtn;
- ea: TExcelApplication;
- Gauge1: TGauge;
- SaveDialog1: TSaveDialog;
- procedure FormActivate(Sender: TObject);
- procedure BitBtn1Click(Sender: TObject);
-
-
-
-
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form5: TForm5;
- dir_:string;
- implementation
-
- uses Unit3, Unit1, Unit2;
-
- {$R *.dfm}
- procedure TForm5.BitBtn1Click(Sender: TObject);
- var
- Excel, WorkBook, Sheet:variant;
- i, j: integer;
- GridPrevFile,extens: string;
-
- begin
- Excel:=CreateOleObject('Excel.Application');
- Excel.DisplayAlerts:=False;
- Workbook:=Excel.
- Workbooks.Add;
- if (SaveDialog1.Execute) then
- Workbook.SaveAs(Filename:=SaveDialog1.FileName)
- else abort;
- Sheet:= Workbook.ActiveSheet;
- Gauge1.MaxValue:=100;
- Gauge1.Progress:=0;
-
-
-
-
- begin
- for j:= 0 to StringGrid1.ColCount - 1 do
- Sheet.Cells[i+1, j+1]:= StringGrid1.Cells[j, i];
-
-
-
- Excel.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth := 33;
- Excel.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth := 15;
- Excel.WorkBooks[1].WorkSheets[1].Columns[3].ColumnWidth := 10;
- Excel.WorkBooks[1].WorkSheets[1].Columns[4].ColumnWidth := 23;
- if StringGrid1.RowCount>0 then
- Gauge1.Progress:=Round(((i+1)*100)/StringGrid1.RowCount);
- end;
-
- Workbook.Save;
- Workbook.Close;
- Excel.Quit;
- Excel:= UnAssigned;
- end;
-
-
-
-
-
- procedure TForm5.FormActivate(Sender: TObject);
- var i:integer;
- begin
-
- try
- DM.dbs.Open;
- dm.query.Open;
- DM.query.First;
- except
- on e: exception do showmessage(e.Message);
- end;
- stringgrid1.Visible:=false;
- i:=0;
-
- DM.query.SQL.Text:='select (select F+'+char(39)+' '+char(39)+'+I+'+char(39)+' '+char(39)+'+O from
owner where card_id=card.card_id),spiski.card_number,(select mobile_phone from owner where
card_id=card.card_id),(select email_address from owner where card_id=card.card_id)'+
- 'from spiski inner join card on card.card_number=spiski.card_number where
act_'+Form1.StringGrid1.cells[0,form1.StringGrid1.row]+'=1';
-
-
-
-
-
-
-
- StringGrid1.ColWidths[0] := 220;
- StringGrid1.ColWidths[1] := 100;
- StringGrid1.ColWidths[2] := 70;
- StringGrid1.ColWidths[3] := 130;
-
- DM.query.Open;
- DM.query.First;
- while not DM.query.Eof do
- begin
- inc(i);
- stringgrid1.Cells[0,i]:=DM.query.Fields[0].AsString;
- stringgrid1.Cells[1,i]:=DM.query.Fields[1].AsString;
- stringgrid1.Cells[2,i]:=DM.query.Fields[2].AsString;
- stringgrid1.Cells[3,i]:=DM.query.Fields[3].AsString;
-
-
-
- stringgrid1.RowCount:=i+1;
- DM.query.Next;
- end;
- stringgrid1.FixedRows:=1;
- stringgrid1.Visible:=true;
- DM.query.Close;
-
- end;
- end.
 |
Вопрос задал: slai (статус: Посетитель)
Вопрос отправлен: 20 октября 2010, 03:19
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Шичко Игорь
Здравствуйте, slai!
В принципе у Вас уже все прописано. Только надо описать действия при отмене сохранения файла.
...
if (SaveDialog1.Execute) then
Workbook.SaveAs(Filename:=SaveDialog1.FileName)
else
begin
WorkBook.Close;
Excel.Quit;
Excel:= UnAssigned;
end;...
В принципе логично при закрытии формы проверять запущен ли Excel и, если запущен, то закрывать.
Примерно так:
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if VarIsEmpty(Excel) = false then
begin
Excel.Quit;
Excel:= UnAssigned;
end;
end;
Только надо переменную Excel объявить как глобальную переменную.
Удачи.
 |
Ответ отправил: Шичко Игорь (статус: 9-ый класс)
Время отправки: 20 октября 2010, 07:49
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 21 октября 2010, 05:34; участников в обсуждении: 3.
|
Вадим К (статус: Академик), 20 октября 2010, 10:15 [#1]:
вставить в код abort, если пользователь решил не сохранять файл - это жестко.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
Владимирович (статус: Посетитель), 20 октября 2010, 14:04 [#2]:
procedure TForm5.BitBtn1Click(Sender: TObject);
var
Excel, WorkBook, Sheet:variant;
i, j: integer;
GridPrevFile,extens: string;
begin
Excel:=CreateOleObject('Excel.Application');
Excel.DisplayAlerts:=False;
try
Workbook:=Excel.Workbooks.Add;
if (SaveDialog1.Execute) then
Workbook.SaveAs(Filename:=SaveDialog1.FileName)
else
exit;
...
// здесь ваш код работы с Excel
...
Workbook.Save;
Workbook.Close;
finally
Excel.Quit;
Excel:= UnAssigned;
end;
end;
|
|
|
slai (статус: Посетитель), 21 октября 2010, 05:34 [#3]:
Владимирович:
Спасибо ваш вариант работает.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
