Текущий архив: 2002.06.10;
Скачать: CL | DM;
Вниз
DBGrid <--> Excel. Найти похожие ветки
← →
Malyatko (2002-05-17 17:28) [0]Добрый день Господа! Каким образом множно реализовать
процес импорта информации из DBGridа в Ms Excel, и наоборот.
Зарание благодарен за любую помощь.
← →
kalinka (2002-05-17 17:46) [1]Можно так:
Var
XLApp : OleVariant;
Sheet : OleVariant;
FieldNo, Row : Integer;
....
Begin
XLApp := CreateOLEObject("Excel.Application");
try
XLApp.Visible := False;
XLApp.Workbooks.Add(xlWBatWorkSheet);
Sheet := XLApp.Workbooks[1].WorkSheets[1];
Row := 0;
MyDBGrid.DataSource.DataSet.First;
While not MyDBGrid.DataSource.DataSet.Eof do
Begin
inc(Row);
For FieldNo:=0 to MyDBGrid.FieldCount-1 do
Sheet.Cells[Row, FieldNo+1]:= MyDBGrid.Fields[FieldNo].DisplayText;
MyDBGrid.DataSource.DataSet.Next;
End;
//*************************************
finally
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
XLAPP := Unassigned;
Sheet := Unassigned;
end;
end;
End;
Страницы: 1 вся ветка
Текущий архив: 2002.06.10;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.019 c
