将Excel VBA中的数组转换为Powerpoint VBA
我有Excel VBA中的代码，我想要转换成在Powerpoint VBA中运行。 这是我到目前为止在ppt的VBA：
Dim wbkISS As Excel.Workbook Dim varSheetISS As Excel.Worksheet Set wbkISS = Workbooks.Open(FileName:="C:\Users\...\Documents\ISS.xlsm") Set varSheetISS = wbkISS.Worksheets("For ISS") strIDRangeISS = "A2:D50" varSheetISS = varSheetISS.Range(strIDRangeISS) For iRowISS = LBound(varSheetISS, 1) To UBound(varSheetISS, 1) ... For iRowFCST = LBound(varSheetFCST, 1) To UBound(varSheetFCST, 1) ... 但在“LBars（varsheetISS）它给了我编译错误：预期数组。我的代码在Excel中工作正常，所以我想我有错误的语法的PPT？
不得不作为回答发布：
此代码没有“Option Explicit”标题。
variablesvarSheetISS被鲁莽地传递。
它以工作表的forms开始人生，然后投射到一个范围（其目的是获得范围的值）。
通过使用Option Explicit可以避免很多这样的情况。
Dim issArray As Variant: issArray = varSheetISS.Range(strIDRangeISS).Value2