循环遍历VBA数组时如何获取元素编号答案

【问题标题】：How to get element number when looping through a VBA Array循环遍历VBA数组时如何获取元素编号
【发布时间】：2015-09-24 14:53:20
【问题描述】：

我有这个循环遍历数组的 VBA 代码（在这种情况下，supplier_reports()），它工作正常。我想知道是否有人知道在使用数组中的值时是否有办法获取元素编号：

For Each x In supplier_reports

Workbooks.Open (x)

element_number = x

next x

在这种情况下，元素编号只是 x 的值，而不是数组中的元素编号。

谢谢

【问题讨论】：

【解决方案1】：

您可以使用 For 循环而不是 For Each。

例如。

For I = LBound(supplier_reports) To UBound(supplier_reports)
 Workbooks.Open (supplier_reports(I))
 element_number = I
Next

【讨论】：