2014-10-21 8 views
0

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

example Windows("CoventryPMPM102014.xlsx").Activate 

в следующем месяце название будет «CoventryPMPM112014.xlsx» как я могу получить его, чтобы активировать книгу, пока его как «CoventryPMPM *»

Я попытался Окна («CoventryPMPM *»). Активировать но не работает, как я могу сделать это более динамичным

+0

Вероятно, проще всего цикла 'коллекции workbooks' и сравнить имя для вашего шаблона с' Like' оператора –

ответ

0

Рассмотрим:

Sub dural() 
    Dim st As String 
    st = Format(Date, "mmyyyy") 
    Windows("CoventryPMPM" & st & ".xlsx").Activate 
End Sub 
+0

нет подстановочного знака, который я могу использовать для Windows («CoventryPMPM * .xlsx»). Активировать –

+0

Не в этом контексте. –