Загрузка массива Powerpoint из Excel с помощью VBA

Question

Я пытаюсь, чтобы макрос PowerPoint заполнял массив, беря данные из файла Excel. На самом деле, есть два массива. Тот же код, тот же файл, но один массив заполняется, а другой - нет (или заполняется только частично). Ниже массив FindList работает нормально, а ReplaceList - нет. Буду признателен за любую помощь или предложения для альтернативного метода.

Option Explicit

Sub Multi_FindReplace()

Dim FindList As Variant
Dim ReplaceList As Variant
Dim x, i, j As Long

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Users\wip\dev\DRAFT Exhibits (Client) 04-06-18.xlsm")
xlBook.Application.Visible = False

FindList = xlBook.Worksheets("FindReplace").Range("A1:A22").Value
ReplaceList = xlBook.Worksheets("FindReplace").Range("B1:B22").Value

Answer 1

Проблема решена с использованием одного массива для загрузки всех данных. Выглядит так:

 ExcelData = xlBook.Worksheets("FindReplace").Range("A1:B22").value