Fileopen Dialog ile birden fazla dosya açmak

[agent1980]

Merhaba;

Aşağıdaki kod ile bir txt dosyasını seçiyor ve istediğim işlemleri yaptırabiliyorum. Peki bu pencerede birden fazla dosya seçip her dosya yolunu ayrı ayrı değişkenlere nasıl atarım. Örnek iki dosyada seçebilirim 50 dosyada bu tip durumlar için her dosya için bir değişkenmi atamam lazım yoksa bunun kolay bir yolu varmı?
Şu anda çalışmam tek dosya üzerinden çalışıyor yapmak istediğim. Mesela 10 dosya için işlem yapılacaksa makroyu 10 defa manuel çalıştırmak yerine tüm dosyaları seçip makronun sırası ile her dosya için işlem yapmasını istiyorum.

Teşekkürler.

 Set dosyayolu = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
  
    With dosyayolu
        .ButtonName = "Dosya Seç"
        .Title = "Lütfen Database Dosyasını seçiniz."
        If .Show = -1 Then
   
            For Each vrtSelectedItems In .SelectedItems
            filespath = vrtSelectedItems
            klsryolu = dosyayolu.InitialFileName
            Next vrtSelectedItems
        Else
        End If
    End With

 

[cebelitarık]

Sayın agent1980
Makronuzu çalıştırdım fakat bir şey anlamadım txt dosyasını seçtikten sonra ne yapıyorsunuz dosya nereye açılıyor?
Yoksa kodun devamı eksikmi?
Açıklama yapabilirmisiniz.
Saygılarımla

 

[agent1980]

Sayın cebelitarık;

Evet makro eksik sadece fileopen dialog kısmını ekledim. İstediğim bilgi fileopen dialog penceresinde birden fazla dosya seçildiğinde her dosya için aynı makronun sırası ile çalışması için neler yapılması gerektiği. Not: Asıl çalıştığım dosya biraz büyük olduğu için kusura bakmayın ekleyemedim.

Teşekkürler

 

[agent1980]

Sorunun cevabı zaten makronun içinde saklıymış. Yapılması gereken tekrarlanması istenilen makroların filedialog yordamının içine taşımak ve filedialog penceresi açıldığında CTRL + mouse ile birden fazla dosya seçmekmiş.

Kaynak: http://msdn.microsoft.com/en-us/library/aa219843(v=office.11).aspx

Set dosyayolu = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
  
    With dosyayolu
        .ButtonName = "Dosya Seç"
        .Title = "Lütfen Database Dosyasını seçiniz."
        If .Show = -1 Then
   
            For Each vrtSelectedItems In .SelectedItems
            filespath = vrtSelectedItems
            klsryolu = dosyayolu.InitialFileName
'Kodlar buraya
            Next vrtSelectedItems ' Bu satır seçili olan tüm dosyalar için 
'işlemin tekrarlanmasını sağlıyor.
        Else
        End If
    End With