ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вызов пользовательской функции Access из Excel
5 сообщений из 5, страница 1 из 1
Вызов пользовательской функции Access из Excel
    #39198860
dmitriy_po
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dmitriy_po
Гость
Всем привет.
Много уже было написано об этом, но решения пока не нашел. Есть необходимость использования пользовательских функций, написанных в рабочей БД, в рабочих листах Excel. Получилось написать в Excel некую корявую функцию, которая хоть как-то работает.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 Function GetDateFromAccess(Arg As String) As Date
    Dim appAcc As Access.Application
    Dim strPath As String
    
    strPath = "C:\MyDatabase.accdb"
    
    Set appAcc = CreateObject("Access.Application")
    appAcc.OpenCurrentDatabase strPath
    GetDateFromAccess = appAcc.Run("GetDate", Arg)
End Function



"Корявость" состоит в том, что открывается сама база, и это совсем не вариант. Базу, конечно, можно скрыть и закрыть в самом коде, но мне этот вариант не нравится. База открывается достаточно долго около (5-10 секунд). т.к. при загрузке выполняются ряд процедур. Использование такой функции в Excel становится нецелесообразным.
Помогите, пожалуйста, решить задачу без открытия самой БД.

Заранее благодарю.
...
Рейтинг: 0 / 0
23.03.2016, 15:34
| Ответить | Цитировать | Написать  
Вызов пользовательской функции Access из Excel
    #39198900
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Добавить базу в референсы не пробовали?
...
Рейтинг: 0 / 0
23.03.2016, 16:06
| Ответить | Цитировать | Написать  
Вызов пользовательской функции Access из Excel
    #39198902
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
База Акса емнип не добавляется в рефы проекта Экселя.
...
Рейтинг: 0 / 0
23.03.2016, 16:07
| Ответить | Цитировать | Написать  
Вызов пользовательской функции Access из Excel
    #39198926
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
dmitriy_poПомогите, пожалуйста, решить задачу без открытия самой БД.
ИМХО, без поднятия Access.Application - никак.
Вы лучше объясните, какая сложность в этой функции, что ее нельзя повторить в модуле Ёкселя?
Или, наоборот, зачем эту операцию выполнять в Ё. Может логичнее в Аксе всё это выполнять? Получить дату, затем открыть ваш файл Ё и всунуть ее туда. Следом можно и функцию из модуля Ё.
...
Рейтинг: 0 / 0
23.03.2016, 16:27
| Ответить | Цитировать | Написать  
Вызов пользовательской функции Access из Excel
    #39199383
dmitriy_po
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dmitriy_po
Гость
Оказалось проще и быстрее заново написать функцию в Excel, обращающуются в Access через DAO.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim db As DAO.Database
Sub SetDB()
    Set db = DBEngine.OpenDatabase("C:\MyDatabase.accdb")
End Sub

Function AccessFunction (Arg As String)
    Call SetDB
    On Error Resume Next
    AccessFunction = db.OpenRecordset([SQL запрос] & Arg).Fields(0)
    If Err <> 0 Then  AccessFunction = CVErr(xlErrNA)
    On Error GoTo 0
End Function
...
Рейтинг: 0 / 0
24.03.2016, 11:19
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вызов пользовательской функции Access из Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39199383&tid=1613780]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 37ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 327ms
total:  447ms
созд. / загр.: 447ms
x
x
Закрыть


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