Ошибка Excel из-за кода VBA

У меня есть следующий код. Он работает примерно один раз, затем, когда я пытаюсь открыть мой файл, Excel переходит в kaput-nik и разбился обо мне, заставив меня собрать файл с нуля. Я использую этот код для доступа к нескольким книгам (точнее, 11). Каждая рабочая тетрадь называется для кого-то и имеет рабочий лист с тем же именем, с данными, которые я хочу импортировать. Я думал, что все работает нормально, но остановился.

Public Sub OpenWebXLS() ' ************************************************* ' Define Workbook and Worksheet Variables ' ************************************************* Dim wkbMyWorkbook As Workbook Dim wkbWebWorkbook As Workbook Dim wksWebWorkSheet As Worksheet Set wkbMyWorkbook = ActiveWorkbook ' ************************************************* ' Open The Web Workbook ' ************************************************* Workbooks.Open ("http://Sharepointdirectory..../Chris.xlsx") ' ************************************************* ' Set the Web Workbook and Worksheet Variables ' ************************************************* Set wkbWebWorkbook = ActiveWorkbook Set wksWebWorkSheet = ActiveSheet ' ************************************************* ' Copy The Web Worksheet To My Workbook and Rename ' ************************************************* wksWebWorkSheet.Copy After:=wkbMyWorkbook.Sheets(Sheets.Count) wkbMyWorkbook.Sheets(ActiveSheet.Name).Name = "Chris" ' ************************************************* ' Close the Web Workbook ' ************************************************* wkbMyWorkbook.Activate wkbWebWorkbook.Close End Sub 

В приведенном выше коде фактический адрес каталога Sharepoint будет вставлен для каждого файла.

  • VBA для загрузки файла Excel в Sharepoint. Ошибка времени выполнения «1004»
  • Ошибка восстановления внешних данных DATABASENAME Tfs_Analysis Рабочий элемент
  • Как автоматически нажать «ОК» при открытии книги из SharePoint
  • Sharepoint Excel для блокировки / закрытия в указанное время
  • SharePoint 2013: создать таблицу из веб-формы?
  • Не удается открыть офисные документы с сайта SharePoint.
  • VBA сохраняет Excel в Sharepoint замерзает навсегда с помощью экрана, показывающего «Получение списка доступных типов и свойств контента ...»
  • Обновление веб-запроса в службах Excel
  • Используйте Excel 2010 для чтения / записи в базу данных SQL Server 2008 с использованием хранимых процедур
  • Microsoft Graph API для SharePoint в Python: Microsoft.SharePoint.Client.UnknownError
  • Проверить через VBA, если файл существует на сайте sharepoint
  • Давайте будем гением компьютера.