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.



    AB
    1
    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!