Оформить заказ в VBA

У меня есть VBA, я пытаюсь проверить учебник перед внесением изменений. Код VBA находится в собственной рабочей книге и активируется пользователем, открывающим другую рабочую книгу и выбрав кнопку, которая выполняет код для изменения книги. Сначала я хочу проверить, проверена ли рабочая книга. Проблема, которую я получаю, – Workbooks.CanCheckOut (ActiveWorkbook.FullName) всегда возвращает false, даже если рабочая книга не проверена.

If Workbooks.CanCheckOut(ActiveWorkbook.FullName) = True Then Workbooks.CheckOut (ActiveWorkbook.FullName) MsgBox "This workbook has been checked out" Process = True ElseIf ActiveWorkbook.CanCheckIn = False Then 'if not checked out Process = False MsgBox ("The Document may not be checked out, Import Process is ending.") Else Process = True End If 'If CanCheckin = False 

Спасибо заранее за вашу помощь.

Я нашел через пробную версию и ошибку, что Workbooks.CanCheckOut (Filename:= FullName) где FullName является URL-адресом для файла SharePoint, работает только для файлов, которые не открыты в текущем экземпляре Excel.

Метод всегда будет возвращать False если файл открыт в текущем экземпляре Excel, что, очевидно, имеет место здесь.

Workbooks.CheckOut (ActiveWorkbook.FullName) открывает файл, проверяет его и затем необъяснимо закрывает файл. Таким образом, открытие и проверка файла SharePoint становится трехэтапным процессом.

 Sub CheckOutAndOpen() Dim TestFile As String TestFile = "http://spserver/document/Test.xlsb" If Workbooks.CanCheckOut(TestFile) = True Then Workbooks.CheckOut(TestFile) Workbooks.Open (TestFile) Else MsgBox TestFile & " can't be checked out at this time.", vbInformation End If End Sub 

Это все немного интуитивно понятное, потому что при работе с файлами SharePoint вручную вы должны открыть их, чтобы проверить, можно ли их проверить, а затем выполнить операцию выписки.

Ни MSDN, ни Excel VBA не упоминают, что метод Workbooks.CanCheckOut (Filename:= FullName) всегда возвращает False, если файл открыт в текущем экземпляре Excel.

 Sub CheckOutAndOpenFromSharePoint() Dim FilePath As String Dim FileName as string FilePath = "http://Sharepoint site/Folder Name On SharePoint Site/" FileName = "Testing.xlsx" If Workbooks.CanCheckOut(FilePath & FileName) = True Then Workbooks.CheckOut "http://Sharepoint%20site/Folder%20Name%20On%20SharePoint%Site/Testing.xlsx" Workbooks.Open Filename:=FilePath & FileName Else MsgBox FileName & " can't be checked out at this time.", vbInformation End If End Sub 
  • Как читать и редактировать файлы excel одновременно (используя SharePoint)?
  • Откройте файл Excel на Sharepoint из пакета SSIS, не перемещая его
  • Метод Экспортировать объект '_Chart' не удалось Ошибка времени выполнения -2147286987 80030035
  • Excel Web App <-> база данных ODBC с чтением / записью
  • Диалоговое окно Excel Сохранить как отображается неправильно
  • Макрос VBA для сохранения в SharePoint с динамическим именем файла
  • Обновить набор данных Excel в SharePoint Online с помощью ошибки PowerShell 403
  • ADODB - Excel - VBA: дополнительный столбец поиска типеонов
  • Отправить письмо через excel онлайн
  • Не допускайте возникновения ошибки при попытке открыть файл с помощью vba
  • Электронная таблица запросов Excel, сохраненная в SharePoint через VBScript в UFT с использованием модели ADO OLEDB
  • Interesting Posts

    VBA Копирование изображения из рабочего листа в Userform

    Openpyxl, как сохранить .xlsx стиль файла, который был до этого, после сохранения его с помощью функции openpyxl .save ()?

    FCM Кластеризация числовых данных и файл csv / excel

    Код VBA для продолжения форматирования с использованием текста в столбце, когда некоторые ячейки пусты

    Нужна помощь в определении диапазонов и строк с помощью этого сценария Looping Split

    создать базу данных mysql с помощью vba

    Точная же формула CountIf, дающая разные результаты из разных ячеек

    Как сделать список элементов Combobox динамичным?

    Цвет Форматирование каждой другой строки

    Скопируйте данные с одного листа и вставьте в первую пустую ячейку в столбце А другого листа

    Сравните два листа excel

    Сохранить информацию о row_slice в рабочей книге xlrd python

    Как Excel распознает ячейки Date и как сделать то же самое с помощью OpenXml и C #

    EXCEL: SUMIF с 3 критериями по 2 строкам и столбцам

    Как получить значения из записей в списке и сформировать новую таблицу?

    Давайте будем гением компьютера.