Работа макросов из надстройки Excel

[Calvin]

Здраствуйте, уважаемые. Перед тем как создал эту тему обратился в поиск и конкретно по моей проблеме ничего не нашел, хотя дискуссий много.
Я создал файл xla с макросами и функциями, подключил его к книге (Data.xls), данные которой мне нужно обрабатывать с помощью процедур, которые находятся в надстройке. Проблема в том, что функции расположенные в надстройке видны - в разделе функций, определенных пользователем в Data.xls, а вот процедуры Data.xls не видит? В чем проблема?

[Antonariy]

Реквестирую пример, со слов не очень понятно.

[Calvin]

Если из книги Data.xls вызвать диалог "Макросы", то макросы, которые находятся в подключенной к этой книге надстройке - не отображаются.

[Calvin]

Не только не отображаются, но и не работают

[Calvin]

Расшифровать слово "Реквестирую" я не могу, но я так понимаю, что нужен пример.
Нужно просто создать xla файл - в него поместить модуль и в модуль однин Sub и один Function. А потом подключить этот xla к книге, например Data.xls.
Проблема в том, что в пользовательских функциях книги Data.xls функция из настройки видна и она работает. А вот если вызывать процедуру из надстройки или ссылаться на нее из Data.xls не получается.

[Antonariy]

ссылаться на нее из Data.xls не получается.

Если под "ссылаться" вы имеете имеете ввиду использование в ячейке, то все правильно. Процедура значений не возвращает и использоваться в ячейке не может.

Лично мне пример делать лень, в конце концов проблема у вас, а не у меня.

[Calvin]

ссылаться - я имел ввиду вызывать из Data.xls. Ну хватит уже учить тут всех правильно задавать вопросы. Ну неужели непонятно, что процедуры не видны из Data.xls.
Блин, если в таком ракурсе будут "пытаться помогать", то людям просто не захочется участвовать в форуме. Просто уже издевательство какое-то. По-моему и так все ясно....я блин и с одного бока спросил и с другого....ну как еще спрашивать.....может я не могу четко терминами выражаться, но несколько вариантов моего вопроса все-таки говорят о чем-то.
Не губи пожалуйста желание ко всему этому.
Знаю, что еще сейчас GSerg подключится и будит гнобить - изъясняйтесь правильно. Но если отключить придирчивость к словам других, думаю, что все станет понятно.
Antonariy я тебе благодарен, что ты пытаешься помочь....просто не гноби меня

[Antonariy]

ссылаться - я имел ввиду вызывать из Data.xls.

Вызывать можно по-разному. Где пример вызова?

Ну хватит уже учить тут всех правильно задавать вопросы.

Понимая бесперспективность этого занятия, я сразу попросил пример.

Ну неужели непонятно, что процедуры не видны из Data.xls.

Понятно. Не понятно почему. Где пример объявлений?

людям просто не захочется участвовать в форуме

Разные участники имеют разную значимость™ для форума. В отдельных случаях невелика потеря.

Просто уже издевательство какое-то. По-моему и так все ясно....

Так то по-вашему… А по-моему, издевательство это упорные попытки объяснить что-то на пальцах, не владея терминологией. "Вызывать" может иметь много значений, в устах не владеющего терминологией это количество умножается на два, а правильное значение принимает рандомный характер. Чтобы не гадать и не тратить время на словоблудие, я и попросил пример.

Знаю, что еще сейчас GSerg подключится и будит гнобить - изъясняйтесь правильно.

GSerg, вероятно, никогда уже не подключится, а я еще ничего и не начинал.

Antonariy я тебе благодарен, что ты пытаешься помочь....просто не гноби меня

Будете продолжать учить меня, как отвечать на вопросы, или таки родите эти два файла? Это будет лучшей благодарностью.

[dormouse]

кажется, я догадался, о чём идёт речь

я создал книгу Книга1. открыл редактор VBA. вставил новый модуль и написал туда:

Код: Выделить всё

Sub suba(a As String, b As String)
a = b
End Sub


Function fub(a As String, b As String) As String
fub = a & b
End Function


затем сохранил книгу Книга1.xla в папке по умолчанию AddIns

создал новую книгу. Открыл меню Сервис-Настройки. там в списке нашёл Книга1 и поставил на ней флажок
заполнил несколько ячеек в листе и одной ячейке попытался вставить формулу. выбрал из списка формул "Определённые пользователем". Там перечислены все функции из надстроек. среди них нашёл свою fub. suba там не было. после выбора функции диалог построения формулы предложил ввести два параметра: A и B. я сослася на ячейки на листе и в результате получил конкатенацию содержимого этих двух ячеек.

довольно интересно.. никогда не пользовался этой штукой... может в будущем пригодится

мои выводы. надстройка позволяет использовать в книге свои уникальные пользовательские расчёты, не предусмотренные микрософтом. и предоставлять обычному пользователю эти расчёты в стандартном интерфейсе экселя. Но. Суть любой функции (и в VBA и в экселе) - получить исходные данные и выдать результат расчёта. процедура отличается от функции тем, что результат не возвращает. в интерфейсе экселя таких операций тоже не может быть. они бессмысленны. требовать от настроек предоставлять процедуры - бессмысленно. они могут там использоваться для внутренней работы надстройки, для разветвления логики программы. но напрямую пользователю они доступны не будут, что тоже может быть полезно

