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

Вход

Регистрация

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

 

= Мир MS Excel/имя папки через FolderPicker - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » имя папки через FolderPicker (Макросы/Sub)
имя папки через FolderPicker
Asretyq Дата: Четверг, 18.10.2018, 16:29 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 153
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый вечер, ковырялся, ковырялся да не выковырялся

Данный код выдает путь папки, а мне надо чтобы выдавал имя папки

[vba]
Код
range("A1").value = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
[/vba]
 
Ответить
СообщениеДобрый вечер, ковырялся, ковырялся да не выковырялся

Данный код выдает путь папки, а мне надо чтобы выдавал имя папки

[vba]
Код
range("A1").value = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
[/vba]

Автор - Asretyq
Дата добавления - 18.10.2018 в 16:29
_Boroda_ Дата: Четверг, 18.10.2018, 16:41 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13514
Репутация: 5529 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
_
Вы уверены, что
Данный код выдает путь папки
range("A1").value = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
?

Так нужно?
[vba]
Код
With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    pp_ = .SelectedItems(1)
End With
Range("A1").Value = Mid(pp_, InStrRev(pp_, "\") + 1)
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение_
Вы уверены, что
Данный код выдает путь папки
range("A1").value = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
?

Так нужно?
[vba]
Код
With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    pp_ = .SelectedItems(1)
End With
Range("A1").Value = Mid(pp_, InStrRev(pp_, "\") + 1)
[/vba]

Автор - _Boroda_
Дата добавления - 18.10.2018 в 16:41
Asretyq Дата: Пятница, 19.10.2018, 07:01 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 153
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, Спасибо, все работает
 
Ответить
Сообщение_Boroda_, Спасибо, все работает

Автор - Asretyq
Дата добавления - 19.10.2018 в 07:01
Мир MS Excel » Вопросы и решения » Вопросы по VBA » имя папки через FolderPicker (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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