powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Использовать Excel как библиотеку функций из любых Ваших приложений!
4 сообщений из 4, страница 1 из 1
Использовать Excel как библиотеку функций из любых Ваших приложений!
    #32947476
kanalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Наткнулся тут на интересную возможность.
В Excel есть контейнер worksheetfunction, который содержит многие функции доступные для использования в ячейках Листа.
Так вот можно через OLE использовать эту возможность в любом Вашем приложении.
Вот пример для Access:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Function aaa(A As Integer) As String
'Возвращаем число преобразованное из арабского вида в римское.
Dim xl As Object

    Set xl = CreateObject("Excel.Sheet")
    xl.Application.Workbooks.Add
    
    aaa = xl.Application.worksheetfunction.Roman(A,  0 )
    xl.Close
    
End Function
...
Рейтинг: 0 / 0
Использовать Excel как библиотеку функций из любых Ваших приложений!
    #32947753
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
жаль только скорость черепашья.
...
Рейтинг: 0 / 0
Использовать Excel как библиотеку функций из любых Ваших приложений!
    #32949372
kanalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
marvanжаль только скорость черепашья.

Может у меня машина шустрая, но особых тормозов не заметно:)
Есть операции внутри Экселя, которые выполняются с заметными тормозами - например форматирование листов для печати (из макросов).
А данный пример отрабатывается даже меньше секунды...
Вообщем, смотря с чем сравнивать.
...
Рейтинг: 0 / 0
Использовать Excel как библиотеку функций из любых Ваших приложений!
    #32950269
kanalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот, кстати, и количественные показатели скорости:

при первом запуске приведенный выше код отрабатывает за 1,249994 сек,
при последующих - за 0,2... с хвостиком.

Машина АМД-Athlon 1200+/512M/Win XP SP1/Excel XP/Access 97
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Использовать Excel как библиотеку функций из любых Ваших приложений!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]