EXCEL ЛОГИН И ПАРОЛЬ

[Pasha@]

Помогите мне, пожалуйста!!

Мне необходимо сделать так, чтобы пользователь вводил свой логин и пароль, а программа открывала определенную книгу Excel’я и проверила есть ли такой логин и пароль. Если есть, то получить (узнать) номер строки, где есть совпадение.


Код такой:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Excel: Variant;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
k,Rows,j: integer;
R: boolean;
t,t1: string;
begin
t:= edit1.text; //Логин
t1:= edit2.text; //Пароль
Excel:= CreateOleObject('Excel.Application' );
Excel.Workbooks.Open[ExtractFilePath(Application.EXEName ) + 'Лист Microsoft Excel.xls'];
rows:=Excel.ActiveSheet.UsedRange.R ows.Count;
k:=0;
for j:=3 to rows do
begin
if (Excel.cells[j,3]= t) and (Excel.cells[j,4]= t1) then
begin
R:= true;
k:=j;
end
else R:= false;
end;
Excel.ActiveWorkbook.Close;
Excel.Application.Quit;

if R= true then
begin
form1.Hide;
end
else
begin
if R= false then showmessage ('Пожалуйста, проверьте ваш пароль и написание вашей фамилии!');
end;

end;

end.



Но компьютер при компиляции программы выдает такую ошибку:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EVariantInvalidOpError with message 'Invalid variant operation'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------


Подскажите что не так??? И как это можно исправить???

[kuklp]

Pasha@, Вы не в тот форум попали. Здесь программируют на VBA.

[EducatedFool]

Перемещено из раздела Microsoft Office Excel

[Pasha@]

Посоветуйте тогда на какой форум мне обратится