|
|
|
Использование пользовательских функций Excel в Access или создание библиотеки
|
|||
|---|---|---|---|
|
#18+
Использование пользовательских функций Excel в Access или создание библиотеки Как организовать доступ из Access к пользовательским функциям Excel или подключить библиотеку своих функций, которые можно использовать и в Excel и в Access Вариант использовать что-то одно (Excel или Access) отпадает! Помогите, очень надо.... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.01.2004, 20:52 |
|
||
|
Использование пользовательских функций Excel в Access или создание библиотеки
|
|||
|---|---|---|---|
|
#18+
Добавляем в References файл EXCEL8.OLB или EXCEL9.OLB и пользуемся всеми объектами библиотеки Excel. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.01.2004, 21:00 |
|
||
|
Использование пользовательских функций Excel в Access или создание библиотеки
|
|||
|---|---|---|---|
|
#18+
Не могли бы Вы показать пример. Допустим у меня есть функция test(test_param) в файле test_file.xls в модуле TestModule Как вызвать эту функцию в Access? Заранее благодарен! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.01.2004, 01:06 |
|
||
|
Использование пользовательских функций Excel в Access или создание библиотеки
|
|||
|---|---|---|---|
|
#18+
Посмотри тут и тут.\r Если не найдешь, погляди в поиск по "Excel.Application". ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.01.2004, 01:58 |
|
||
|
Использование пользовательских функций Excel в Access или создание библиотеки
|
|||
|---|---|---|---|
|
#18+
С функцией почему-то не получилось. А с сабом так: Dim WB As Excel.Workbook Set WB = Excel.Workbooks.Open("c:\oldd\test_file.xls") Excel.Application.Run "testsub(7)" WB.Close ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.01.2004, 02:07 |
|
||
|
Использование пользовательских функций Excel в Access или создание библиотеки
|
|||
|---|---|---|---|
|
#18+
Кому интересно - вот вариант с функцией: Допустим есть функция 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, спасибо Владимир Саныч ! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.01.2004, 12:07 |
|
||
|
|

start [/forum/topic.php?fid=45&msg=32372881&tid=1677275]: |
0ms |
get settings: |
9ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
228ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
47ms |
get tp. blocked users: |
1ms |
| others: | 229ms |
| total: | 549ms |

| 0 / 0 |
