Установка переменной для имени подпапки на основе выбора пользователя

Question

Мой код предлагает пользователю выбрать файл.Я хочу установить переменную для имени папки расположения файла, но файл находится в подпапке.

У меня есть этот код, чтобы открыть файл.

fileAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.csv), _ 
*.csv", Title:="Select a file")
If fileAndPath = False Then Exit Sub

Этопуть к файлу C: \ Расположение магазина \ Сотрудники \ Контактная информация \ Номера телефонов \ 11373

Я хочу извлечь деталь 11373 и сохранить ее как переменную

Answer 1

Хорошо, значит вы хотите установить папку по умолчанию для getOpenFileName.Предшествуйте getOpenFileName с ChDir "D:\Test".Если диск отличается от C:, то перед ChDir указывается ChDrive "DriveLetter:"

Sub test()
ChDrive "D:"
Application.DefaultFilePath = "D:\Test"

fileAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.csv),*.csv", Title:="Select a file")
If fileAndPath = False Then
Exit Sub
End If
folderPath = Left(fileAndPath, InStrRev(fileAndPath, "\") - 1)
MsgBox (Mid(folderPath, InStrRev(folderPath, "\") + 1))
End Sub