Open, refresh, close multiple excel documents

[MPFraser7]

I have a folder with many documents, excel, word, outlook e-mails, etc. I'm looking for a macro that would open, refresh and close all Excel documents where the name starts with "FI". There are many sheets, tables, pivottables, connections, etc. found inside the excel documents. Is there an easy way to do so? Thanks for your time, much appreciated.

 

[KennyGreens]

Hi, this may work, credit to AndyG on stackoverflow for some help here: https://stackoverflow.com/questions/19527415/using-a-wildcard-to-open-an-excel-workbook

Sub refreshAll()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Dim sFound As String


sFound = Dir(ActiveWorkbook.Path & "\FI*.xlsx")    'the first one found, change .xlsx to whatever kind of excel files they are, assumes the other excel files are in same path as current open one
If sFound <> "" Then
    Workbooks.Open filename:= ActiveWorkbook.Path & "\" & sFound

End If

Dim i As Integer
Dim wc As Integer
wc = Workbooks.Count

For i = 1 To wc
    Workbooks(i).RefreshAll
    Workbooks(i).Close True
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

 

[MPFraser7]

Thanks for your help. I stored the macro in a blank excel document in the same folder as the other documents starting with "FI". When I run the macro, it closes the macro document, opens the first document starting with "FI" and then it completely stops. It does not refresh, close, and repeat the process with the next document. Any ideas?