How to open files from excel list using VBA?

[badsham77]

I need some help with this coding. I want to open files from an excel list.

Sub Openfile()

Dim wkbOne as Workbook

Set wkbOne = Application.Workbooks.Open(Filename:=Worksheets("Sheet1").Range("A1") & Worksheets("Sheet1").Range("B1")
'where "A1" is the path where the file located and "B1" is the file name.'
End Sub

When I run this it will work, but if I change to below it won't open all file in range, what's wrong with this?

Sub Openfile()

Dim wkbOne as Workbook

Set wkbOne = Application.Workbooks.Open(Filename:=Worksheets("Sheet1").Range("A1:A10") & Worksheets("Sheet1").Range("B1:B10")

End Sub

Thanks for the help.

 

[badsham77]

That works well

TQ

 

[badsham77]

Is there a way to make the files auto close after we assign the password to it?

 

[VoG]

Try

Sub Openfile()
Dim wkbOne As Workbook, i As Long, j As Long
With ThisWorkbook
    For i = 1 To 10
        If .Worksheets("Sheet1").Range("A" & i).Value <> "" And .Worksheets("Sheet1").Range("B" & i).Value <> "" Then
            j = j + 1
            Set wkbOne = Workbooks.Open(.Worksheets("Sheet1").Range("A" & i).Value & .Worksheets("Sheet1").Range("B" & i).Value)
            Application.DisplayAlerts = False
            wkbOne.SaveAs Filename:=.Worksheets("Sheet1").Range("A" & i).Value & .Worksheets("Sheet1").Range("B" & i).Value, Password:=.Worksheets("Sheet1").Range("C" & i).Value
            wkbOne.Close True
            Application.DisplayAlerts = True
        End If
    Next i
End With
MsgBox j & "files opened", vbInformation
End Sub

 

[stacyakh]

This is an old post, but can the same be done openning pdf files from a similar list?