Указать папку по умолчанию

[tae1980]

Использую для выбрал файл для загрузки эту строчку

res = Application.GetOpenFileName(FileFilter, , Title, , MultiSelect)

Если выполнить её сразу после открытия книги, всегда по умолчанию открывается "Мои документы". Если совершить какую либо операция с диском (даже просто открыть и закрыть окно "сохранить как"), то эта строчка открывает последнюю активную папку.
Можно в этом случае указать папку по умолчанию? Меня устроит что бы всегда открывалась папка размещения текущего файла.

[Aent]

Перед вызовом диалога

ChDir ThisWorkbook.Path

В общем случае надо использовать API вызов SetCurrentDirectory

Declare Function SetCurrentDirectory Lib 'kernel32' _
    Alias 'SetCurrentDirectoryA' (ByVal lpPathName As String) As Long
 
Function ChWorkingDir(pathname As String) As Long
    ChWorkingDir = SetCurrentDirectory(pathname)
End Function
 
Sub SelectFile()
  If ChWorkingDir('\MyServer') = 0 Then
    MsgBox 'Сетевой ресурс не доступен...', vbCritical, ''
  Else
    CorrBookSource = Application.GetOpenFilename(Title:='Выбор файла', MultiSelect:=False)
    MsgBox CorrBookSource
  End If
End Sub

[EducatedFool]

Воспользоваться поиском религия не позволяет?
http://excelvba.ru/code/GetFileOrFolderPath

[tae1980]

Сообщение от EducatedFool

Воспользоваться поиском религия не позволяет?
http://excelvba.ru/code/GetFileOrFolderPath

Это видел, перенес в полном составе к себе в коллекцию.
Но в данных процедурах открытие происходит не много по другому. В частности пункт "Имя файла" ведет себя как-то странно, при выборе файла мышкой, имя выбранного файла туда не переноситься.

[tae1980]

Сообщение от Aent

Перед вызовом диалога

ChDir ThisWorkbook.Path

Спасибо.
Если я правильно понял, то перед строчкой нужно дать команду вида:

ChDir ChWorkingDir('\MyServer')

[tae1980]

Сообщение от Aent

Перед вызовом диалога

ChDir ThisWorkbook.Path

В общем случае надо использовать API вызов SetCurrentDirectory

Разобрался. Понял - упорно туплю...