次の方法で共有

Application.FileSaveWorkspace メソッド (Project)

  • [アーティクル]

開いているファイルの一覧および [オプション] ダイアログ ボックスの現在の設定内容を保存します。

構文

式。 FileSaveWorkspace( _Name_ )

式Application オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
名前 省略可能 String 作成するファイルの名前。 名 を省略すると、プロジェクトは、ファイル名のメッセージが表示されます。

戻り値

ブール型 (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 のサポートおよびフィードバックを参照してください。