Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запуск из Word функции Excel / 13 сообщений из 13, страница 1 из 1
05.05.2010, 16:23
    #36613359
Не тот
Не тот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
Доброе время суток, уважаемые!!!
Вопрос такой. В екселе есть самодельная функция, возвращает некие данные из базы. Функция лежит в надстройке в папке XLSTART. Так вот, нельзя ли ее вызвать из Ворда?
Пробовал решать проблему:
1. Путем запуска Екселя и вызова функции из него
2. Копипастом в вордовский шаблон (сейчас работает именно так)
Нет ли какого-нибудь более правильного метода?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2010, 20:45
    #36613910
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
Как-то так для начала:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Example()
Dim oExcel As Object

Set oExcel = CreateObject("Excel.Application")
'oExcel.Visible = True
oExcel.Workbooks.Open "C:\Program Files\Microsoft Office\OFFICE11\XLSTART\Файл.xls"
oExcel.Run "Файл.xls!Макрос1"
...
oExcel.Quit:Set oExcel = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2010, 22:36
    #36614073
Не тот
Не тот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
авторКак-то так для начала:
Спасибо, но это первый способ (запуск екселя).
Вопрос, можно ли без этого обойтись?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 00:38
    #36614255
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
Не тотавторКак-то так для начала:
Спасибо, но это первый способ (запуск екселя).
Вопрос, можно ли без этого обойтись?
Не тот , если база данных - не книга Excel, то ответ однозначный - "да", поскольку запрос к БД можно делать и из Word, если же БД - книга Excel, то надо смотреть: многое зависит от организации данных в этой книге.

Опишите задачу подробнее: какая база, что за "самодельная функция", как получаете данные "копипастом" и т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 09:02
    #36614481
Не тот
Не тот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
авторНе тот, если база данных - не книга Excel, то ответ однозначный - "да", поскольку запрос к БД можно делать и из Word, если же БД - книга Excel, то надо смотреть: многое зависит от организации данных в этой книге.

Опишите задачу подробнее: какая база, что за "самодельная функция", как получаете данные "копипастом" и т.д.

vlth, спасибо за терпение.

"самодельная функция" - функция, которая возвращает из MSSQL баланс по номеру контрагента на определенную дату.
На входе - № контрагента, дата, на выходе - всего одно число. Внутри нее АДО и все дела (на данном этапе это не суть важно, там может быть обращение к любому источнику данных).
Как реализовать ее в Ворде - да так же, как и в Екселе ("копипастом").
Вопросы:
1. Нельзя ли вызвать функцию не запуская Екселя (типа обратиться к надстройке как к библиотеке что ли)?
2. Нафига копипастить код, если он уже написан и работает?
Решение есть еще одно. Запихать код в длл и обращаться к ней. Но тоже не айс (компиляция и все такое, одним офисом не обойтись).
Одним словом, нужен ответ на первый вопрос и все.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 09:28
    #36614526
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
Не тот , скопируйте функцию в модуль документа Word и подключите в референсах ссылку на ADO, если код функции это подразумевает.
Как я понял, объекты Excel в функции не используются, поэтому располагать её, скорее всего, можно в любом приложении, поддерживающем VBA, без какой-либо серьёзной модификации.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 13:14
    #36615088
Не тот
Не тот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
авторНе тот, скопируйте функцию в модуль документа Word и подключите в референсах ссылку на ADO, если код функции это подразумевает.
Как я понял, объекты Excel в функции не используются, поэтому располагать её, скорее всего, можно в любом приложении, поддерживающем VBA, без какой-либо серьёзной модификации.
Вот именно так сейчас и работает.
Вопрос в том, что копипаст кода - занятие не правильное. Библиотека функций, получающих данные из базы растет и обновляется. Хотелось бы держать этот код в ОДНОМ месте для всех приложений Office, потому что специфичного для какого-нибудь приложения там ничего нет, а при каких-то изменениях будут определенные проблемы (менять во всех шаблонах, надстройках и т. п.).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 13:30
    #36615130
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
Не тот ,
подключить в референсах не пробовали это файл надстройки?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 13:41
    #36615149
Не тот
Не тот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
Пробовал tools->references->browse->Имя_надстройки
результат:
Can't add a reference to the specified file
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 14:19
    #36615229
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
Код: plaintext
1.
2.
3.
4.
Const cstrModule = "...Путь к модулю\Module1.bas"
With ThisDocument.VBProject.VBComponents 'With ThisWorkbook... и т.д.
    .Remove Item("Module1") 'Удаляем модуль с устаревшей процедурой
    .Import cstrModule  'Импортируем  модуль с обновлённой процедурой
End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 15:34
    #36615448
Не тот
Не тот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
vlth,

Код: plaintext
1.
2.
3.
4.
Const cstrModule = "...Путь к модулю\Module1.bas"
With ThisDocument.VBProject.VBComponents 'With ThisWorkbook... и т.д.
    .Remove Item("Module1") 'Удаляем модуль с устаревшей процедурой
    .Import cstrModule  'Импортируем  модуль с обновлённой процедурой
End With

Спасибо, как вариант можно использовать для обновления.
А нельзя ли в проекте ссылаться на модуль, а не менять его каждый раз?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 19:16
    #36616101
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
Нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 20:29
    #36616233
Не тот
Не тот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск из Word функции Excel
vlthНет
Печально.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запуск из Word функции Excel / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 774ms
Закрыть
start [/forum/search_topic.php?author=fg34&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 5ms
get forum list:
 11ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 25ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 664ms
total:  774ms
x
x
Закрыть


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