| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Grid & Excel [D6, Win2k]

Mark_kms ©   (2002-11-27 15:07:00) 

Подскажите пожалуйста как из Грида экспортировать данные в эксель.

---

yuray76   (2002-11-27 16:13:00) [1]

uses
registry, OleServer, Excel2000, ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
WorkSheet : Variant;
regData: TRegistry;
i,j:integer ;
Excel : Variant;
begin
{---------конектимся к ексель файлу---------------------}
if OpenDialog1.Execute then
begin
Excel := "Excel.Application";
regData := TRegistry.Create;
regData.RootKey := HKEY_CLASSES_ROOT;
try
if regData.OpenKey("\Excel.Application\CurVer", False) then
begin
Excel:= regData.ReadString("");
regData.CloseKey;
end
finally
regData.Free;
end;
Excel := CreateOleObject(Excel);
Excel.Visible := false;
Excel.Workbooks.Open( OpenDialog1.FileName );
WorkSheet := Excel.Workbooks[1].WorkSheets[1];
{--экспортируем данные---------------------------}
for i:=1 to StringGrid1.ColCount do
for j:=1 to StringGrid1.RowCount do
WorkSheet.Cells[i,j]:=StringGrid1.Cells[i,j];
Excel.Visible := true;
end;

можна сделать примерно так. пробовал - работает.

---

Uran   (2002-11-27 15:36:00) [2]

есть замечательная компонента Ehlib, там и сам DBGrid намного функционального стандартного и есть возможность экспорта в эксель..

---

Наверх