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

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

Мне нужна информация из ячейки Excel-таблицы [D5, XP]


v_o_v_a ©   (2006-09-07 09:12:00) 

Здрасте. Мне нужна информация из ячейки Excel-таблицы, подскажите, пожалуйста, как мне это сделать. Спасибо


pavel_guzhanov   (2006-09-07 14:31:00) [1]

if not VarIsEmpty(m_XLApp) then
   begin
     m_XLApp.DisplayAlerts:=false;// не сохраняем
     m_XLApp.Quit;
   end;


v_o_v_a   (2006-09-07 13:44:00) [2]

Нет, вру...
Все впорядке


v_o_v_a   (2006-09-07 13:41:00) [3]

Sorry!
Но я не могу справиться с закрытием excela.
 Делаю так:
  m_XLApp.Workbooks.Close;
  m_XLApp.Quit;

а Excel еще долго висит в памяти


v_o_v_a   (2006-09-07 11:33:00) [4]

Да, конечно. Спасибо.


pavel_guzhanov   (2006-09-07 11:30:00) [5]


> А закрыть книгу надо или не обязательно


А тебе очень надо, чтобы запущенный excel торчал в памяти? Вообще-то программа должназа собой убирать после закрытия....


v_o_v_a   (2006-09-07 11:16:00) [6]

Спасибо, все очень понятно и все работает.
  А закрыть книгу надо или не обязательно (глупый вопрос, но...)


pavel_guzhanov   (2006-09-07 10:01:00) [7]

uses ComObj, Excel_TLB;
............................
var  
 val:String;
 m_XLApp, Sheet, Colum:Variant;
begin
  // создаём объект Excel
  m_XLApp:=CreateOleObject('Excel.Application');
 m_XLApp.WorkBooks.Open(GetCurrentDir+'\Blank.xls');// здесь укажешь путь к своему файлу
 Sheet:=m_XLApp.Workbooks[1].WorkSheets['Лист1'];// здесь название рабочего листа
 Val:=Sheet.Cells[1,1]; // искомое значение из ячейки 1:1
end;

Если файла Excel_TLB нет, то импортируй библиотеку типов: Project->Import Type Library... Выбери в списке Excel и нажми Create Unit...


Наверх

Титульная страница Поиск, карта сайта Написать письмо