Создание отчета из запроса ADoquary в Excel

[ins813]

Здравствуйте, подскажите пожалуйста, как реализовать код, если нужно выгрузить данные из запроса ADoquary (MS SQL), а главное чтобы перед открытием сформированного Excel-документа открывался "Предварительный просмотр страницы"

[ych_del]

Excel. Ищем примеры по таким вот словам:
CreateOleObject('Excel.Application' );

Творчески перерабатываем под свою задачу. Если чего-то не хватает - делаем в Excel под запись макроса, потом получившееся переводим в синтаксис Delphi
Но я подозреваю, что тебе достаточно будет вот такого:
XL := CreateOleObject('Excel.Application' );
WB := XL.Workbooks.Add();
WS := WB.Sheets[1];

Выгрузка данных:
with query do begin First; while not Eof do begin for X := 0 to Fields.Count-1 do WS.Cells[RecNo+1, X+1] := Fields[X].Value; Next; end; end;

Предварительный просмотр:
XL.Visible := True;
WS.PrintPreview;

Удачи, гугл в помощь.

[ins813]

var
Form1: TForm1;
XLApp,Sheet,Colum: variant;
index,i: integer;
....

procedure TForm1.Button2Click(Sender: TObject);
begin

XLApp:= CreateOleObject('Excel.Application' );
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
Colum.Columns[1].ColumnWidth:=8;
....
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
Colum.Rows[3].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
Sheet.Cells[1,5]:='Утверждаю:';
Sheet.Cells[2,4]:=' Ген.директор';

index:=4;
ADOquery1.First;
for i:=0 to ADOquery1.RecordCount do
begin
Sheet.Cells[index,1]:=IntToStr(i+1);
Sheet.Cells[index,2]:= ADOquery1.FieldByName('date').AsStr ing;
Sheet.Cells[index,3]:= ADOquery1.FieldByName('name').AsStr ing;
Sheet.Cells[index,4]:= ADOquery1.FieldByName('kol_vo').AsS tring;
Sheet.Cells[index,5]:= ADOquery1.FieldByName('street').AsS tring;
Sheet.Cells[index,6]:= ADOquery1.FieldByName('kv').AsStrin g;
Inc(index);
ADOquery1.Next;
end;

Выдает ошибку и неполучается с предварительным просмотром !

[Yurk@]

да нет .. он говорит что не может выполнить операцию с закрытым ДатаСетом (ADOQuery)

[ins813]

Спасибо Вам, получилось, вот Только Осталась проблема с Предварительным просмотром, не знаеете как реализовать его ?

[ych_del]

Родное сердце, ты бы хоть ответы полностью читал, что ли... Ну, если не можешь записать в Excel'е макрос и посмотреть, какие процедуры/функции/методы вызываются.

Намёк: смотрим первый ответ и ищем волшебное слово PrintPreview.

[ins813]

"Родное сердце" - сильная фраза + 1 спасибо за терпение, с макросами не работал, попробую разобраться.
З.Ы. про намек скорее всего не понял( м.б. ты имел в виду загуглить - PrintPreview ?! )

[Yurk@]

он намекнул вот на это

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

Excel. Ищем примеры по таким вот словам:
CreateOleObject('Excel.Application' );
...
Предварительный просмотр:
XL.Visible := True;
WS.PrintPreview;

[ych_del]

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

с макросами не работал, попробую разобраться.

На самом деле всё просто. В том же Excel включаешь запись макроса, выполняешь интересующие тебя действия (тот же "Файл->Предварительный просмотр"), останавливаешь запись, смотришь результат (Alt+F8 - список макросов, Alt+F11 - сразу окно VBA), если что-то непонятно - читаешь справку, потом копипастишь в Delphi, исправляешь синтаксис. С опытом будет всё более понятнее.

[ins813]

в общем код из макроса ActiveWindow.SelectedSheets.PrintPr eview;
добавил свою переменную XLApp.ActiveWindow.SelectedSheets.P rintPreview;
но результат неуд. т.к. он вывод не превью а просто очерчивает пунктиром область печати (: