Objeto SharedWorkspaceFolders (Office)

Uma coleção de objetos SharedWorkspaceFolder no espaço de trabalho compartilhado atual.

Exemplo

Use a propriedade Folders do objeto SharedWorkspace para retornar uma coleção SharedWorkspaceFolders.

    Dim swsFolders As Office.SharedWorkspaceFolders 
    Set swsFolders = ActiveWorkbook.SharedWorkspace.Folders 
    MsgBox "There are " & swsFolders.Count & _ 
        " folder(s) in the current shared workspace.", _ 
        vbInformation + vbOKOnly, _ 
        "Collection Information" 
    Set swsFolders = Nothing 

Confira também

• Membros do objeto SharedWorkspaceFolders
• Referência do modelo de objeto

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.