Compartilhar via

Objeto SharedWorkspaceFile (Office)

  • Artigo

O objeto SharedWorkspaceFile representa um arquivo salvo em um espaço de trabalho de documento compartilhado.

Observação

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

Comentários

Use o objeto SharedWorkspaceFile para gerenciar documentos e arquivos salvos em um espaço de trabalho compartilhado.

Exemplo

Embora o objeto SharedWorkspaceFile tem uma propriedade de URL que retorna o caminho completo do arquivo e o nome de arquivo, ele não tem uma propriedade de nome de arquivo. Use uma função simples para extrair o nome do arquivo da URL do arquivo como no exemplo a seguir. Uma função de suporte adicional decodifica espaços entre caracteres na URL.

Private Function FilenameFromURL(FileURL As String) As String 
    Dim intLastSeparator As Integer 
    FileURL = URLDecode(FileURL) 
    intLastSeparator = InStrRev(FileURL, "/") 
    FilenameFromURL = Right(FileURL, Len(FileURL) - intLastSeparator) 
End Function 
 
Private Function URLDecode(URLtoDecode As String) As String 
    URLDecode = Replace(URLtoDecode, "%20", " ") 
End Function

Use a propriedade Item (index) da coleção SharedWorkspaceFiles para retornar um objeto SharedWorkspaceFile específico. Use as propriedades CreatedBy, CreatedDate, ModifiedBy e ModifiedDate para retornar informações sobre o histórico de cada arquivo. O exemplo a seguir retorna o número de arquivos no workspace compartilhado e as informações sobre cada arquivo, usando as funções de suporte mostradas anteriormente.

    Dim swsFile As Office.SharedWorkspaceFile 
    Dim strFileInfo As String 
    strFileInfo = "The shared workspace contains " & _ 
    ActiveWorkbook.SharedWorkspace.Files.Count & " File(s)." & vbCrLf 
    For Each swsFile In ActiveWorkbook.SharedWorkspace.Files 
        strFileInfo = strFileInfo & FilenameFromURL(swsFile.URL) & vbCrLf & _ 
            " - URL: " & swsFile.URL & vbCrLf & _ 
            " - Created by: " & swsFile.CreatedBy & vbCrLf & _ 
            " - Created on: " & swsFile.CreatedDate & vbCrLf & _ 
            " - Modified by: " & swsFile.ModifiedBy & vbCrLf & _ 
            " - Modified on: " & swsFile.ModifiedDate & vbCrLf 
    Next 
    MsgBox strFileInfo, vbInformation + vbOKOnly, _ 
        "Files in Shared Workspace" 
    Set swsFile = 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.