Импорт локальных проектов с подпроектами в корпоративное хранилище - Статьи TechNet - Россия (Pусский) - TechNet Wiki

Последовательность импорта в клиенте Project Professional 2010:
1. Пройти по всем з

2. Найденные файлы подпроектов сохранить на сервере проектов с сопоставлением ресурсов.
3. Сохранить мастер-проект на сервере с сопоставлением ресурсов.

VBA код для Project Professional 2010

Sub Import()
    Dim fName1, fName2, fName3, fName4 As String
    Dim SubProj1, SubProj2 As Subproject
    fName1 = ActiveProject.Name
    fName2 = Left$(fName1, InStrRev(fName1, ".") - 1)
    For Each SubProj1 In ActiveProject.Subprojects
        Application.FileOpenEx Name:=SubProj1.Path, ReadOnly:=False, FormatID:="MSProject.MPP"
        fName3 = Right$(SubProj1.Path, InStrRev(SubProj1.Path, "\") - 1)
        fName4 = Left$(fName3, InStrRev(fName3, ".") - 1)
        Application.FileSaveAs Name:="<>\" & fName4, FormatID:=""
        Application.FileCloseEx pjSave, True, False
    Next SubProj1
    Application.FileSaveAs Name:="<>\" & fName2, FormatID:=""
    Application.Publish
End Sub