Excel dosyalarını birlikte açmak

[mustafagumrukcu]

Merhaba, bir klasörde bulunan 24 excel dosyası var. Bu dosyaların hepsini seçip sağ tık yaptığımda "Aç" yazısı gelmiyor. Birkaçını seçmem durumda ise geliyor. Bu excel dosyalarının hepsini tek tıkla açmam mümkün müdür?

 

[hlojan]

 Application.ScreenUpdating = False
    Dim Dosya As Workbook
    Dim Dosya_Adi As String
    Dim Yol As String
[B][COLOR="Red"]    Yol = "C:\Users\isa\Desktop\ARŞİV"[/COLOR][/B]
    ChDir Yol
    Dosya_Adi = Dir(Yol & "\*.xls")
    Do While Dosya_Adi <> ""
      Set Dosya = Workbooks.Open(Yol & "\" & Dosya_Adi)
     
      
      Dosya_Adi = Dir
    Loop
    Application.ScreenUpdating = True

Yolu kendi klasörünüze yönlendirin

 

[mustafagumrukcu]

Teşekkürler