Using VBA code to all files in folder

[kowal666]

I want to extract, from the ID column, the Telephone using:

<code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; white-space: inherit;">Sub Left_Funcion()
Dim LResult As String
LResult = "=Left(B2,11)"

With Sheets("Worksheet")
.Range("E2:E" & .Cells(.Rows.Count, "A").End(xlUp).Row).Formula = LResult
End With
End Sub</code>

I can do it with one file, but what to do when I want to do this to multiple files in folder like C:\Users\kowal\Documents\TestResults
what code i must add to makro?

 

[Sektor]

Set your folder path for sFolder variable.

Sub IterateFolder()


    Dim wkb As Workbook
    Dim sFile As String
    Const sFolder As String = "C:\Files\"
    
    sFile = Dir(sFolder)
    
    While Len(sFile)
        Set wkb = Workbooks.Open(sFolder & sFile)
        ' Your code
        sFile = Dir()
    Wend


End Sub