Benzer dosyaları açma

[svorm]

Merhaba

Desktop dizininde aradığım dosya isme A ile başlayan excel dosyalarının hepsini tek seferde nasıl açabilirim?

Workbooks.Open Filename:= _
"C:\Documents and Settings\ilkera\Desktop\Axxx.xlsx"

 

[asi_kral]

Merhaba

Option Explicit
Sub kriterli_dosya_aç()
Dim YL As String, DSY As Variant
YL = "C:\Documents and Settings\ilkera\Desktop\"
DSY = Dir(YL & "*.xlsx?")
Do While DSY <> ""
If DSY Like "A*" Then
Workbooks.Open (YL & DSY)
End If: DSY = Dir
Loop
End Sub

Bu kod dener misiniz_?

 

[svorm]

Çok teşekkür ederim bu hızlı geri dönüşünüz için

 

[asi_kral]

Çok teşekkür ederim bu hızlı geri dönüşünüz için

Kolay Gelsin.