Вызов пользовательской функции Access из Excel
|
|
Среда, 23 Марта 2016 г. 15:34
+ в цитатник
Всем привет.
Много уже было написано об этом, но решения пока не нашел. Есть необходимость использования пользовательских функций, написанных в рабочей БД, в рабочих листах Excel. Получилось написать в Excel некую корявую функцию, которая хоть как-то работает.
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 становится нецелесообразным.
Помогите, пожалуйста, решить задачу без открытия самой БД.
Заранее благодарю.
http://www.sql.ru/forum/1206562/vyzov-polzovatelskoy-funkcii-access-iz-excel
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-