Работа с Excel из делфи

[VinDiz]

Добрый вечер! У меня проблема с считывание и обработкой информации в ячейках эксель, суть в том что я выбираю значение в combobox при нажатии кнопки оно должно сравнить значение ячейки и элемента combobox и вывести какуе то информацию для начало я выставил на сообщение но, компиляция нормальная а при нажатии выбивает ошибку! Помогите разобраться! (приведен код кнопки)

procedure TForm3.Button1Click(Sender: TObject);
   var A, B: string;
      XS: variant;
begin
  XS:= CreateOleObject('Excel.Application.7');
  XS.Workbooks.Open('C:\Documents and Settings\Admin\Рабочий стол\NKI\КПЗ\программа\222.xls',0,false);  // не отображается таблица
  XS.Sheet := XS.Book.WorkSheets[1]; // Pervaya vkladka
  XS.DisplayAlerts := False; // отключение запроса на сохранение
  A:=XS.sheet.Range(XS.sheet.cells['2:2']);
  B:=inttostr(combobox2.itemindex);
  if A = B then
  showmessage ('Variant')
  else showmessage ('No variant');
  XS.Application.Quit;
end;

[Xardas]

Зачем это?

 XS.Sheet := XS.Book.WorkSheets[1];

Делайте уж тогда Sheet переменной типа variant, присваивайте ей нужный лист и работайте с этой переменной дальше (либо же обходитесь без этого):

Sheet := XS.WorkBooks[1].WorkSheets[1];
a := Sheet.Range....

Ну и Вы явно неправильно используете Range. Вы можете получать значения из ячейки разными способами, например:

a := Sheet.Range['B2']
a := Sheet.Cells[2,2]
a := Sheet.Cells[2,2].Value

[VinDiz]

спасибо щас буду пробовать!

[VinDiz]

написал все как вы сказали, ошибка прежняя осталась.....

procedure TForm3.Button1Click(Sender: TObject);
   var A, B: string;
     Sheet, XS: variant;
begin
  XS:= CreateOleObject('Excel.Application.7');
  XS.Workbooks.Open('C:\Documents and Settings\Admin\Рабочий стол\NKI\КПЗ\программа\222.xls',0,false);  // не отображается таблица
  Sheet:= XS.WorkBooks[1].WorkSheets[1]; // Pervaya vkladka
  XS.DisplayAlerts := False; // отключение запроса на сохранение
  A:=inttostr(sheet.range['B2']);
  B:=inttostr(combobox2.itemindex);
  if A = B then
  showmessage ('Variant')
  else showmessage ('No variant');
  XS.Application.Quit;
end;

[Stilet]

ошибка прежняя

и текст ошибки конечно же засекречен спецслужбами?

[VinDiz]

Сообщение от Stilet

и текст ошибки конечно же засекречен спецслужбами?

??????????? ??????? ????????? ? ??????????? вот такого вида и потом

Press OK to ignore and risk data corription
Press Cancel to kill the program

[Xardas]

Пройдите отладчиком и скажите на какой строке вылезает ошибка. Нет Делфей под рукой

[Sciv]

А че тут гадать, вот она:

[CODE] A:=XS.sheet.Range(XS.sheet.cells['2:2']);
/CODE]

Получаем диапазон ячеек, который записан в том же файле в ячейке 2:2 (или В2). А если там пусто?

Да, и потом, А объявлена строкой...

[Xardas]

Excel.Application.7

Вот еще возможный источник ошибки. Используйте Excel.Application.

Sciv, таким образом значение в ячейке не получить, об этом уже было сказано выше. А если бы там было пусто, то исключение бы получили из текущей программы при попытке привести число к строке, а тут, если я не ошибаюсь, исключение "вылезает" из excel.exe либо же при попытке создать OLE-объект, но сделать проверку ячейки на наличие непустого значения не помешает

[VinDiz]

Сообщение от Sciv

А че тут гадать, вот она:

[CODE] A:=XS.sheet.Range(XS.sheet.cells['2:2']);
/CODE]

Получаем диапазон ячеек, который записан в том же файле в ячейке 2:2 (или В2). А если там пусто?

Да, и потом, А объявлена строкой...

там по второму коду смотри! я исправил! файл по условию не будит пустой
той строки А:-.... в том что я исправил написал по правильному