Office) (SharedWorkspace 物件

  • 發行項

Microsoft Word 中Document物件的SharedWorkspace屬性、Microsoft Excel 中的Workbook物件和 Microsoft PowerPoint 中的Presentation物件會傳回SharedWorkspace物件，可讓開發人員將使用中檔新增至 SharePoint 網站，以及管理共用工作區網站中的其他物件。

注意事項

自 Microsoft Office 2010 起，這個物件或成員已被取代且不應該再使用。

註解

使用 SharedWorkspace 物件可將使用中的 Word、Excel 或 PowerPoint 檔新增至伺服器上的 SharePoint 檔工作區網站，以利用工作區的共同作業功能，或從工作區網站中斷連線或移除檔。 使用 SharedWorkspace 物件的集合來管理與共享檔相關聯的檔案、資料夾、連結、成員和工作。

SharedWorkspace 物件模型會提供文件儲存工作區中。 SharedWorkspace 物件的屬性 文件 、 活頁簿 及 簡報 不會傳回 Nothing 時未共用文件。 使用 SharedWorkspace 物件的 已連接 屬性來判斷是否將使用中文件是事實上儲存在與連線到共用工作區。

使用者必須使用 SharedWorkspace 物件階層中的物件、 屬性及方法的適當權限。

若要管理文件及檔案儲存在共用工作區中使用 SharedWorkspaceFiles 集合，可透過 SharedWorkspace 物件的 Files 屬性進行存取。

使用 SharedWorkspaceFolders 集合，可透過 SharedWorkspace 物件的 Folders 屬性進行存取管理共用工作區主要文件庫資料夾中的子資料夾。

使用 SharedWorkspaceLinks 集合，可透過 SharedWorkspace 物件的 Links 屬性進行存取管理其他文件及共用工作區中的文件的成員有益的共同作業資訊的連結。

使用 SharedWorkspaceMembers 集合，透過 SharedWorkspace 物件 成員 屬性來存取管理具有限參與共用工作區和共用工作區中儲存的文件上共同作業的使用者。

使用 SharedWorkspaceTasks 集合，可透過 SharedWorkspace 物件的 Tasks 屬性進行存取管理工作指派給會在共用工作區中的文件上共同作業的成員。

若要建立新的文件工作區並將使用中文件新增至工作區使用 CreateNew 方法。 使用的 名稱 及 URL 屬性可傳回工作區的相關資訊。

SharedWorkspace 物件會使用本機快取的物件及伺服器的屬性。 開發人員可能需要更新此快取之前執行某些作業，或將快取的屬性變更儲存回伺服器。 使用 SharedWorkspace 物件的 重新整理 方法來重新整理伺服器，並判斷時重新整理作業上次執行， 則 LastRefreshed 屬性從本機快取。 使用之後修改其屬性在本機的 SharedWorkspaceLink 及 SharedWorkspaceTask 物件的 Save 方法將變更上傳到伺服器。

若要中斷使用中文件的本機複本與共用工作區中，連線時範圍前面共用的複製工作區中使用 Disconnect 方法。 若要從共用工作區中完全移除共用文件使用 RemoveDocument 方法。

使用者必須使用 SharedWorkspace 物件階層中的物件、 屬性及方法的適當權限。 使用引數的 角色 新增成員至 SharedWorkspaceMembers 集合時指定的每個工作區成員的特定權限集。

使用 SharedWorkspace 物件模型，很可能建立條件不在使用中文件的 共用工作區] 窗格中顯示的使用者介面與同步 SharedWorkspace 物件快取。 例如，如果 共用工作區窗格在開啟時發生， CreateNew 方法會將使用中文件以程式設計方式加入至新的工作區、 共用工作區] 窗格會繼續以顯示 [ 建立] 按鈕。 中情況如下，如果使用者進行選取不再是有效的 [ 共用工作區] 窗格中，就會引發錯誤及重新整理作業實現同步顯示與目前的文件狀態及共用工作區資料。

Document、Workbook和Presentation物件也有會傳回Sync物件的Sync屬性。 若要管理的同步處理本機與伺服器複本共用文件使用 Sync 物件及其屬性和方法。

範例

下列範例會顯示使用中文件所連接共用工作區的屬性。

    Dim swsWorkspace As Office.SharedWorkspace 
    Dim strSWSInfo As String 
    Set swsWorkspace = ActiveWorkbook.SharedWorkspace 
    strSWSInfo = swsWorkspace.Name & vbCrLf & _ 
        " - URL: " & swsWorkspace.URL & vbCrLf & _ 
        "The shared workspace contains " & vbCrLf & _ 
        " - Files: " & swsWorkspace.Files.Count & vbCrLf & _ 
        " - Folders: " & swsWorkspace.Folders.Count & vbCrLf & _ 
        " - Links: " & swsWorkspace.Links.Count & vbCrLf & _ 
        " - Members: " & swsWorkspace.Members.Count & vbCrLf & _ 
        " - Tasks: " & swsWorkspace.Tasks.Count & vbCrLf 
    MsgBox strSWSInfo, vbInformation + vbOKOnly, _ 
        "Shared Workspace Information" 
    Set swsWorkspace = Nothing

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。