Путь к файлу объявить константой.

[valerij]

Привет спецам!!!
Подскажите у меня в модулях, листах, часто встречается путь к файлу.
Можно где нить его объявить константой?
Вот путь, на сег. день.
H:\Док_Офис\Офисный Учет\2014\Октябрь\На_ХЗ.xls
и
H:\Док_Офис\Офисный Учет\2014\4_Квартал\4_КВ.xls

Синим - меняемые значения.
Спасибо.

[EducatedFool]

его объявить константой

Синим - меняемые значения.

Валера, константа, и меняемое значение (переменная) - противоположные по сути понятия...

Неужели сложно раз в месяц залезть в код, и во всех местах поменять пути к файлам?

[IgorGO]

Const RootPath As String = "H:\Док_Офис\Офисный Учет\"

Function MonthFileName(Optional dt As Date = 1) As String
 If dt = 1 Then dt = Date
 MonthFileName = RootPath & Format(dt, "YYYY") & "\" & Format(dt, "[$-419]MMMM") & "\На_ХЗ.xls"
End Function

Function QuarterFileName(Optional dt As Date = 1) As String
 If dt = 1 Then dt = Date
 QuarterFileName = RootPath & Format(dt, "YYYY") & "\" & Int((Month(dt) - 1) / 3) + 1 & "_Квартал\4_КВ.xls"
End Function

[RAN.]

   myAddress = "ОТЧЕТЫ_" & Format(myDate, "YYYY") & "_год\" & Format(myDate, "q") & "_квартал\"

[valerij]

я ~ понял, буду разбираться.

Спасибо.

[IgorGO]

Валера, не надо разбираться - пользуйся.

[valerij]

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

Валера, не надо разбираться - пользуйся.

Неполучатся, однако!!!
Нашёл ошибку
Так всё ОК

Const RootPath As String = "='H:\Док_Офис\Офисный Учет\"

[valerij]

Как мне в цикле подставить константы?

Const RootPath As String = "='H:\Док_Офис\Офисный Учет\"
Function MonthFileName(Optional dt As Date = 1) As String
 If dt = 1 Then dt = Date
 MonthFileName = RootPath & Format(dt, "YYYY") & "\" & Format(dt, "[$-419]MMMM") & "\[На_ХЗ.xls]Sheet1'!"
End Function

Private Sub CreateList()
Application.EnableEvents = False
    Application.ScreenUpdating = False

For inext = 2 To 288
    With Cells(inext, 3)
        .FormulaR1C1 = _
            "='H:\Док_Офис\Офисный Учет\2014\Октябрь\[На_ХЗ.xls]Sheet1'!R[-1]C2"
        .Value = .Value
    End With
    With Cells(inext, 5)
        .FormulaR1C1 = _
            "='H:\Док_Офис\Офисный Учет\2014\Октябрь\[На_ХЗ.xls]Sheet1'!R[-1]C4"
        .Value = .Value
    End With
    With Cells(inext, 8)
        .FormulaR1C1 = _
            "='H:\Док_Офис\Офисный Учет\2014\Октябрь\[На_ХЗ.xls]Sheet1'!R[-1]C1"
        .Value = .Value
    End With
Next

Всё нашёл как. Всего три строки!!

Cells(inext, 3).FormulaR1C1 = MonthFileName & "R[-1]C2"
Cells(inext, 5).FormulaR1C1 = MonthFileName & "R[-1]C4"
Cells(inext, 8).FormulaR1C1 = MonthFileName & "R[-1]C1"

И ни какие массивы(Array) не нужны.
Игорь вот ругал ты меня, а я сам решил, кавычки нужны были.

[IgorGO]

Молодец!

Валера, ты растеш... над собой, но медленно

[valerij]

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

Молодец!

Валера, ты растеш... над собой, но медленно

Дякую!!!

В моём возрасте уже под 70-к торопится нельзя!!!

Это вам молодым всё бегом!!!

Если б молодость знала, а старость могла!!!