Загрузка данных в массив Powerpoint с помощью VBA

Question

Я пытаюсь загрузить данные в массив Powerpoint VBA из Excel. Эти данные будут использованы позже для выполнения поиска / замены в PowerPoint. Я застрял в последней строке кода ниже. Я принял этот код для загрузки массива для будущих операций:

Dim FindList As Variant '<- this is array to be loaded with data
Dim xlApp As Object
Dim xlBook As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Users\Boxync\findreplace.xlsx")
Set FindList = xlBook.Worksheets("Sheet1").Range("A1:A4").Value

Answer 1

Вам не нужно Set.Если вы удалите его, ваш код должен работать.Чтобы сделать его немного лучше, вы можете использовать Application.Transpose():

With xlBook.Worksheets("Sheet1")
    FindList = Application.Transpose(.Range("A1:A4").Value2)
End With

Затем получить доступ к массиву следующим образом - FindList(1), FindList(2).