Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];

Вниз

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]

ok


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

Выслал?


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

да



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.49 MB
Время: 0.013 c
14-89529
Soft
2003-10-04 16:17
2003.10.27
Выход в астрал - впечатления.


14-89567
Knight
2003-10-07 16:07
2003.10.27
Ну вот отпуск закончился...


3-89180
PigMey
2003-09-30 21:14
2003.10.27
Связь с таблицей без компонент


6-89436
Мякс
2003-09-02 19:00
2003.10.27
отследить подключение и отключение


1-89203
off
2003-10-15 13:57
2003.10.27
Как работать с TChart?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский