loop through folders

[fraufreda]

I have set paths to 3 specific files. I cannot figure how to loop through them

dim path1, path2, path3 as string
dim counter as integer
dim WB as workbook

path1 ="...\a.xls"
path2 ="...\b.xls"
path3 ="...\c.xls"

for counter = 1 to 3
set WB = workbooks.open("Path" & Counter)
counter = counter + 1
next counter

Any help?

 

[Fluff]

wrong

 

[Fluff]

Try this

Sub LoopFldr()
    Dim pth(3) As String
    Dim counter As Integer
    Dim WB As Workbook
    
    pth(1) = "C:\Users\Fluff\Documents\Excel files\book1.xls"
    pth(2) = "C:\Users\Fluff\Documents\Excel files\book2.xls"
    pth(3) = "C:\Users\Fluff\Documents\Excel files\book3.xls"

    For counter = 1 To 3
        Set WB = Workbooks.Open(pth(counter))
    Next counter
End Sub

 

[fraufreda]

thanks. it works

 

[Fluff]

Glad to help & thanks for the feedback

 

[fraufreda]

when incorporated into my code it stops in the second workbook and gives an error.

  Set aWS = Sheets("Master")

For Counter = 1 To 3
    Set tWB = Workbooks.Open(Path(Counter))
    For Each tWS In tWB.Worksheets
     Set uRange = tWS.Range("A1", tWS.Cells(tWS.UsedRange.Row + tWS.UsedRange.Rows _
      .Count - 1, tWS.UsedRange.Column + tWS.UsedRange.Columns.Count - 1))
     
     aWS.Range("A" & RowCount + 1).Resize(uRange.Rows.Count, uRange.Columns.Count).Value _
      = uRange.Value 'it gives error here

     RowCount = RowCount + uRange.Rows.Count
    Next
    tWB.Close False

  Sheets("Master").Select
  Application.EnableEvents = True

  Set tWB = Nothing
  Set tWS = Nothing
  Set mWB = Nothing
  Set aWS = Nothing
  Set uRange = Nothing
  
Next Counter

 

[Fluff]

You need to remove the line

 Set aWS = Nothing

 

[fraufreda]

thanks a lot. really appreciate it

 

[Fluff]

You're welcome