FOR LOOP using VBA opening multiple file.

[Hari Krishna Behera]

Hi All,

I have question about looping.

How to apply similar steps using loop through different file .

Example : source is already open. when i open the destination file just need to give edit link and change data source then save and close.
Similarly multiple file need to update with the singe source file.
Many Thanks in advance

 

[mohadin]

Hi
You may like this

Sub Test()
    Dim fDialog As FileDialog
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    Dim wbk As Workbook
    Dim a, b As Variant
    Dim i, ii, lr As Integer
    On Error Resume Next
        With fDialog
        .AllowMultiSelect = True
        .Title = "Please select the files"
        .Filters.Clear
        .Filters.Add "All supported files", "*.xlsm"
        .Filters.Add "Text Files", "*.xlsx"
        If .Show = True Then
            Dim fPath As Variant

            For Each fPath In .SelectedItems
                Set wbk = Workbooks.Open(Filename:=fPath)
                With wb
                
                ' Do what ever
                
               End with
                wbk.Close savechanges:=False
            Next
        End If
    End With
End Sub