Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

Grid & Excel   Найти похожие ветки 

← →
Mark_kms   (2002-11-27 15:07) [0]

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

---

← →
Uran   (2002-11-27 15:36) [1]

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

---

← →
yuray76   (2002-11-27 16:13) [2]

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;

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c