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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.03.2012, 17:36   #1
Алена18
Новичок
Джуниор
 
Регистрация: 13.03.2012
Сообщений: 2
Вопрос вывод инфо из edit в Delphi в Excel

Привет.Мне нужно ввести информацию в edit , при нажатии на Button она должна заносится в определеную ячейку Excel.Пожалуйста помогите кто может.
Алена18 вне форума Ответить с цитированием
Старый 13.03.2012, 17:42   #2
ByAlex
Форумчанин
 
Аватар для ByAlex
 
Регистрация: 15.03.2011
Сообщений: 465
По умолчанию

Цитата:
Сообщение от Алена18 Посмотреть сообщение
Привет.Мне нужно ввести информацию в edit , при нажатии на Button она должна заносится в определеную ячейку Excel.Пожалуйста помогите кто может.
Привет, Алена! С OLE умеете работать?
Помог - жми на весы!
ByAlex89@mail.ru
ByAlex вне форума Ответить с цитированием
Старый 13.03.2012, 17:45   #3
Алена18
Новичок
Джуниор
 
Регистрация: 13.03.2012
Сообщений: 2
По умолчанию

Нет.Это моя первая работа такого типа.
Алена18 вне форума Ответить с цитированием
Старый 13.03.2012, 22:22   #4
ByAlex
Форумчанин
 
Аватар для ByAlex
 
Регистрация: 15.03.2011
Сообщений: 465
По умолчанию

Цитата:
Сообщение от Алена18 Посмотреть сообщение
Нет.Это моя первая работа такого типа.
Добавь библиотеку - ComObj.
В процедуре обработки нажатия клавиши пиши -
Код:
procedure TForm1.Button1Click(Sender: TObject);
const
  xlHAlignCenter = -4108;
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:='Лист1';
  Colum:=XLApp.Workbooks[1].WorkSheets['Лист1'].Columns;
  Colum.Columns[1].ColumnWidth:=50;
  Colum.Range['A1'].HorizontalAlignment:=xlHAlignCenter;
  Colum.Range['A1'].font.size:=18;
  Colum.Range['A1']:=edit1.text;
end;
Помог - жми на весы!
ByAlex89@mail.ru
ByAlex вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод из Delphi в Excel SL1M_DOGG Помощь студентам 2 16.12.2011 00:24
Float вывод в edit. с++. paravoz1k Помощь студентам 1 11.12.2011 23:57
Вывод столбцов StringGrid в Edit ***СкаЙ*** Помощь студентам 1 04.05.2007 08:16