powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / MS Excel/ Путь к исполняемому файлу с макросом.
8 сообщений из 8, страница 1 из 1
MS Excel/ Путь к исполняемому файлу с макросом.
    #39865170
Фотография Мордор Держимордов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня есть ексель файл с поддержкой макросов (ЗАДАЧА.XLSM).
Данный файл работает с файлами находящимися в той же папке что и он. Однако в самом макросе пути жестко привязаны к диску D:\

Прошу не кидаться табуретками, скажите как закинуть в переменную путь к файлу в котором я выполняю макрос. Сам я не программист, человек уволился оставил наскоро написанный макрос, однако есть потребность пользователям запускать его из разных мест, а не только с папки D:\ZAGOTOVKA как порописано в теле макроса, не прописывая каждый раз все эти дела в скрипте.
...
Рейтинг: 0 / 0
MS Excel/ Путь к исполняемому файлу с макросом.
    #39865184
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не очень понятно, что нужно, у меня два варианта, что вы хотите

1) Путь "D:\ZAGOTOVKA...." прописан в сотне разных мест макроса, а надо, чтобы в одной переменной хранилось, чтобы удобнее было менять (как вариант - в ячейке на листе)

2) Путь "D:\ZAGOTOVKA...." прописан в одном месте макроса, но жестко, а надо сделать так, чтобы появлялся диалог выбора пути при каждом запуске программы
...
Рейтинг: 0 / 0
MS Excel/ Путь к исполняемому файлу с макросом.
    #39865186
Фотография Мордор Держимордов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

Первый вариант. Но, без ячейки. Зачем задавать что то в ячейке? У меня есть этот файлик ЗАДАЧА.XLSM и он делает все свои операции в этой же папке что и он. Можно мне каким то образом вытащить путь где этот самый файлик (ЗАДАЧА.XLSM) лежит и использовать этот путь как переменную?
...
Рейтинг: 0 / 0
MS Excel/ Путь к исполняемому файлу с макросом.
    #39865187
booby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
есть еще один вариант:
авторДанный файл работает с файлами находящимися в той же папке что и он . Однако в самом макросе пути жестко привязаны
открыть ЗАДАЧА.XLSM, нажать
Alt-F11 затем ctrl-G
в окне immediate набрать:
Код: vbnet
1.
? thisworkbook.Path


нажать enter.
...
Рейтинг: 0 / 0
MS Excel/ Путь к исполняемому файлу с макросом.
    #39865188
Фотография Мордор Держимордов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мордор Держимордов,

Просто этот файл таскают туда сюда. У кого то он на сети, у кого то на ноутбуке. Пользователям прописывать путь тоже как то не доверяю. Должен же быть вариант чтобы вытащить путь к файлу с макросом как переменную?
Например у меня этот файл такой:
D:\ZAGOTOVKA\ЗАДАЧА.XLSM
соответственно переменная будет равна D:\ZAGOTOVKA\

или

C:\Users\user1\СОБИРАЕМ_ОТЧЕТ\ЗАДАЧА.XLSM
соответственно переменная будет равна C:\Users\user1\СОБИРАЕМ_ОТЧЕТ\
...
Рейтинг: 0 / 0
MS Excel/ Путь к исполняемому файлу с макросом.
    #39865189
Фотография Мордор Держимордов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
booby,


Ха! Спасибо! Вот круто! Спасибо большое! А как мне самому научиться? Книги какие посоветуете?
...
Рейтинг: 0 / 0
MS Excel/ Путь к исполняемому файлу с макросом.
    #39867439
Фотография Focha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мордор Держимордовbooby,


Ха! Спасибо! Вот круто! Спасибо большое! А как мне самому научиться? Книги какие посоветуете?

youtube там полно, просто море уроков.
...
Рейтинг: 0 / 0
MS Excel/ Путь к исполняемому файлу с макросом.
    #39870085
ldfanate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
автор однако есть потребность пользователям запускать его из разных мест, а не только с папки D:\ZAGOTOVKA как порописано в теле макроса, не прописывая каждый раз все эти дела в скрипте.

в начале макроса напишите чтото подобное, будет всегда по умолчанию с каталогом xlsm-книги работать.
Код: vbnet
1.
2.
3.
4.
5.
on error resume next
chdir thisworkbook.path
err.clear
chdrive left(thisworkbook.path,1)
on error goto 0
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / MS Excel/ Путь к исполняемому файлу с макросом.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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