Sub dosyalarial()

      ' Öncelikle Referanslar içine Microsoft Office XX.0 Library Eklenecek...

    Dim kural As Variant

    With Application.FileDialog(msoFileDialogFilePicker)

    'açılan pencere adı

        .Title = "Okuma Dosyaları..."

        .Filters.Clear

        .Filters.Add "CSV Dosyaları", "*.csv"

        .FilterIndex = 3

        .AllowMultiSelect = True

        .InitialFileName = "c:\okuma\"

        .Show

        If .SelectedItems.Count > 0 Then

                For Each kural In .SelectedItems

                    kural = Trim(kural)

                    Debug.Print kural

                    

                   

                        ' Bu döngünün içine tabloya alma komutları girecek...

                        ' Açılan pencereden dosyalarınızı seçeceksiniz...

                        ' Sonra Tamam Tıklandıktan Sonra Dosyalar Sırayla Alınmaya Başlayacak...

                    

                    

                Next

   End If

    End With

End Sub