Método Application.FileSaveWorkspace (Project)

Salva uma lista de arquivos abertos e as definições atuais da caixa de diálogo Opções.

Sintaxe

expression. FileSaveWorkspace( _Name_ )

expressão Uma variável que representa um objeto Application.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Opcional	String	O nome do arquivo a ser criado. Se o nome for omitido, o Project solicitará o nome do arquivo.

Valor de retorno

Boolean

Exemplo

O exemplo a seguir salva o espaço de trabalho com base no nome do primeiro arquivo de projeto.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.