Как передать данные из DBGrid в Excel для дальнейшей работы

← →
Nil © (2002-12-26 12:23) [0]

Подскажите пожалуйста!
Как результат выполненого запроса передать(сохранить) в Ecxel-файл? Или сначало внести в DBGRID? Не знаю как решить проблему.

← →
Наталия © (2002-12-26 12:34) [1]

http://www.delphikingdom.com/helloworld/excelsm.htm

← →
Weare © (2002-12-26 12:50) [2]

Это было чуть ранее:

var vExcel,vWorkBook,vWorkSheet,vCell,v1,v2,vs: OLEVariant;
vExcel := CreateOLEObject("Excel.Application");
vWorkBook := vExcel.WorkBooks.Add;
vWorkSheet := vWorkBook.WorkSheets.Add;

vWorkSheet.Cells[1,1]:=3.14159;
vWorkSheet.Cells[2,1]:="тест";

vExcel.Visible := True

← →
Jeka (2002-12-26 16:21) [3]

на форме Button и ExcelApplication
OnClick кнопки пишеш:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
RangeE:Excel2000.Range;
I, Row:Integer;
Bookmark:TBookmarkStr;
begin
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Workbooks.Add(NULL,0);
RangeE:=ExcelApplication1.ActiveCell;
for I:=0 to Table1.Fields.Count - 1 do
begin
RangeE.Value:=Table1.Fields [I].DisplayLabel;
RangeE:=RangeE.Next;
end;
try
Bookmark:=Table1.Bookmark;
try
Table1.First;
Row:=2;
while not Table1.Eof do
begin
RangeE:=ExcelApplication1.Range["A"+
IntToStr(Row), "A"+ IntToStr(Row)];
for I:=0 to Table1.Fields.Count - 1 do
begin
RangeE.Value:=Table1.Fields[I].AsString;
RangeE:=RangeE.Next;
end;
Table1.Next;
Inc(Row);
end;
finally
Table1.Bookmark:=Bookmark;
end;
finally
Table1.EnableControls;
end;
RangeE:=ExcelApplication1.Range["A1","E"+ IntToStr (Row-1)];
RangeE.AutoFormat(3,NULL,NULL,NULL,NULL,NULL,NULL);
end;
у меня работает

Огромное спасибо за совет!

Как передать данные из DBGrid в Excel для дальнейшей работы Найти похожие ветки