Visio) (Document.CheckIn 方法

將檔從本機電腦傳回至 Microsoft SharePoint Server 電腦。

語法

運算式。CheckIn (SaveChanges、 Comments、 MakePublic)

表達 代表 Document 物件的變數。

參數

名稱	必要/選用	資料類型	描述
SaveChanges	選用	布林值	若為 True (非零)，則會在存回之前先儲存文件，若為 False (0) 則會存回文件而不儲存變更。 預設值為 True 。
Comments	選用	Variant	任何要以此文件版本儲存的註解 (只有在 SaveChanges 等於 True 時才適用)。
MakePublic	選用	布林值	若為 True，則會在存回文件後發行。 這會提交文件進行核准處理，或者，如果沒有文件的核准傳閱名單，會建立資料夾之讀取者可以使用的公用版本 (只有在 SaveChanges 等於 True 時才適用)，若為 False，則會使文件僅能用於私人檢視。 預設值為 False 。

傳回值

無

註解

若要存回檔案，該檔案必須是儲存在執行 Microsoft SharePoint Server 或 Microsoft SharePoint Foundation 電腦上的文件庫中。

在使用 CheckIn 方法存回文件後，會關閉文件。 這個表現方式與使用者介面的不同，當您在使用者介面存回文件時，文件會關閉並以唯讀重新開啟。

範例

這個範例將檢查伺服器，判斷是否可存回指定的文件。 如果可以，範例將儲存並關閉文件，然後將文件存回伺服器。

Sub CheckDocIn(varDocCheckIn As Variant) 
  
    If Documents.Item(varDocCheckIn).CanCheckin = True Then  
        Documents.Item(varDocCheckIn).CheckIn  
        MsgBox varDocCheckIn & " has been checked in."  
    Else  
        MsgBox "This file cannot be checked in " _  
            & "at this time. Please try again later."  
    End If   
  
End Sub

若要呼叫前面的 CheckDocIn 副程式，請使用下列副程式，並將 servername/workspace/drawing.vdx 取代成位於 Microsoft SharePoint Server 電腦上的實際檔案路徑和名稱。

Sub DocIn()  
 
    Call CheckDocIn _  
        (varDocCheckIn:="https://servername/workspace/drawing.vdx ") 
  
End Sub

支援和意見反應

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