Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вызов пользовательской функции Access из Excel / 5 сообщений из 5, страница 1 из 1
23.03.2016, 15:34
    #39198860
dmitriy_po
dmitriy_po
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов пользовательской функции Access из Excel
Всем привет.
Много уже было написано об этом, но решения пока не нашел. Есть необходимость использования пользовательских функций, написанных в рабочей БД, в рабочих листах 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, 16:06
    #39198900
MrShin
MrShin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов пользовательской функции Access из Excel
Добавить базу в референсы не пробовали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.03.2016, 16:07
    #39198902
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов пользовательской функции Access из Excel
База Акса емнип не добавляется в рефы проекта Экселя.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.03.2016, 16:27
    #39198926
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов пользовательской функции Access из Excel
dmitriy_poПомогите, пожалуйста, решить задачу без открытия самой БД.
ИМХО, без поднятия Access.Application - никак.
Вы лучше объясните, какая сложность в этой функции, что ее нельзя повторить в модуле Ёкселя?
Или, наоборот, зачем эту операцию выполнять в Ё. Может логичнее в Аксе всё это выполнять? Получить дату, затем открыть ваш файл Ё и всунуть ее туда. Следом можно и функцию из модуля Ё.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2016, 11:19
    #39199383
dmitriy_po
dmitriy_po
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов пользовательской функции Access из Excel
Оказалось проще и быстрее заново написать функцию в 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вызов пользовательской функции Access из Excel / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 151ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1613780]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 13ms
total:  151ms
x
x
Закрыть


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