Скачать: CL | DM;

Мне нужна информация из ячейки Excel-таблицы   Найти похожие ветки 

← →
v_o_v_a   (2006-09-07 09:12) [0]

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

---

← →
pavel_guzhanov ©   (2006-09-07 10:01) [1]

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...

---

← →
v_o_v_a   (2006-09-07 11:16) [2]

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

---

← →
pavel_guzhanov ©   (2006-09-07 11:30) [3]

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


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

---

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

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

---

← →
v_o_v_a   (2006-09-07 13:41) [5]

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

---

← →
v_o_v_a   (2006-09-07 13:44) [6]

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

---

← →
pavel_guzhanov ©   (2006-09-07 14:31) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c