Вызов пользовательской функции Access из Excel / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вызов пользовательской функции Access из Excel

5 сообщений из 5, страница 1 из 1

Вызов пользовательской функции Access из Excel

#39198860

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

Участник

Сообщения: 1 276

Рейтинг: 0 / 0

Добавить базу в референсы не пробовали?

...

Рейтинг:

0 / 0

23.03.2016, 16:06

| Ответить | Цитировать | Написать

Вызов пользовательской функции Access из Excel

#39198902

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

База Акса емнип не добавляется в рефы проекта Экселя.

...

Рейтинг:

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

Гость

Оказалось проще и быстрее заново написать функцию в 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):

start [/forum/moderation_log.php?user_name=DosAlex]:	0ms
get settings:	10ms
get forum list:	12ms
get settings:	9ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	41ms
get topic data:	10ms
get forum data:	2ms
get page messages:	45ms
get tp. blocked users:	1ms
others:	20ms

total:	172ms