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

  • Преобразование листа в PDF с использованием метода VBA PrintOut
  • Могу ли я получить доступ к файлу Excel в SharePoint с помощью команды «Редактировать в браузере» через VBA
  • Доступ к Excel через SharePoint с помощью API Графа возвращает неверную ошибку URL-адреса
  • Ошибка при редактировании электронной таблицы в SharePoint
  • SSIS - загрузка и загрузка Excel из Sharepoint в базу данных SQL
  • Загрузите мой документ в sharepoint через vba
  • Нажмите, чтобы не работать в Div в слайсере в режиме Mobile в sharepoint 2013
  • Как использовать соединение BISM, размещенное в веб-приложении SharePoint 2013 с поддержкой FBA из Excel
  • Публикация файла подключения данных OData Excel 2013 (odc) с использованием объекта групповой политики без sharepoint
  • Чтение данных из документа Excel, хранящегося в Sharepoint?
  • Не допускайте возникновения ошибки при попытке открыть файл с помощью vba
  • Interesting Posts

    Загрузите рабочие таблицы Excel в AS400

    (Power) Pivot – показывать true / false и вычислять в то же время

    Как заставить словарные элементы записываться по порядку?

    Как использовать SUMIF, если критерии содержат символ «>»?

    MS Excel – вставить формулу из строки с разделителями табуляции

    Отчет Excel vba

    Excel: возвращаемое значение, если ячейка содержит определенный текст

    Как сохранить определенную строку в моей базе данных в новом файле Excel?

    Как разделять ячейки, содержащие несколько значений (разделенных запятыми), в отдельные строки?

    Формула Excel для пропусков

    Ошибка времени выполнения «1004»: определяемая приложением или объектная ошибка vba Excel

    Как изменить результат запроса в формате Excel, используя разные запросы

    Неверная плотность вероятности

    excel – сопоставить несколько ячеек в диапазоне с текстом из других ячеек и возвращать данные конкретной ячейки

    MS Excel Scatterplot преобразует месяцы в числа

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