Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Получить обрезанный адрес файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Получить обрезанный адрес файла (Макросы/Sub)
Получить обрезанный адрес файла
Tavlar Дата: Пятница, 12.08.2022, 07:14 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте.
Работаю с файлами на Яндекс диске.
Получаю адрес книги при помощи команды
[vba]
Код
ActiveWorkbook.Path
[/vba]
Выдает адрес C:\Users\User\YandexDisk-username\Папка1\Папка2
Как бы мне получить адрес C:\Users\User\YandexDisk-username, т.е. корень Яндекс диска? После данного адреса какая папка будет не известно
 
Ответить
СообщениеЗдравствуйте.
Работаю с файлами на Яндекс диске.
Получаю адрес книги при помощи команды
[vba]
Код
ActiveWorkbook.Path
[/vba]
Выдает адрес C:\Users\User\YandexDisk-username\Папка1\Папка2
Как бы мне получить адрес C:\Users\User\YandexDisk-username, т.е. корень Яндекс диска? После данного адреса какая папка будет не известно

Автор - Tavlar
Дата добавления - 12.08.2022 в 07:14
Pelena Дата: Пятница, 12.08.2022, 08:45 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 18556
Репутация: 4203 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте.
Если правильно поняла
Код
=ЛЕВСИМВ(A1;ПОИСК("#";ПОДСТАВИТЬ(A1;"\";"#";4)))


ой, надо же макросом, сорри
[vba]
Код
Sub www()
    Dim spl, addr As String
    spl = Split(ActiveWorkbook.Path, "\")
    ReDim Preserve spl(3)
    addr = Join(spl, "\")
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Если правильно поняла
Код
=ЛЕВСИМВ(A1;ПОИСК("#";ПОДСТАВИТЬ(A1;"\";"#";4)))


ой, надо же макросом, сорри
[vba]
Код
Sub www()
    Dim spl, addr As String
    spl = Split(ActiveWorkbook.Path, "\")
    ReDim Preserve spl(3)
    addr = Join(spl, "\")
End Sub
[/vba]

Автор - Pelena
Дата добавления - 12.08.2022 в 08:45
Tavlar Дата: Пятница, 12.08.2022, 09:33 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, благодарю, все работает
 
Ответить
СообщениеPelena, благодарю, все работает

Автор - Tavlar
Дата добавления - 12.08.2022 в 09:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Получить обрезанный адрес файла (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!