SharePoint 2010: ссылка на файл Excel в режиме редактирования

Question

У меня есть приложение с кнопкой. Эта кнопка относится к документу Excel, который у меня есть в SharePoint. Однако он загрузит файл, что означает, что он доступен только для чтения. Теперь в SharePoint есть возможность открыть файл в режиме редактирования, и мне бы хотелось, чтобы моя кнопка делала то же самое - как я могу использовать ссылку href для ссылки на файл и открыть его в режиме редактирования?

Как я могу сделать то же самое действие, как «Edit в Microsoft Excel» с помощью кнопки вне SharePoint? Как ссылка на файл, который откроет его в режиме редактирования.

Answer 1

Объект 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 

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 

также обсуждается более подробно this page, но это выходит далеко за рамки моих знаний.

Answer 2

Это не опция «Редактировать в Microsoft Excel», кроме «Check Out».

Для «Редактировать в Microsoft Excel» решение невероятно просто. В Workbook_Open просто выполните ActiveWorkbook.LockServerFile. Документация для этой команды говорит, что она блокирует рабочую книгу, но в этом случае она делает прямо противоположную, она просто выполняет вопрос «Редактировать панель».

Private Sub Workbook_Open() 

'The following command is equivalent to hitting the "Edit" bar 
'that comes up when you open an Excel file by clicking on it in SharePoint, 
'which is equivalent to "Edit in Microsoft Excel" (not CheckOut) 

ActiveWorkbook.LockServerFile 

End Sub