![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Мне нужна информация из ячейки 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...