пятница, 3 сентября 2010 г.

Выбор папки в макросах excel

На просторах интернета есть множество способ вызова окошка для выбора папки сохранения (например большого количества автоматически создаваемых файлов), но все они какие-то громоздкие и неудобные, поэтому предлагаю самое простое решение.

Необходимо просто записать эту функцию в самом начале (до объявления макроса Sub ...())

Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Выберите папку куда сохранить документы..."
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function


' fldr - выбранная папка