Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
Вниз
Поясните в чом проблема? Найти похожие ветки
← →
Term (2003-09-18 11:31) [0]
var
xlap,xl:OLEVariant;
begin
XLap:= CreateOLEObject("Excel.Application");
XLap.Workbooks.Open("C:\WINDOWS\Рабочий стол\Помощник.xls");
XLap.visible := false;
xl:=xlap.Workbooks[1].Sheets[1];
...
XLap:=Unassigned;
вроде всё как хелпе, однако на последнюю строку ругается
"Invalid variant operation", подскажите что не так
← →
Term (2003-09-18 11:50) [1]ну ктонить.....
← →
Term (2003-09-18 11:52) [2]......
← →
clickmaker (2003-09-18 11:54) [3]xlap := Null
← →
Murad (2003-09-18 11:55) [4]Твой код правильный, единственное что могу предположить, что ты портишь память в тех строчках которые не указал(...) или систему глючит
← →
Term (2003-09-18 11:58) [5]в тех строках я просто обращаюсь к ячейкам вот:
while xl.Cells[stroka,1].Value<>"" do
begin
append_sotr;
inc(stroka);
end;
← →
Murad (2003-09-18 12:01) [6]А ты закоментируй этот блок и глянь, что будет происходить, да и вообще комментируя поочередно блоки можно быстро понять, в этом коде ошибка или где-то еще...
← →
Term (2003-09-18 12:03) [7]делал так, тот же результат.... обращается к экселю и потом ошибка этаже вываливается, и на
xlap := Null
ругается также
← →
Murad (2003-09-18 12:13) [8]Ну не знаю... у меня твой код отрабатывает нормально, может ты еще где-то память портишь... Попробуй заменить OLEVariant на
Variant (хотя это фигня)
← →
Term (2003-09-18 12:17) [9]
> Попробуй заменить OLEVariant на
> Variant (хотя это фигня)
точно так и есть, всё тоже...
я пока оставлю, потом на другой тачке попробую,
спасибо.
← →
Term (2003-09-18 12:19) [10]да нет, в других местах я с БД работаю, а в этом месте, нужно было данные из экселевскокго файла брать, может действительно система глючит
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
