Set wb = GetObject(file)
         If wb Is Nothing Then Debug.Print "Íå óäàëîñü çàãðóçèòü ôàéë " & file: GoTo NextFile
         Set sh = wb.Worksheets(1)
         Set ra = sh.Range("A12").EntireColumn.Cells(Rows.Count).End(xlUp)
         MainLine = ra.Row + 1
         Set ra = sh.Range(StartAdress$)
         If ra Is Nothing Then Debug.Print "Íå óäàëîñü ïîëó÷èòü íà÷àëî ïðîåêòà èç ôàéëà " & _
              file: Debug.Print "Ïåðâàÿ ÿ÷åéêà: " & StartAdress$: GoTo CloseFile
         StartProject = ra.Value
         Line = 2
         Mess = Worksheets(3).Cells(Line, 5).Text
         Dlit = Worksheets(3).Cells(Line, 6).Value
         While Mess <> ""
             sh.Cells(MainLine, 1).Value = StartProject + Dlit
             StartProject = StartProject + Dlit
             sh.Cells(MainLine, 2).Value = Mess
             sh.Cells(MainLine, 4).Value = 1
             MainLine = MainLine + 1
             Line = Line + 1
             Mess = Worksheets(3).Cells(Line, 5).Text
             Dlit = Worksheets(3).Cells(Line, 6).Value
         Wend
         wb.Save

CloseFile:
        
         wb.Close False