Значение переменной - имя папки

[valerij]

Это возможно реализовать?
Вот мой путь к .xls файлу:
H:\Док_Офис\2014\3_Квартал

Сейчас я в ручную правлю каждый год один раз
Sheets(ii).Range("a3").Formula = am & "/1/2014"

Хочу автоматом определять год, системой - не подходит в 2014 г. взглянуть, что было в 2012...

А вот если переменная отвечающая за год в файле, будет = имени папки(2012, 2013,2014...) то вопрос решен.

Как так сделать?

Спасибо.

[Serge_Bliznykov]

valerij, очень много параметров не универсальных, которые только Вы можете знать.

Но, может быть, Вас так устроит?

Sub ShowYearFromFolder()
 Dim sFName As String, sFullName As String, sYear As String, P%
 Dim Arr() As String
 sFName = ActiveWorkbook.Name
 sFullName = ActiveWorkbook.FullName
 sYear = ""
 If InStr(sFullName, sFName) > 1 Then
   P = InStr(sFullName, sFName)
   Arr = Split(Trim(Mid(sFullName, 1, P - 2)), "\")
   sYear = Trim(Arr(UBound(Arr)))    ' считаем, что год - это последний параметр в имени папки
   MsgBox "sYear = " & sYear
 Else
   MsgBox "не удалось выделить год из полного пути к файлу"
 End If
 
End Sub

разумеется, всё можно записать короче и без такого количество переменных.
я специально пошагам разложил, чтобы наглядней/понятней было, где, что и как получается...

[Hugo121]

Sheets(ii).Range("a3").Formula = am & "/1/" & переменная

[IgorGO]

очень много параметров не универсальных

Сергей, это отличительная черта стиля программирования Валерия: чтобы прицельно попасть в нужный месяц, квартал, год (иногда - в нужную ячейку) - он просто переписывает незначительные части кода, а так, все остальное - РАБОТАЕТ КАК ЧАСИКИ!!!
первого числа только пробежаться по макросам, поднастроить все и... целый месяц куришь

[valerij]

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

valerij, очень много параметров не универсальных, которые только Вы можете знать.

Это какие, пример дайте, бо я так не пойму, вроде же VBA.

Но, может быть, Вас так устроит?

Попробую разобраться, но только у вас нет ещё одной промежуточной папки в которой находится файл.
У вас такой путь подразумевается
H:\Док_Офис\2014\
а у меня то такой и менять его не могу
H:\Док_Офис\2014\Х_Квартал
(Х_Квартал - 1,2,3,4)

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

Sheets(ii).Range("a3").Formula = am & "/1/" & переменная

А значение переменная??

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

Сергей, это отличительная черта стиля программирования Валерия:

не неси псаки!!!

[IgorGO]

А значение переменная??

значение переменная - переменное, с каждым годом все больше и больше

переменная = Year(Now)

[valerij]

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

значение переменная - переменное, с каждым годом все больше и больше

переменная = Year(Now)

Игорь, чему будет равна переменная в 2015 году, если я открою файл за 2014 год?
Serge_Bliznykov - всё правильно понял.

[Serge_Bliznykov]

а у меня то такой и менять его не могу
H:\Док_Офис\2014\Х_Квартал

просто исправьте в моём примере, укажите,
что вам нужен не последний элемент папки, а предпоследний:

sYear = Trim(Arr(UBound(Arr) -1 ))    ' считаем, что год - это ПРЕДпоследний параметр в имени папки

[Hugo121]

Насчёт переменной - я вот совершенно не понял откуда собираетесь её брать, что это будет за папка/каталог... Может будете её в inputbox забивать, а почему бы и нет?
Поэтому просто переменная.
Но если что - как выковырять её из полного пути уже рассказали до меня.

[valerij]

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

просто исправьте в моём примере,

Теперь именно так, а расшифруйте мне это выражение?
P = InStr(sFullName, sFName): MsgBox P
и почему Р = 20?
и
почему : MsgBox Arr - ОШИБКА?

Спасибо.

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

Насчёт переменной - я вот совершенно не понял откуда собираетесь её брать, что это будет за папка/каталог... Может будете её в inputbox забивать, а почему бы и нет?
Поэтому просто переменная.
.

Из пути, это как бы всегда константа не зависит от системной даты.
Забить в inputbox - значит при открытии файла каждый раз будет запрашивать значение?