通过

Application.FileSaveWorkspace Method

  • 项目
Project Developer Reference

Saves a list of open files and the current settings in the Options dialog box.

Syntax

expression.FileSaveWorkspace(Name)

expression   A variable that represents an Application object.

Parameters

Name Required/Optional Data Type Description
Name Optional String The name of the file to create. If Name is omitted, Microsoft Office Project 2007 prompts for the file name.

Return Value
Boolean

Example
The following example saves the workspace based upon the name of the first project file.

Visual Basic for Applications 
  Sub SaveWorkspaceByProjectName()

Dim WSName As String

If InStr(Projects(1).Name, ".") Then
    WSName = Left$(Projects(1).Name, Len(Projects(1).Name) - 1) & "W"
Else
    WSName = Projects(1).Name & ".MPW"
End If

<strong class="bterm">FileSaveWorkspace</strong> WSName



End Sub

See Also