[Calvin]

Книга xla мне нужна для того, чтобы из нее сделать книгу макросов. Чтобы многие пользователи смогли из своих рабочих книг, подключив надстройку, запускать макросы из надстройки. Вот и все
В книга макросов (*.xla) например вот такой код

Код: Выделить всё

Public Sub НеВажноЧтоЭтотМакросДелает()
msgbox "Выполнено"
end Sub


ну а функция, про которую я написал, находится в этом же модуле.
Пусть она будет любой

Код: Выделить всё

Function MyFunc(a as integer, b as integer)
MyFunc=a+b
end function


Я просто говорю, что книга Data.xls в своих пользовательских функциях видит MyFunc.
А вот из книги Data.xls из макроса

Код: Выделить всё

Sub SubData()
Call НеВажноЧтоЭтотМакросДелает
end sub


невозможно запустить макрос, который находится в надстройке.
У меня нет пока файла. У меня есть книга макрос в xls. там много чего....смысла нет выкладывать, если ни дин Sub не вызывается.

[Calvin]

Antonariy - это ты про меня имеешь ввиду "не велика потеря?" Честно говоря я бы никому не стал такое говорить. Тем более я не первый год на форуме, да и темы мои неглупые, т.к. работа моя связана с реальной практикой в компании, а не какая-то контрольная 11-го класса по информатике.
Я теба прошу....ну хватит на меня наезжать ....

[Денис]

Antonariy ... ну хватит на меня наезжать ....

Модераторам на заметку.

[Calvin]

Жаль, что никто не может помочь. А на счет последнего ответа, то я еще не зашел в тему, которую я разместитл, но уже почему-то знал, какого характера будет помощь. Ну чтож, извините, что тема была неактуальной и спровоцировала столько ненужных дискуссий.

[Antonariy]

Antonariy - это ты про меня имеешь ввиду "не велика потеря?"

Если я имею ввиду кого-то конкретно, то я не стесняюсь писать об этом прямо.

Жаль, что вы не хотите помочь мне помочь вам.
Вас всего лишь попросили написать пример, чтобы указать ошибку пальцем, а не гадать на кофейной гуще, а вы тут истерику развели, заслугами потрясаете. Если раньше мне было все равно, то теперь уже интересно, почему вы делаете это, а не то, что вам совтуют? Вам лень?

[Calvin]

Нет мне не лень. Мне наоборот - интересно. Все, что каксается VBA - мне интересно. (заслуг никаких не имею ))))))))
Если можно повторю в чем проблема:
В книге Data.xls в модуле1 есть процедура SubData, которая вызывает процедуру, находящуюся в подключенной к Data.xls надстройке "Книга Макрос.xla"

Код: Выделить всё

Sub SubData()
Call НеВажноЧтоЭтотМакросДелает
end sub


vba выдает ошибку Sub or Function not defined
в надстройке макрос находится в модуле один и ,например, там совершенно обычный код

Код: Выделить всё

Public Sub НеВажноЧтоЭтотМакросДелает()
msgbox "Выполнено"
end Sub


[iGrok]

...
Если можно повторю в чем проблема:
...

Calvin, ну что может быть легче - просто приложить к сообщению ФАЙЛИК в котором это уже сделано?

Чтобы можно было открыть, увидеть, и сказать в чём дело, а не продираться через дебри терминологии, выяснять что имелось в виду под тем или иным термином и пытаться составить нужный пример самому?

[Alec]

Достаточно в проект книги Data.xls подключить проект надстройки. Tools-References-Browse-имя файла надстройки

[alibek]

Достаточно в проект книги Data.xls подключить проект надстройки. Tools-References-Browse-имя файла надстройки

Ты читал это сообщение?

[Calvin]

вот прикрепленные файлы

[Antonariy]

У меня при подключении xla сразу появилась ошибка name conflicts with existing, неужели у вас не было?
В макросах задайте имя проекта отличное от стандартного VBAProject. И вот как это можно было выяснить из ваших объяснений?

[Alec]

Ты читал это сообщение?

К чему это?

У меня при подключении xla сразу появилась ошибка name conflicts with existing, неужели у вас не было?
В макросах задайте имя проекта отличное от стандартного VBAProject. И вот как это можно было выяснить из ваших объяснений?

Попробовать, потом

В макросах задайте имя проекта отличное от стандартного VBAProject.

и в будущем не забывать менять имя

[Calvin]

Спасибо огромное....дествительно все работает....с таким в первый раз сталкиваюсь

[holopyt]

Извеняюсь если что...

У меня не работает.. exel 2003 sp3

Незнаю что и делать переименовал все уже. Не видно процедур и все...
Хочу создать книгу макросов и повесить их на кнопки доступные изл любой открытой книги...

[holopyt]

Ну сжальтесь ))))))

[K0GG]

holopyt
- размести Macro.xla по пути
C:\Documents and Settings\Имя_пользователя\Application Data\Microsoft\Excel\XLSTART\
и переезапусти Excel.
А зачем тебе xla, что в 2003 Excel разве нет личной книги макросов PERSONAL.XLSB ?