Método SharedWorkspaceFiles.Add (Office)
Adiciona um arquivo à biblioteca de documentos em um espaço de trabalho compartilhado. Retorna um objeto SharedWorkspaceFile.
Observação
A partir do Microsoft Office 2010, este objeto ou membro foi preterido e não deve ser usado.
Sintaxe
expressão. Adicionar (FileName, ParentFolder, OverwriteIfFileAlreadyExists, KeepInSync)
expressão Obrigatório. Uma variável que representa um objeto SharedWorkspaceFiles.
Parâmetros
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
FileName | Obrigatório | String | O caminho e o nome do arquivo a serem adicionados ao workspace compartilhado atual. |
ParentFolder | Opcional | SharedWorkspaceFolder | A subpasta na qual o arquivo será inserido 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. |
OverwriteIfFileAlreadyExists | Opcional | Boolean | True para substituir um arquivo existente pelo mesmo nome. O padrão é False. |
KeepInSync | Opcional | Boolean | True para manter a cópia local do documento é sincronizada com a cópia no espaço de trabalho compartilhado. Padrão é False. |
Exemplo
Este exemplo adiciona um novo arquivo à coleção de arquivos do espaço de trabalho compartilhado.
Dim swsfile As Office.SharedWorkspaceFile
Set swsfile = ActiveWorkbook.SharedWorkspace.Files.Add( _
"C:\MyWorkbook.xls", _
, True, True)
MsgBox "New file URL: " & swsfile.URL, _
vbInformation + vbOKOnly, _
"New File in Shared Workspace Files"
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de