如何在 Sharepoint 上签入文件?
How to check-in a file on sharepoint?
我已经编写了以下代码以通过 VBA 在 Sharepoint 上签入文件。
Dim strWkbCheckIn As String
strWkbCheckIn = spBASE_URL + spDOC_LIB + "/" + spFILE_NAME
' Determine if workbook can be checked in.
If Workbooks(strWkbCheckIn).CanCheckIn = True Then
Workbooks(strWkbCheckIn).CheckIn
MsgBox ("checked in.")
Else
MsgBox ("This file cannot be checked in ")
End If
但它显示以下错误:
Run-time error '9':
Subscript out of range
我已经检查过共享点上确实存在该文件。但仍然收到此错误。只是一个疯狂的猜测,是否有可能,因为文件和签出给我,它对程序不可见?
这应该可以为您完成。
Sub testing()
Dim docCheckOut As String
'docCheckOut = "//office.bt.com/sites/Training/Design Admin/Training Plan/adamsmacro.xlsm"
docCheckOut = "http://excel-pc:43231/Shared Documents/ExcelList.xlsb"
Call UseCheckOut(docCheckOut)
Call UseCheckIn(docCheckIn)
End Sub
Sub UseCheckOut(docCheckOut As String)
' Determine if workbook can be checked out.
If Workbooks.CanCheckOut(docCheckOut) = True Then
Workbooks.CheckOut docCheckOut
Else
MsgBox "Unable to check out this document at this time."
End If
End Sub
Sub UseCheckIn(docCheckIn As String)
' Determine if workbook can be checked out.
If Workbooks.CanCheckIn(docCheckIn) = True Then
Workbooks.CheckIn docCheckIn
Else
MsgBox "Unable to check in this document at this time."
End If
End Sub
我已经编写了以下代码以通过 VBA 在 Sharepoint 上签入文件。
Dim strWkbCheckIn As String
strWkbCheckIn = spBASE_URL + spDOC_LIB + "/" + spFILE_NAME
' Determine if workbook can be checked in.
If Workbooks(strWkbCheckIn).CanCheckIn = True Then
Workbooks(strWkbCheckIn).CheckIn
MsgBox ("checked in.")
Else
MsgBox ("This file cannot be checked in ")
End If
但它显示以下错误:
Run-time error '9':
Subscript out of range
我已经检查过共享点上确实存在该文件。但仍然收到此错误。只是一个疯狂的猜测,是否有可能,因为文件和签出给我,它对程序不可见?
这应该可以为您完成。
Sub testing()
Dim docCheckOut As String
'docCheckOut = "//office.bt.com/sites/Training/Design Admin/Training Plan/adamsmacro.xlsm"
docCheckOut = "http://excel-pc:43231/Shared Documents/ExcelList.xlsb"
Call UseCheckOut(docCheckOut)
Call UseCheckIn(docCheckIn)
End Sub
Sub UseCheckOut(docCheckOut As String)
' Determine if workbook can be checked out.
If Workbooks.CanCheckOut(docCheckOut) = True Then
Workbooks.CheckOut docCheckOut
Else
MsgBox "Unable to check out this document at this time."
End If
End Sub
Sub UseCheckIn(docCheckIn As String)
' Determine if workbook can be checked out.
If Workbooks.CanCheckIn(docCheckIn) = True Then
Workbooks.CheckIn docCheckIn
Else
MsgBox "Unable to check in this document at this time."
End If
End Sub