Форум: "Основная";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c