Открыть из макроса папку, в которой находится файл с этим макросом

@Artem93z · Регистрация: 26.04.2014

Студворк — интернет-сервис помощи студентам

Visual Basic

Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.InitialFileName = "*.*"
.Title = "ВЫБЕРИТЕ ПРОМЕЖУТОЧНУЮ БАЗУ!!!"

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

@The_Prist · 12.02.2015, 13:48

Visual Basic

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.InitialFileName = ThisWorkbook.Path & "\*.*"
.Title = "ВЫБЕРИТЕ ПРОМЕЖУТОЧНУЮ БАЗУ!!!"
.Show
End With

@Hugo121 · 12.02.2015, 14:12

Visual Basic

Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", Optional ByVal InitialPath As String = "c:\") As String
    GetFolderPath = "": PS = Application.PathSeparator
    With Application.FileDialog(msoFileDialogFolderPicker)
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        If .Show = -1 Then GetFolderPath = .SelectedItems(1): If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
    End With
End Function

Вызывать с ThisWorkbook.Path:

Visual Basic

1	MsgBox GetFolderPath(, ThisWorkbook.Path & "\")

Опции темы