title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
---|---|---|---|---|---|---|---|---|
SharedWorkspaceFolders object (Office) |
vbaof11.chm269000 |
|
|
a9020edc-f199-6bab-75d1-c2bdc2a547d3 |
01/24/2019 |
medium |
A collection of the SharedWorkspaceFolder objects in the current shared workspace.
Note
Beginning with Microsoft Office 2010, this object or member has been deprecated and should not be used.
Use the Folders property of the SharedWorkspace object to return a SharedWorkspaceFolders collection.
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
[!includeSupport and feedback]