Ошибка 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 будет вставлен для каждого файла.

• Как открыть файл Excel с Sharpoint
• Как передать значение EffectiveUserName в SSAS через службу Excel с использованием FBA (проверка подлинности на основе форм) в SharePoint 2013
• Обновление связанной таблицы (в доступе 2003) через Excel VBA
• SSRS генерирует отчеты Excel и поиск в sharepoint
• VBA сохраняет Excel в Sharepoint замерзает навсегда с помощью экрана, показывающего «Получение списка доступных типов и свойств контента ...»