[cyborgg4655]

Проблема в том что мне я хочу имотртировать из столбца в екселе в столбец accessa, но т.к в этом столбце каждый раз будет различное число строк, мне нужно автоматизировать этот процесс. Чтобы он добалял строки из столбца A до тех пор пока этот стобец не станет пустым.Я так понимаю тут нужно будет цикл написать? Вот мой текущий код:

Код:

var Ap:Variant;
begin
Ap := CreateOleObject('Excel.Application');
Ap.Workbooks.Open('C:/321.xls');
ADOQuery1.Append;
ADOQuery1.FieldByName('наименование').AsString:=Ap.Range[A1];

Пробывал такой цикл:

Код:

var Ap:Variant;
A:integer;
b:string;
begin
A:=1;
b:=ADOQuery1.FieldByName('наименование').AsString;
while b<>'' do
begin
A:=A+1;
Ap := CreateOleObject('Excel.Application');
Ap.Workbooks.Open('C:/321.xls');
ADOQuery1.Append;
ADOQuery1.FieldByName('наименование').AsString:=Format('Ap.Range['A%s']',[A]);
Application.ProcessMessages;
end;
end;

ругается на синтаксис Format'a. Другие мысли в голову не лезут что-то(((