Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 2 786

Раздел: Delphi » COM, ActiveX и взаимодействие с другими приложениями
/ вопрос открыт /

Здравствуйте, уважаемые эксперты!
Пытаюсь автоматизировать Exel. Условия в задачи таковы:
не использовать макросы VB, а использовать только пользовательские функции, т.е. небходим автоматический пересчет таблицы (ячейки, или диапазона ячеек) при изменении данных. Стандартными средствами VB 'это сделать сложновато, следовательно, необходимо писать DLL. Нарисовал, ну и происходит перегрузка EXCEL_я и не могу понять где жук сидит.

Приложение:
  1.  
  2.  
  3. procedure XLSRadToDDD_mmss(var DegFmt : Variant;
  4. Rad : Variant; Decimals : Variant);
  5.  
  6. begin
  7. try
  8.  
  9. DegFmt := RadToDDD_mmss(Rad, Decimals);
  10. except
  11. Abort;
  12. end;
  13. end;
  14.  
  15. --------
  16.  
  17. --------
  18. library GeoFuncXLS;
  19.  
  20. uses
  21. SysUtils, Classes, GeoFunc01;
  22.  
  23. {$R *.res}
  24. exports
  25. XLSRadToDDD_mmss;
  26. begin
  27. end.
  28. --------
  29.  
  30. --------
  31. Option Explicit
  32. Option Base 1
  33. Declare Sub XLSRadToDDD_mmss Lib "E:VelasGEO_Func_EXCELFunc_DllGeoFuncXLS.dll" (ByVal DegFmt As Variant, Rad As Variant, Decemal As Variant)
  34.  
  35. Function vbRadToDDD_mmss(Rad As Variant, Dec As Variant) As Variant
  36. Dim Result As Variant
  37.  
  38. Call XLSRadToDDD_mmss(Result, Rad, Dec) vbRadToDDD_mmss = Result
  39. End Function
  40.  
  41.  
  42.  
  43. -------------------------------------------------------------------------------
  44.  
  45.  
  46.  
  47. Function MyFn(aData as Range, aResult As Range) as Variant
  48.  
  49.  
  50. Call DelphiDLL_procedure_or_fnction(aData as Range, aResult As Range)
  51.  
  52.  
  53.  
  54. end function
  55. -------------------------------------------------------------------------------
  56.  
  57.  


Крокодил Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Крокодил (статус: Посетитель)
Вопрос отправлен: 15 мая 2009, 13:12
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 19 мая 2009, 10:29; участников в обсуждении: 2.
Косолапов Дмитрий Юрьевич

Косолапов Дмитрий Юрьевич (статус: 8-ой класс), 17 мая 2009, 12:42 [#1]:

Так а формулы в ячейках точно не подходят?
Крокодил

Крокодил (статус: Посетитель), 19 мая 2009, 10:29 [#2]:

если писать на VBE, то EXCEL работает как паравоз, если пользоваться стандартными фолмулами - слишком много промежуточных значений.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 30 октября 2025, 20:57
Выполнено за 0.02 сек.