Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

Nil (2002-12-27 09:53:00) [1]
Огромное спасибо за совет!

Jeka (2002-12-26 16:21:00) [2]
на форме 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;
у меня работает

Weare (2002-12-26 12:50:00) [3]

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

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

Наталия (2002-12-26 12:34:00) [4]
http://www.delphikingdom.com/helloworld/excelsm.htm

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »