[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. Другие мысли в голову не лезут что-то(((

[M.A.D.M.A.N.]

Код:

Format('Ap.Range[%s]',[A]);

[cyborgg4655]

Одна проблема отпала)) ADOQuery1.FieldByName('наименование').AsString:=Fo rmat('Ap.Range['A%s']',[A]);
Заместо %s должно быть %d.
Но теперь он говорит что "Система Office обнаружила проблему с этим файлом. Чтобы обеспечить защиту компьютера этот файл не будет открыт."

[cyborgg4655]

Сообщение от M.A.D.M.A.N.

Код:

Format('Ap.Range[%s]',[A]);

Так а мне нужны ячейки А1,а2, и т.п. А это пучается в поле Range будут просто цифры