Скачать: CL | DM;

Exel vs Delphi   Найти похожие ветки 

← →
Neket   (2006-06-19 16:06) [0]

Как сделать экспорт из DBGrid в Excel? Если можно код или хотябы ссылочку где это можно почитать?

---

← →
Sergey13 ©   (2006-06-19 16:14) [1]

vs - это "против". Ты за кого? 8-)

---

← →
Neket   (2006-06-19 16:34) [2]

Я за дружбу ;-)

---

← →
evvcom ©   (2006-06-19 16:35) [3]

> Как сделать экспорт из DBGrid в Excel?

А в чем проблемы: не можешь грид читать или эксель писать? Или вообще ничего не умеешь?

---

← →
AlexanderMS ©   (2006-06-19 16:37) [4]

Вот примерчик с компакт-диска книги "Библия Delphi" М. Фленова:

procedure TMainForm.ExcelButtonClick(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject("Excel.Application");
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:="Отчёт";
Colum:=XLApp.Workbooks[1].WorkSheets["Отчёт"].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets["Отчёт"].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets["Отчёт"];
Sheet.Cells[1,2]:="Телефонный справочник";
Sheet.Cells[2,1]:="Фамилия";
Sheet.Cells[2,2]:="Имя";
Sheet.Cells[2,3]:="e-mail";
Sheet.Cells[2,4]:="Город";
Sheet.Cells[2,5]:="Дата рождения";

index:=3;
DataModule1.BookTable.First;
for i:=0 to DataModule1.BookTable.RecordCount-1 do
 begin
  Sheet.Cells[index,1]:=DataModule1.BookTable.Fields.Fields[1].AsString;
  Sheet.Cells[index,2]:=DataModule1.BookTable.Fields.Fields[2].AsString;
  Sheet.Cells[index,3]:=DataModule1.BookTable.Fields.Fields[3].AsString;
  Sheet.Cells[index,4]:=DataModule1.BookTable.Fields.Fields[5].AsString;
  Sheet.Cells[index,5]:=FormatDateTime("dddddd", DataModule1.BookTable.Fields.Fields[6].AsDateTime);
  Inc(index);
  DataModule1.BookTable.Next;
 end;
end;

---

← →
Amoeba ©   (2006-06-19 17:54) [5]

в Королевстве Delphi http://www.delphikingdom.com читай цикл статей (от настоящего профи в этом деле!!!) "По волнам интеграции" (раздел "свитки").

---

← →
Neket   (2006-06-20 14:24) [6]

2 AlexanderMS: А какой модуль необходимо подключать. Потому как при компиляции компилятор ругается на CreateOleObject - "Мол не  знает он такого оператора".

---

← →
Игорь Шевченко ©   (2006-06-20 15:34) [7]

> Потому как при компиляции компилятор ругается на CreateOleObject


ActiveX ?

---

← →
StriderMan ©   (2006-06-20 15:41) [8]

> CreateOleObject

ComObj

а еще есть такая кнопка Ctrl+F1.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c