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

[VinDiz]

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

Excel.Application.7

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

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

я так тоже перепробовал, перед тем как сюда написать читал литературу по теме.... еще выбивает класс исключений extented....OLE.... читал про этот класс исключений там что то писалось про то что нехватает какого то интерфейса.....хотя программа не открывает файл эксель а просто читает из него

Sciv я там в две переменые и забиваю строками в данном случае сравниваются строки на сходность одно слово в комбобоксе второе в ячейке

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

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

ему что то sheet не нравится

проект project вызвал класс исключений 'EOleException' с сообщением:
??????????????????????????"имя покдлючаемого файла" ????????????????????????????

вот это мне показывало!

[Xardas]

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

ему что то sheet не нравится

Workbook.Worksheets[1].Activate
Workbook.Worksheets.Item(1).Activate

Либо же вообще не используйте переменную эту, а обращайтесь к ячейке, сделав активным лист, как показано выше

XS.Cells[2,2]

Нет возможности проверять, способов работы куча с экселевским объектом. Какой эксель на компе установлен?

[Sciv]

Попробуйте поставить после:

 XS.Workbooks.Open('C:\Documents and Settings\Admin\Рабочий стол\NKI\КПЗ\программа\222.xls',0,false);  // не отображается таблица

вот это:

XS.Visible:=true;

По идее, книга должна открыться, а там смотрите, выберет ли он нужный шит или нет.

Sciv, таким образом значение в ячейке не получить, об этом уже было сказано выше.

Ага, я первый пост прочитал и отвечать бросился, сломя голову Нет, чтоб вниз пролистать...

[VinDiz]

Нет возможности проверять, способов работы куча с экселевским объектом. Какой эксель на компе установлен?[/QUOTE]

7-ой

Поставил все как вы написали, и заменил полный путь к файлу на просто имя файла

XS.Workbooks.Open('222.xls',0,false);

! При компиляции не хочет видеть файл эксель...

[Xardas]

Прикрепите сюда свой файл, поставлю Делфи, проверю все и отпишусь.

Так и не увидит, путь нужен полный. Либо ручками писать, либо использовать методы по типу ExtractFilePath(paramstr(0)), если файл там же где и exe

[Stilet]

VinDiz

О! Тоже на Лазарусе сидишь?
Вдогонку:

unit Unit2;

interface

uses        comobj,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
   var A, B: string;
      sh,XS,wb: olevariant;
begin
  XS:= CreateOleObject('Excel.Application');
  wb:=XS.Workbooks.Open('d:\1\Книга1.xlsx',0,false);  // не отображается таблица
  sh := wb.WorkSheets[1]; // Pervaya vkladka
  A:=sh.cells[2,2];
  B:='1';
  if A = B then
  showmessage ('Variant')
  else showmessage ('No variant');
  XS.Quit;
  VarClear(xs);
end;

end.

[VinDiz]

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

Прикрепите сюда свой файл, поставлю Делфи, проверю все и отпишусь

кнопка находится на третей форме, для удобности закомментировал модуль пароля

[VinDiz]

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

О! Тоже на Лазарусе сидишь?

да, он файный

[VinDiz]

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

кнопка находится на третей форме, для удобности закомментировал модуль пароля

там получается выбирать надо раён: Центральный Улица: Артилерийская

по этим полям сравниваю

[Xardas]

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

там получается выбирать надо раён: Центральный Улица: Артилерийская

по этим полям сравниваю

Ну если кто-то другой не решит проблему, то ждите, пока поставлю Делфи. Все равно надо ставить, лень было до этого