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

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

Exel vs Delphi [D7]

Neket ©   (2006-06-19 16:06:00) 

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

---

StriderMan   (2006-06-20 15:41:00) [1]

> CreateOleObject

ComObj

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

---

Игорь Шевченко   (2006-06-20 15:34:00) [2]

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


ActiveX ?

---

Neket   (2006-06-20 14:24:00) [3]

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

---

Amoeba   (2006-06-19 17:54:00) [4]

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

---

AlexanderMS   (2006-06-19 16:37:00) [5]

Вот примерчик с компакт-диска книги "Библия 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;

---

evvcom   (2006-06-19 16:35:00) [6]

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

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

---

Neket   (2006-06-19 16:34:00) [7]

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

---

Sergey13   (2006-06-19 16:14:00) [8]

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

---

Наверх