Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel+VBA Как определить модуль расположения процедуры (sub) / 4 сообщений из 4, страница 1 из 1
03.02.2003, 12:08
    #32100315
mahoune
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel+VBA Как определить модуль расположения процедуры (sub)
Надо узнать имя файла в котором находится процедура (sub) которую я вызываю.

Или может задачку можно решить иначе:
Открываю файл который необходимо обработать. Запускаю макрос который встроен в другой файл, посему в ActiveDocument остается обрабатываемый документ. Но данные надо записывать в файл где расположена процедура (sub). А его имя может меняться и не очень хочется зашивать все это в макрос жестко.
...
Рейтинг: 0 / 0
03.02.2003, 17:08
    #32100526
mahoune
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel+VBA Как определить модуль расположения процедуры (sub)
Усе вроде решил...
Код: plaintext
1.
2.
function ThisFileName() as String
  ThisFileName = ThisWorkbook.FullName
...
Рейтинг: 0 / 0
03.02.2003, 18:28
    #32100575
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel+VBA Как определить модуль расположения процедуры (sub)
Вообще-то это не модуль расположения, а проект

А то я уже бросился искать свой проектик по работе с модулями и процедурами...
...
Рейтинг: 0 / 0
04.02.2003, 10:38
    #32100738
mahoune
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel+VBA Как определить модуль расположения процедуры (sub)
Э... Может и проект!
Я делаю Insert\Module. В нем задаю функцию... А потом надо понять в каком файле находится модуль содержащий эту функцию...

Одним словом работает!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel+VBA Как определить модуль расположения процедуры (sub) / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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