Project.Open

Open a project.

Syntax Parameters Return value 
Sub Project.Open( _
    pathname As String)
 pathname [in]

The path to the project to open.

Type: String

This function does not return a value.

SVB Example

Creating a new project: 

Sub Main

    'Create the project through the application.
    Dim prj As Project
    Set prj = Application.NewProject

    'We will embed our documents in this project.
    'Specifically, we will only include spreadsheets, analyses, and results.
    prj.Options = scIncludeAnalysisResults Or scIncludeAnalyses Or scIncludeSpreadsheets Or scEmbed
    'Add all open items (that meet our filter's criteria).
    prj.AddAllOpenDocuments
    'Also add the 30PredictorsOfYield dataset.
    prj.AddDocument(Application.Open(Path & "\examples\datasets\30PredictorsOfYield.sta", True, False))
    'Save the project (change this to a path relative to your system).
    prj.SaveAs("c:\users\hcaulfield\Documents\StatsProject.spf")

End Sub