Проводник в VBA EXCEL

Konstantin_ Гость	#1 01.07.2010 10:33:28 Коллеги, помогите сделать проводник. Т.е нужно что бы пользователь мог выбрать целевую папку из дерва каталогов. Заранее спасибо!

Guest

Гость

01.07.2010 10:43:31

Прошу прщение за краткость :-) Тема создалась только с 4-го раза, каждый раз она становилась короче.

.FileDialog - выбор файла, а мне нужен выбор каталога

Т.е мой макрос обрабатывет все файлы в подкаталогах целевой папки, мне нужно передать в процедуру путь к начальной папке

Guest

Гость

01.07.2010 10:59:34

Сам нашел Это, может кому надо:

Function BrowseFolder(Optional Caption As String, Optional InitialFolder As String) As String

Dim SH As Shell32.Shell
Dim F As Shell32.Folder

Set SH = New Shell32.Shell
Set F = SH.BrowseForFolder(0&, Caption, BIF_RETURNONLYFSDIRS, InitialFolder)
If Not F Is Nothing Then
BrowseFolder = F.Items.Item.Path
End If

End Function

Sub Choosr_Folder()
Dim FName As String
FName = BrowseFolder("Выбрать папку", "D:\")
If FName = vbNullString Then
Debug.Print "Выбрать папку."
Else
Debug.Print "Выбрать папку: " & FName
End If
End Sub

(Tools -> References) Microsoft Shell Controls and Automation

Guest

Гость

01.07.2010 12:17:36

{quote}{login=The_Prist}{date=01.07.2010 11:25}{thema=Re: Re: }{post}{quote}{login=}{date=01.07.2010 10:43}{thema=Re: }{post}Прошу прщение за краткость :-) Тема создалась только с 4-го раза, каждый раз она становилась короче.

.FileDialog - выбор файла, а мне нужен выбор каталога{/post}{/quote}А Вы попробовали? Вы аргументы метода правильно прочитали?
application.FileDialog(msoFileDialogFolderPicker)

msoFileDialogFolderPicker - выбор именно папок - FolderPicker.

Так что прежде чем опровергать - советую сначала попробовать или почитать справку по предлагаемым вариантам.{/post}{/quote} Сорри, я поробовал пример из справки, как то не обратил внимания на аргумент. Спасибо!

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#5 01.07.2010 20:21:28 Можете использовать функцию GetFolderPath отсюда: http://excelvba.ru/code/GetFileOrFolderPath Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему