Delphi 6 и Office XP (по крайней мере Excel)! Не работает!

← →
SB (2003-10-06 08:04) [0]

Кто нить подскажите как работать с Excel XP из Delphi 6!!!!!
Прога работает под Excel 2000,97 а под Excel XP дает ошибку!
Может там библиотека какая нить нужна? Народ подскажите хоть в каком направлении искать?? Я уже на пределе!
Заранее спасибо!!

← →
Nikolay M. (2003-10-06 10:20) [1]

> под Excel XP дает ошибку

Онозначно - ошибка в 17 строке...
В общем случае при работе с екселем приходится писать разный код под 97/2000/ХР :(

← →
SB (2003-10-06 11:48) [2]

Ты хоть сам понял че сказал????
Какая 17 строка?? Какой общий случай??
Это уже тяжелый случай!!!

← →
Mike Kouzmine (2003-10-06 11:51) [3]

Это точно!

← →
Term (2003-10-06 11:52) [4]

> Ты хоть сам понял че сказал????
> Какая 17 строка?? Какой общий случай??
> Это уже тяжелый случай!!!

а ты понял что спросил, хотя бы написал какая ошибка, а то ждёш что тут еще и мысли твои ктото угадает

← →
Woolen (2003-10-06 11:59) [5]

> Ты хоть сам понял че сказал????
> Какая 17 строка?? Какой общий случай??
> Это уже тяжелый случай!!!

А ты-то сам понял, что сказал? Что он еще должен сказать человеку, который кидает в форум: "У меня ошибка! Пмогите!" Вот тебе и ответ: "Ошибка у тебя в строке 17!" Какой вопрос - такой ответ.
Причина:
Для непонятливых объясняю: если ты говоришь: "Помогите!", то надо хотя бы объяснить с чем. Иначе, извини, телепатов тут нет и такие посьбы помочь (хрен его знает с чем) осмеиваются.
Выход:
Детально объяснить, что у тебя происходит с кодом, какие ошибки и в какой момент появляются, привести фрагменты кода и сообщения ошибок, классы ошибок, указать, в какой строке из приведенных тобой происходит ошибка и дать, по возможности, прочую информацию, из которой можно сделать выводы. Тогда тебе, возможно, кто-нибудь поможет.

← →
SelVl (2003-10-06 13:02) [6]

Смысл, то вообщем такой... наверняка использовались компоненты с палитры Servers?
Вообщем их надо удалить и добавить по новой, путем открытия какой-то dll из папки с офис XP, через пункт меню Components.
Как точно делать не помню, но смысл такой...

Nicolay prav
"В общем случае при работе с екселем приходится писать разный код под 97/2000/ХР :("

← →
Term (2003-10-06 13:16) [7]

а можно без использования компонентов Servers?
просто создать COM-объект скажем примерно так:
var xlap,xl:OLEVariant; begin XLap:= CreateOLEObject("Excel.Application"); xlap.workbooks.add; XLap.visible := true; xl:=xlap.Workbooks[1].Sheets[1];
по идее глючить не должно

← →
SelVl (2003-10-06 13:44) [8]

Конечно можно, и мне кажеться так правильней и более универсально... но человек скорее всего просто кидал компоненты на форму...

← →
SB (2003-10-06 13:51) [9]

ОК! Ошибка звучит так!
"Project SB.EXE raised exception class EOleException with message
"Ole Error 800A03EC".Process stoped. Use Step or Run to continue."
Выходит оно тогда , когда у меня начинает работать процедура

procedure TForm1.SaveXLTab(Sender:TObject);
begin
if Assigned(xlAp) and Assigned(xlBk) then
try
ISheet := xlBk.Worksheets.Item["Лист1"] as Excel2000._Worksheet;

ISheet.SaveAs(SFName,xlText,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
finally
ISheet:=nil;
end;
end;
Вроде вся информация ! Поможите кто чем может!!!

← →
SB (2003-10-06 13:59) [10]

И компоненты никто не кидал!!
Все ручками писалось !

← →
Hooch (2003-10-06 14:06) [11]

дебагером ходил, на какой строке падает ?

← →
SB (2003-10-06 14:22) [12]

на строке
ISheet.SaveAs ......
но самое интересное что в Excel 2000,97 все ништяк работает!

← →
Hooch (2003-10-06 14:25) [13]

>> ISheet := xlBk.Worksheets.Item["Лист1"] as cel2000._Worksheet;

после этой строки проверь интерфейс вернулся или нет

← →
SB (2003-10-06 14:55) [14]

Извини ламера но куда он должен возвращатся и как это проверить?

← →
Hooch (2003-10-06 15:05) [15]

if not Assigned(ISheet) then
raise Exception.Create("А интерфейса нема !! ")

← →
Bob (2003-10-06 17:53) [16]

>>ISheet.SaveAs(SFName,xlText,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);

Есть уменя подозрение, что в скобках надо указать больше параметров. По крайней мере с Word из Office XP затык был именно в этом. Описалово было найдено по этой ссылке:
http://www.delphiworld.narod.ru/all.html. Слазий туда, может быть найдешь для себя что-то интересное

← →
SB (2003-10-07 06:23) [17]

Hooch спасибо за интерфейсы!
Спасибо Bob за ссылку!

← →
SB (2003-10-07 06:27) [18]

Hooch спасибо за интерфейсы!
Спасибо Bob за ссылку правда битую!

← →
Hooch (2003-10-07 07:22) [19]

так заработало или нет ??? да, я твой пример проверил, у меня на Office XP нормально сработало

← →
SB (2003-10-07 08:02) [20]

Не у меня так и не работает
Ты код не менял? Можеш выслать листинг(полностью на мыло) твоей проги мож я че раньше накосячил!?
Заранее спасибо!

← →
Hooch (2003-10-07 08:05) [21]

← →
SB (2003-10-07 08:23) [22]

Выслал?

← →
Hooch (2003-10-07 08:38) [23]

да

Delphi 6 и Office XP (по крайней мере Excel)! Не работает! Найти похожие ветки