このWorkbooks
オブジェクトには、必要な機能があります。使用可能であることを確認する CanCheckOut と、編集用にファイルを開く CheckOut です。
このコードは、ファイルの名前 ( などhttp://server:port/PathToFile/myExcelFile.xlsx
) を取得し、可能であればそれを開きます。
Sub UseCanCheckOut(docCheckOut As String)
' Determine if workbook can be checked out.
If Workbooks.CanCheckOut(Filename:=docCheckOut) = True Then
Workbooks.CheckOut (Filename:=docCheckOut)
Else
MsgBox "You are unable to check out this document at this time."
End If
End Sub
Web ページの vbscript:
set objExcel = CreateObject("Excel.Application")
drPath = "server\file"
if (objExcel.Workbooks.CanCheckOut(drPath) = True) then
objExcel.Application.Workbooks.CheckOut drPath //note - may need to open first
objExcel.Application.Workbooks.Open drPath
else
msgbox("Unable to checkout SharePoint file: " & file.name & ". Please contact an administrator.")
end if
このページでも詳しく説明されていますが、それは私の知識をはるかに超えています