Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.09.2007, 15:22   #1
Abay
Пользователь
 
Регистрация: 07.02.2007
Сообщений: 10
По умолчанию из DBGridEh в Exel

Всем привет, нужно пренести данные из таблицы, в Excel, но только определенный столбец, в заранее благодарю
Abay вне форума Ответить с цитированием
Старый 17.09.2007, 16:12   #2
Pitbull
детский тренер
Форумчанин
 
Аватар для Pitbull
 
Регистрация: 08.06.2007
Сообщений: 532
По умолчанию

procedure PrintRepEx();
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
//создание объекта
XLApp:= CreateOleObject('Excel.Application' );
XLApp.Visible:=true;
XLApp.DisplayAlerts:=false;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='название листа';
Colum:=XLApp.Workbooks[1].WorkSheets['название листа'].Columns;

//настройка столбцов и строк(не обязательно)
Colum.Columns[1].ColumnWidth:=5;
Colum.Columns[2].ColumnWidth:=10;
Colum.Columns[3].ColumnWidth:=10;
Colum:=XLApp.Workbooks[1].WorkSheets['название листа'].Rows;
Colum.Rows[3].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[3,1]:='название колонки 1';
Sheet.Cells[3,2]:='название колонки 2 ';
Sheet.Cells[3,3]:='название колонки 3 ';

//а вот и сам ввод данных из таблицы в Эксел
index:=4; {указываем с какой страницы начинать вывод в Excele, т.к у меня уже первые 3 строки уже наполнены, то начинаем с 4-й}
Table1 .First;
for i:=0 to DataModule1.proezd_main .RecordCount-1 do
begin
Sheet.Cells[index,1]:=Table1.Fields.Fields[0].AsString;
Sheet.Cells[index,2]:=Table1.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=Table1.Fields.Fields[2].AsString;
Inc(index);
Table1.Next;
end;

end;
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp

Последний раз редактировалось Pitbull; 17.09.2007 в 16:18.
Pitbull вне форума Ответить с цитированием
Старый 18.09.2007, 09:09   #3
Abay
Пользователь
 
Регистрация: 07.02.2007
Сообщений: 10
По умолчанию

Благодарю Pitbull, все вышло супер
Abay вне форума Ответить с цитированием
Старый 18.09.2007, 09:10   #4
Pitbull
детский тренер
Форумчанин
 
Аватар для Pitbull
 
Регистрация: 08.06.2007
Сообщений: 532
По умолчанию

Цитата:
Сообщение от Abay Посмотреть сообщение
Благодарю Pitbull, все вышло супер
та незачто
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
Pitbull вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ehlib, DBGridEh Rustem.xxx Компоненты Delphi 2 27.05.2008 14:41
автопоиск в DBGridEh furstenberg Компоненты Delphi 4 18.02.2008 12:49
Вопрос по DBGridEh Cyn4uk Компоненты Delphi 1 01.01.2008 11:19
Выкрутасы с DBGridEh Killer_djon БД в Delphi 6 12.11.2007 11:08
DBGridEh STFilter ошибка. Александр А. БД в Delphi 0 13.12.2006 15:09