Open multiple workbooks using file paths entered in cells

  • I would like a some help on opening up multiple excel WB that have individual network paths, save and close them.

    I would like to manage the paths in cells within a worksheet. There would be two columns: Workbook Name and Workbook Path and multiple rows.

    Workbook NameWorkbook Path
    2Workbook 1\network\folder1\Workbook1.xlsx
    3Workbook 2\network\folder2\Workbook2.xlsx
    4Workbook 3\network\folder3\Workbook3.xlsx
    5Workbook 4\network\folder4\Workbook4.xlsx

    I have notice in searching the forum the below code that would seem to be very useful. However I do not know I would implement this in my Worksheet.

    can anyone help advise please...

    Sub SO()

    Dim i As Long

    With ThisWorkbook.Sheets("PATHS")

    For i = 7 To Cells(.Rows.Count, 1).End(xlUp).Row

    If LCase(Mid(.Cells(i, 1).Value, InStrRev(.Cells(i, 1).Value, ".") + 1, 3)) = "xls" Then Workbooks.Open .Cells(i, 1).Value

    Next i

    End With

    End Sub

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!