Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Использование пользовательских функций Excel в Access или создание библиотеки / 6 сообщений из 6, страница 1 из 1
09.01.2004, 20:52
    #32372043
ViewSale
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование пользовательских функций Excel в Access или создание библиотеки
Использование пользовательских функций Excel в Access или создание библиотеки

Как организовать доступ из Access к пользовательским функциям Excel
или подключить библиотеку своих функций, которые можно использовать и в Excel и в Access
Вариант использовать что-то одно (Excel или Access) отпадает!

Помогите, очень надо....
...
Рейтинг: 0 / 0
09.01.2004, 21:00
    #32372045
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование пользовательских функций Excel в Access или создание библиотеки
Добавляем в References файл EXCEL8.OLB или EXCEL9.OLB и пользуемся всеми объектами библиотеки Excel.
...
Рейтинг: 0 / 0
11.01.2004, 01:06
    #32372421
ViewSale
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование пользовательских функций Excel в Access или создание библиотеки
Не могли бы Вы показать пример.

Допустим у меня есть функция test(test_param) в файле test_file.xls в модуле TestModule
Как вызвать эту функцию в Access?

Заранее благодарен!
...
Рейтинг: 0 / 0
11.01.2004, 01:58
    #32372426
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование пользовательских функций Excel в Access или создание библиотеки
Посмотри тут и тут.\r
Если не найдешь, погляди в поиск по "Excel.Application".
...
Рейтинг: 0 / 0
11.01.2004, 02:07
    #32372427
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование пользовательских функций Excel в Access или создание библиотеки
С функцией почему-то не получилось. А с сабом так:

Dim WB As Excel.Workbook
Set WB = Excel.Workbooks.Open("c:\oldd\test_file.xls")
Excel.Application.Run "testsub(7)"
WB.Close
...
Рейтинг: 0 / 0
12.01.2004, 12:07
    #32372881
ViewSale
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование пользовательских функций Excel в Access или создание библиотеки
Кому интересно - вот вариант с функцией:

Допустим есть функция Excel test_function(text_argument) в файле C:\test.xls

Чтобы ее использовать в Access нужна такая процедура:

Sub TestSub()

Set appExcel = Excel.Application
appExcel.Workbooks.Open ("C:\test.xls")
f_arg1 = "Test"

need_value= appExcel.Run("test_function", f_arg1)
Set appExcel = Nothing
End Sub

Также можно вызвать ф-ию в Excel из Access

Вопрос с созданием библиотеки открыт;)

Спасибо Geo, спасибо Владимир Саныч !
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Использование пользовательских функций Excel в Access или создание библиотеки / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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