Compartilhar via

Método SharedWorkspaceFolders.Add (Office)

  • Artigo

Adiciona uma pasta à biblioteca de documentos em um espaço de trabalho compartilhado. Retorna um objeto SharedWorkspaceFolder.

Observação

A partir do Microsoft Office 2010, este objeto ou membro foi preterido e não deve ser usado.

Sintaxe

expressão. Adicionar (FolderName, ParentFolder)

expressão Obrigatório. Uma variável que representa um objeto SharedWorkspaceFolders.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
FolderName Obrigatório String O nome da pasta a ser adicionada ao espaço de trabalho compartilhado atual.
ParentFolder Opcional SharedWorkspaceFolder A subpasta na qual a nova pasta será inserida ou a pasta principal da biblioteca de documentos no espaço de trabalho compartilhado. Adicione o arquivo à pasta principal da biblioteca de documentos deixando esse argumento opcional vazio.

Exemplo

Este exemplo adiciona uma nova pasta à coleção de pastas do espaço de trabalho compartilhado.

    Dim swsFolder As Office.SharedWorkspaceFolder 
    Set swsFolder = ActiveWorkbook.SharedWorkspace.Folders.Add("MyNewFolder") 
    MsgBox "New folder: " & swsFolder.FolderName, _ 
        vbInformation + vbOKOnly, _ 
        "New Folder in Shared Workspace" 
    Set swsFolder = Nothing

Confira também

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.