Kolay Gelsin.
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
20:49 itibari ile değişiklik yaptım. Ona göre alınız.