путь к файлу на каталог выше

[Magnetic Air]

не сработало... мож чего-то не так прописал?

Const PEI = "Отчет "
 Const DZ = "ДЗ_2011.xls"

Sub ОтчетДЗКЭ()
    
    Workbooks.Add
    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\ежедневно\" & PEI & Date & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    
    Application.ScreenUpdating = False
    
'    On Error GoTo Oshibka8
    
        Workbooks.Open CreateObject("Scripting.FileSystemObject").GetFile( _
        ThisWorkbook.Name).ParentFolder.ParentFolder.ParentFolder.ParentFolder & "\продажи\ДЗ\" & DZ
        ActiveSheet.Copy Before:=Workbooks(PEI & Date & ".xls").Sheets(1)
    Workbooks(DZ).Activate
    ActiveWindow.Close
    Workbooks(PEI & Date & ".xls").Activate
    ActiveSheet.Name = "ДЗ на " & Date
    ActiveSheet.Tab.ColorIndex = 5
    
'    ОтчетОстатки
    
    Exit Sub

'Oshibka8:
'    Err.Clear
'    MsgBox "ДЗ_2011 не найден"
'    ОтчетОстатки
'    Exit Sub
    
End Sub

[IgorGO]

а Вы не схраняйте файл, не открывайте новый, закомментируте эти фрагметы а просто MSGBOXом выведите строки на экран (где Вы имя файла формируете) и смотрите что там не так, как планировалось.

[Magnetic Air]

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

а Вы не схраняйте файл, не открывайте новый, закомментируте эти фрагметы а просто MSGBOXом выведите строки на экран (где Вы имя файла формируете) и смотрите что там не так, как планировалось.

т.е. запихать строку:

Workbooks.Open CreateObject("Scripting.FileSystemObject").GetFile( _
        ThisWorkbook.Name).ParentFolder.ParentFolder.ParentFolder & "\продажи\ДЗ\" & DZ

в msgbox?
выдал ошибку... или я Вас неправильно понял...

[IgorGO]

msgbox ThisWorkbook.Path & "\ежедневно\" & PEI & Date & ".xls"

[Magnetic Air]

получается, что нужно "плясать" от файла PEI & Date & ".xls" ???

[IgorGO]

)))
Вам виднее что, где лежит и как от него добраться до нужного файла.
успехов!

[Magnetic Air]

как только не пробовал... и больше склоняюсь к мнению что команда

Workbooks.Open CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.Name).ParentFolder.ParentFolder.ParentFolder

не работает... а жаль

[IgorGO]

что команда ... не работает... а жаль

серьезные умозаключения.
а вот это работало:
Workbooks.Open CreateObject("Scripting.FileSystemO bject").GetFile(ThisWorkbook.Name). ParentFolder.ParentFolder.ParentFol der.ParentFolder & "\продажи\ДЗ\ДЗ_2011.xls"
ясен-красен все стартует с ThisWorkbook.Name и с каталога в котором ThisWorkbook находится. и это код помещенный в одну книгу даст один результат, а в другую - даст другой а скорее всего ошибку, потому что там нет такой структуры каталогов.

я склоняюсь к мысли, что Вы не совсем понимаете, что пишете.

[Magnetic Air]

А я и не отрицаю, что не совсем понимаю, поэтому в сообщении 4 прошу помощи, а вместо того, чтобы дать конкретный ответ Вы начали от него уходить, играя со мной в "шарады". Учитывая то, что изначально команда пришла не от Вас - у меня есть повод утверждать, что Вы не компетентны в этом вопросе. Извините.

[IgorGO]

Вы не компетентны в этом вопросе

вот тут крыть нечем, с прискорбием добавлю что не только в этом...