Ошибка 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
• Подключение к спискам SharePoint с помощью OData
• VB.NET Как автоматически выбрать «Источник данных машины» (Excel)
• Импорт таблицы с фотографиями в sharepoint
• Ошибка в получении файла с использованием sharepoint designer 2010 программно