Текущий архив: 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.019 c
