使用VBA从Excel加载Powerpoint数组_Vba_Powerpoint

使用VBA从Excel加载Powerpoint数组

vba

使用VBA从Excel加载Powerpoint数组,vba,powerpoint,Vba,Powerpoint,我试图让powerpoint宏通过从excel文件中获取数据来填充数组。实际上，有两个数组。相同的代码、相同的文件，但一个数组填充，另一个不填充（或仅部分填充）。下面，FindList数组工作正常，而ReplaceList不工作。如果您能为我提供其他方法的帮助或建议，我将不胜感激 Option Explicit Sub Multi_FindReplace() Dim FindList As Variant Dim ReplaceList As Variant Dim x, i, j As L

我试图让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

使用单个数组加载所有数据解决了这个问题。看起来像这样：

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