|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Данных из Excel в Edit
Приветствую. Нужна помощь.
Как из Excel подгрузить данные ячейки А1 в Edit1 по нажатию BitBtn? |
#2
|
|||
|
|||
Ищем по ключевому слову "Delphi Excel OLE Automation"
Примеров полно, в том числе на этом сайте. |
#3
|
|||
|
|||
Цитата:
Спасибо. Вот что получилось. Код:
procedure TForm1.BitBtn1Click(Sender: TObject); var Ap : Variant; begin Ap := CreateOleObject('Excel.Application'); Ap.Workbooks.Open('C:\test\test.xls',0,True); Ap.DisplayAlerts := False; Edit1.Text:= Ap.Range['B3']; Ap.Application.Quit; end; |