передача данных из БД в Microsoft Excel [D7, Paradox]
Страницы:
<
1
2
>
franchuk © (2006-01-11 18:20:00)
Как из существующего(отображеного) набора данных передать
данные в уже существующий(созданый шаблон) файл Microsoft
Excel.
погжайлуста по возможности отвветьте - очень срочно надо, но
ответа нигде не могу найти!!!
mr.il (2006-01-11 18:41:00) [21]
var
XL_2 : Variant;
_Rov : Integer;
begin with DM_Zakaz, AForm do begin
XL_2 := CreateOleObject('Excel.Application');
XL_2.Workbooks.Add('твой путь\ZakazBlank.XLT');
XL_2.Range['A1'].Value := 'Бланк-заказ №
'+IntToStr(IBQ_Zakaz['ZAKAZ_ID']);
XL_2.Range['A4'].Value := 'Дата составления:
'+DateToStr(IBQ_Zakaz['Date_Doc']);
XL_2.Range['A5'].Value := 'Поставщик:
'+_NotNullStr(IBQ_ZakazZakazName.Value);
IBQ_ZakazData.First; _Rov := 8;
while not IBQ_ZakazData.Eof do begin
if _NotNullCurr(IBQ_ZakazData['Quant_Z']) > 0
then begin
XL_2.Range['A'+IntToStr(_Rov)].Value :=
_Rov-7;
XL_2.Range['B'+IntToStr(_Rov)].Value :=
_NotNullStr(IBQ_ZakazData['PROD_NAME']);
XL_2.Range['C'+IntToStr(_Rov)].Value :=
CurrToStr(IBQ_ZakazData['Quant_Z']);
...
...
XL_2.Run('myAutoFill');//запуск макроса если надо
XL_2.Visible:=True;
{
визуализацию можешь сделать сразу после этого:
XL_2.Workbooks.Add('твой путь\ZakazBlank.XLT');
тогда увидишь результаты вывода но будет тормознее
}
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
