Makro ile sürekli değişken dosyaları açmak

[buyocan]

Merhabalar...

Ben çok uğraşsam da yapamadım. Sizlerden yardım istiyorum.

Workbooks.Open Filename:=dosya & *.* "_Sayac_Verileri.xlsx"

Siteden araştırmalarımla böyle kodla sabit isimli dosyaları açabiliyorum.
*** _Sayac_Verileri.xlsx Dosyamın adı baş tarafı *** yazdığım yer sürekli değişiyor. Her hangi bir hücreden de veri almıyor.
Bu değişen yere nasıl bir kod eklenir acaba ? *** yazan yer ne olursa olsun sonrası _Sayac_Verileri.xlsx bu şekilde biten dosyaları açabilirim.
Yardım edenlere şimdiden teşekkürler.

 

[Korhan Ayhan]

Merhaba,

İlgili dosyanın yolu belli ise DIR komutunu kullanarak adı değişkende olsa ulaşabilirsiniz.

"Dosyaları" ifadesi kullandığınız için bu dosyaların birden fazla olduğunu ve hepsini açmak istediğinizi anlıyorum. Eğer durum böyleyse While-Wend döngüsü ile işlem yapabilirsiniz. Forumda "Wend" ifadesi ile arama yaparsanız daha önce paylaşılmış örnek kodlara erişebilirsiniz.

 

[buyocan]

Korhan hocam D:\Download\ klasöründeki başka dosyalar olabilir. Ben sadece tek bir Excel dosyasını açmak istiyorum.
dosya = "D:\download\"
Workbooks.Open Filename:=dosya & *.* "_Sayac_Verileri.xlsx"
Workbooks.Open Filename:=dosya & Buraya kadar tamam burada örneğin ***__Sayac_Verileri.xlsx buradaki *** lara nasıl bir *** karakter vereyim ki dosya açılsın. *** & "_Sayac_Verileri.xlsx veya *.* & *.* "_Sayac_Verileri.xlsx şeklinde yazıp denedim sürekli hata veriyor.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub My_File_Open()
    Dim File_Path As String, My_File As Variant
    
    File_Path = "D:\Download\"
    My_File = Dir(File_Path & "*_Sayac_Verileri.xlsx")
    
    If My_File <> "" Then
        Workbooks.Open (My_File)
    Else
        MsgBox "Dosya bulunamadı!", vbCritical
    End If
End Sub

 

[buyocan]

Korhan hocam emeğinize sağlık. Tam istediğim gibi çalışıyor. Workbooks satırına küçük bir değişiklik yaptım.

Option Explicit

Sub My_File_Open()
Dim File_Path As String, My_File As Variant

File_Path = "D:\Download\"
My_File = Dir(File_Path & "*_Sayac_Verileri.xlsx")

If My_File <> "" Then
' Workbooks.Open (My_File)

Workbooks.Open Filename:=File_Path & My_File

Else
MsgBox "Dosya bulunamadı!", vbCritical
End If
End Sub