通过

Application.FileSaveWorkspace 方法 (Project)

  • 项目

保存一组打开的文件以及“选项”对话框中的当前设置。

语法

expression。 FileSaveWorkspace( _Name_ )

expression：表示“Application”对象的变量。

参数

名称 必需/可选 数据类型 说明
Name 可选 String 要创建的文件的名称。 如果省略了 名称 ，则 Project 会提示输入文件的名称。

返回值

Boolean

示例

以下示例将基于第一个项目文件的名称来保存工作环境。

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 
 
    FileSaveWorkspace WSName 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。