Ошибка 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 программно
- Нажмите, чтобы не работать в Div в слайсере в режиме Mobile в sharepoint 2013
- SSIS - загрузка и загрузка Excel из Sharepoint в базу данных SQL
- Ошибка Excel для Sharepoint MapNetworkDrive
- Сохранять имена столбцов при обновлении данных в Excel
- URL-адрес определенного листа для экспорта Excel «Сохранить веб-страницу»
- Задание агента SQL Server сбой «Переместить элемент: доступ запрещен»
- Как обрабатывать предупреждения окна для доступа к интрасети (Sharepoint) с помощью Selenium VBA
- создайте задание таймера, которое будет выполняться один раз в месяц, который экспортирует элементы списка sharepoint, чтобы преуспеть и хранится в библиотеке документов