Как подставлять год, автоматом

[valerij]

В макросе есть выражение

MyPath = "F:\Заявки\2008"  'Подставьте путь к папке содержащей папку с именами месяцев

и каждый год, "лезу" и меняю год в ручную.
Как, что бы автоматом, менялось??

[VictorM]

Private Sub Workbook_Open()
MyYear = Format(Date, "yyyy")
MyPath = "F:\Заявки\" & MyYear 'Подставьте путь к папке содержащей папку с именами месяцев
End Sub

[nilem]

MyPath = "F:\Заявки\" & Year(Date)

[IgorGO]

а данные за прошлый год уже не важны?
MyPath = "F:\Заявки\" & InputBox("год", "введите", Format(Date, "yyyy"))

[valerij]

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

а данные за прошлый год уже не важны?
MyPath = "F:\Заявки\" & InputBox("год", "введите", Format(Date, "yyyy"))

Нет, не важны, но запомню!!
Тут еще проблема.
Папки для нового года нет(Year(Date)), создаю так

MkDir "F:\Заявки\" & Year(Date)

но так можно один раз создать, повторно будет ошибка, как обойти MkDir?

[IgorGO]

On Error Resume Next
Dir ("F:\Заявки\" & Year(Date))
If Err > 0 Then MkDir ("F:\Заявки\" & Year(Date)): Err.Clear
On Error GoTo 0

[VictorM]

как обойти MkDir?

Смотрим ЗДЕСЬ

[valerij]

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

On Error Resume Next
Dir ("F:\Заявки\" & Year(Date))
If Err > 0 Then MkDir ("F:\Заявки\" & Year(Date)): Err.Clear
On Error GoTo 0

Игорь
Да, обходит, но чета не создает, поясню
Ставлю систем. дату 31-12-2010, а в F:\Заявки\" & Year(Date) есть папка 2010, папки 2011 нет, меняю систем. дату, на зад, запускаю твой макрос, папки 2011 нет.

VictorM
Я читал у Климова, сложно, для меня

[valerij]

Игорь, получилось, так, а почему, случайно как то вышло

On Error Resume Next
Dir ("F:\Заявки\" & Year(Date))
Dir 
If Err > 0 Then MkDir ("F:\Заявки\" & Year(Date)): Err.Clear
On Error GoTo 0

создал папку 2011
F:\Заявки\2011
даже так

On Error Resume Next
Dir 
If Err > 0 Then MkDir ("F:\Заявки\" & Year(Date)): Err.Clear
On Error GoTo 0

Что за данные, показывает?

Sub zxc()
On Error Resume Next
Dir
If Err > 0 Then MkDir "F:\Заявки\" & Year(Date): MsgBox Err(= 5): Err.Clear
On Error GoTo 0
MsgBox Err(= 0, ну тут понятно)
End Sub

[IgorGO]

вот так будет правильно:
On Error Resume Next
ChDir ("F:\Заявки\" & Year(Date))
If Err > 0 Then MkDir ("F:\Заявки\" & Year(Date)): Err.Clear
On Error GoTo 0