Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.06;
Скачать: CL | DM;

Вниз

Всё таже проблема с СОМ-объектами....   Найти похожие ветки 

 
Term   (2003-09-24 10:15) [0]

Мастера помогите разобраться я окончательно запутался
у меня следующий код:

var
xlap,xl:OLEVariant;
stroka:integer;
begin
XLap:= CreateOLEObject("Excel.Application");
XLap.Workbooks.Open(Import_1C.FileListBox1.FileName);
xl:=xlap.Workbooks[1].Sheets[1];
XLap.visible := false;

stroka:=9;
while xl.Cells[stroka,1].Value<>"" do
begin
form1.Main.Append;
Form1.Main.FieldByName("Famil").AsString:=xl.Cells[stroka,1].Value;
form1.Main.Post;
inc(stroka);
end;
XLap:=Unassigned;


в базу заносятся значения тут всё нормально, но потом вываливается ошибка, "Invalid Variant Operation"
Что делать, что не так.... подскажите


 
Term   (2003-09-24 10:18) [1]

если тоже самое сделать без цикла то ошибок нет...
как быть?


 
Palladin ©   (2003-09-24 10:22) [2]

видимо попадается значение которое невозможно сконвертировать в string


 
Term   (2003-09-24 10:25) [3]

нет значения только стринговые


 
Думкин ©   (2003-09-24 10:39) [4]

> xl.Cells[stroka,1].Value<>""

Ошибка вываливается тут.


 
Murad ©   (2003-09-24 10:55) [5]

Я не уверен, но может быть, на определенной итерации
stroka принимает несуществующее значение, т.е.
stroka = 12 , а их всего 10. Я только не знаю, что в током случае
вернет xl.Cells[stroka,1].Value , "" или поднимет "Invalid Variant Operation" или еще что...


 
NAlexey ©   (2003-09-24 10:55) [6]

Значит null.



Страницы: 1 вся ветка

Текущий архив: 2003.10.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
14-18540
Ru
2003-09-17 10:43
2003.10.06
http://deep.webm.ru/forum/reply.php?num=3.1&id=39787


14-18566
Help
2003-09-18 14:37
2003.10.06
Про Р4


3-18241
elen
2003-09-16 14:14
2003.10.06
Database и BDE Error 9986


1-18306
Кен
2003-09-23 06:58
2003.10.06
Как сделать так, чтобы из RichEdit а нельзя было копировать в буф


1-18453
GreySerg
2003-09-24 17:19
2003.10.06
Какая максимальная длина имени переменной в Delphi ?