Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Use For Next loop through Workbooks

Sub Array2()          Dim avData As Variant, myWorkbook As Workbook          Dim i As Integer          avData = Array("North", "South", "East", "West")          For i = LBound(avData) To UBound(avData)              Set myWorkbook = Workbooks.Open(FileName:=avData(i) & ".xls")              'Process data here              myWorkbook.Close SaveChanges:=True          Next i      End Sub