opening up specific files in a folder

[howard]

I have written code to open up all the files in C:\Sales Reports containing the text "OBS"

when running the macro, nothing happens


kindly amend my code so that all files containing text OBS for eg CT Sales Obsolesence Jan 2018, BT Sales Obsolesense for Jan 2018 etc is opened

 Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "C:\Sale Reports"
MyFile = Dir(MyFolder & "\*obs*.xls")
Do While MyFile <> ""
    Workbooks.Open Filename:=MyFolder & "\" & MyFile
Loop
End Sub

 

[Youngdand]

Hi,

This should do it. Your code worked fine to open the first file, but then stopped as it was always choosing the first file.
change the directory to whatever you require, but it now works fine for me.

Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
Dim a As Workbook
MyFolder = "C:\test"
MyFile = Dir(MyFolder & "\*obs*.xls")
Do While MyFile <> ""
    Set a = Workbooks.Open(Filename:=MyFolder & "\" & MyFile)
    MyFile = Dir
    Loop
End Sub

 

[howard]

Thanks for the help, works perfectly