Open all files in a directory and refresh them all?

[TheWennerWoman]

Hello,

I have a load of files in a directory that have data connections. I am currently opening them one by one, right-clicking on the relevant data table and clicking "refresh".

Can I automate this? I have got this which opens the files fine, I just need the next bit to refresh them all.

Option Explicit

Sub OpenAllFiles()

    Dim filpath As String
    Dim fso As Scripting.FileSystemObject
    Dim fil As Scripting.File
    Dim fldr As Scripting.Folder

    filpath = "C:\Users\TheWennerWoman\OneDrive - Excalibur\Documents\Daily Control Files"
    Set fso = New Scripting.FileSystemObject
    Set fldr = fso.GetFolder(filpath)

    For Each fil In fldr.Files
        Application.Workbooks.Open (fil.Path)
    Next fil


End Sub

Many thanks for reading.

 

[Zot]

Try if this works

For Each fil In fldr.Files
    With Application.Workbooks.Open(fil.Path)
        .RefreshAll
        .Close True
    End With
Next fil

 

[TheWennerWoman]

That works perfectly, many thanks!

 

[Zot]

That works perfectly, many thanks!

You are welcomed