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

← →
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<>""

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

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

Значит null.

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