
I've tried to do some Google searching, but everything I found is for an older version of Office/Project. It works great until I get to: For SubProjectIndex = 0 To - 1 ' Set SubProject = ProjectFile.Subprojects(SubProjectIndex) MsgBox "Unable to open the source project file '" & ProjectPath & "'."įor Each SubProjectFile In ProjectFile.Subprojects Set ProjectFile = ProjectApp.ActiveProject If ProjectApp.FileOpenEx(Name:=ProjectPath, ReadOnly:=True) Then If ProjectPath = EachProject.FullPath Then Set ProjectApp = New MSProject.Applicationįor Each EachProject In ProjectApp.Projects Set ProjectApp = GetObject(, "MSProject.Application") Here is the code I have so far: Sub ExtractFromMsProject(ProjectPath As String)ĭim SubProjectFile As MSProject.SubProject

After confirmation a validation report, including a summary of the project that has been imported, is displayed on the screen. The system performs a data integrity verification to ensure that the data is not corrupt.

The Import Project From MS Project dialog opens.įigure 1: Import Project From MS Project Dialog From the New submenu Select Import from MS-Project.To import the XML file into AdaptiveWork do the following: zip files and then uploaded into AdaptiveWork, this will ensure a speedier upload. XML files larger than 10MB should first be compressed into. Once you have saved your project in MS-Project as an XML file, you can upload it to the server.
