VBA - получение и возврат Sharepoint файла не в формате Excel

Question

Проблема

Excel VBA предлагает следующие средства для CheckOut и CheckIn книг Excel:

if workbooks.CanCheckOut(sFile) then
   workbook.CheckOut(sFile)
   set wb = workbooks.open(sFile)

   'make changes

   wb.CheckIn true, "Some comment", true
end if

Однако, если я пытаюсь проверить текстовый файл (или любой другой в этом отношении ), Как мне это сделать?

Answer 1

Я создал библиотеку sharepoint .

Для извлечения / в файле:

Dim sp as stdSharepointSite
set sp = stdSharepointSite.Create("teams","http://teams/wholesale/Leicester", "myUser", "myPass")

if sp.CheckOutFile("http://teams/wholesale/Leicester/myFile.txt", false) then
   'Can and have checked out
   'Do stuff
   
   if thereAreChanges then
       'save file to sharepoint
       '...

       'check in changes
       sp.CheckInFile("http://teams/wholesale/Leicester/myFile.txt", "Updated my file")
   else
       'Discard checkout
       sp.CheckOutDiscard("http://teams/wholesale/Leicester/myFile.txt")
   end if
else
    'Cannot checkout...
end if