如何通过VBA数组循环时获取元素号

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

For Each x In supplier_reports Workbooks.Open (x) element_number = x next x 

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

谢谢

Answer 1

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

例如。

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