DBGrid <--> Excel. [D6, IB6.x]
Malyatko © (2002-05-17 17:28:00)
Добрый день Господа! Каким образом множно реализовать
процес импорта информации из DBGridа в Ms Excel, и наоборот.
Зарание благодарен за любую помощь.
kalinka (2002-05-17 17:46:00) [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;
Наверх 
ЧАТ |
Орешник |
|
