имя папки через FolderPicker

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

имя папки через FolderPicker (Макросы/Sub)

имя папки через FolderPicker

Asretyq

Дата: Четверг, 18.10.2018, 16:29 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

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

[vba]

Код

range("A1").value = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

[/vba]

Ответить

_Boroda_

Дата: Четверг, 18.10.2018, 16:41 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

_
Вы уверены, что

Цитата Asretyq, 18.10.2018 в 16:29, в сообщении № 1 ()

Данный код выдает путь папки
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

Ответить

Asretyq

Дата: Пятница, 19.10.2018, 07:01 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

_Boroda_, Спасибо, все работает

Ответить

имя папки через FolderPicker (Макросы/Sub)

Страница 1 из 1
1