Текущий архив: 2006.07.09;
Скачать: 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 вся ветка
Текущий архив: 2006.07.09;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.043 c
