Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Создать ярлык папки на VBA / 4 сообщений из 4, страница 1 из 1
11.11.2008, 14:48:27
    #35646825
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать ярлык папки на VBA
Здравствуйте!
Решил создать структуру папок в Excel-е.
Но, необходимо в папках положить ссылки (ярлыки) на другие папки, чтобы удобнее было упорядочить файлы.
Можно-ли средствами VBA создать ярлык указанной папки в другой указанной директории?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2008, 16:04:05
    #35647096
LeonM
LeonM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать ярлык папки на VBA
См.
wscript.shell
CreateShortcut
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2008, 16:54:21
    #35647275
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать ярлык папки на VBA
Спасибо!
Буду пробовать:
http://www.script-coding.info/WSH/WshShell.html#3.11.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2008, 16:59:31
    #35647290
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать ярлык папки на VBA
Код: plaintext
1.
2.
3.
4.
5.
6.
Set WshShell = CreateObject("WScript.Shell")
Set WshURLShortcut = WshShell.CreateShortcut("D:\local_ws\01.lnk")
WshURLShortcut.TargetPath = "D:\local_ws"
WshURLShortcut.Save
Set WshShell = Nothing
Set WshURLShortcut = Nothing

Всего делов-то!
Здорово!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Создать ярлык папки на VBA / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 427ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2180174]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 193ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 21ms
get tp. blocked users:
 1ms
others: 186ms
total:  427ms
x
x
Закрыть


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