dosya isim başlangıcı

[GursoyC]

Merhaba,
Bir makrom var ve işlemlerin bir yerinde bir başka excel dosyasını aktive etmesini istiyorum. Ancak dosya ismi internet ortamında bir veritabanından çekildiğinden ismi saat formatlı ve haliyle sürekli (her indirme sırasında) değişiyor.

örnek : paketler_21.01.2021-14.36.xls

Makro ile bir excel dosyası aktivasyon işlem kodunu mesela "dosya isminin ilk 10 karakteri şöyleyse" şeklinde yapmak mümkün mü?
Teşekkürler.

 

[PLİNT]

Merhaba
Kırmızı kısmı daraltabilirsiniz (paketler_21.*xls gibi)


ChDir ThisWorkbook.Path
dosya = ThisWorkbook.Path & "\paketler_21.01.2021*xls"
Workbooks.Open Dir(dosya)

 

[GursoyC]

Çok teşekkür ederim.
Saygılar.

 

[PLİNT]

Rica ederim, saygı bizden, kolaylıklar dilerim.

 

[GursoyC]

Sayın @PLİNT,
verdiğiniz kod dosyayı açmak için gayet güzel çalışıyor. Ancak ben bu açılmış bir dosyada .activate komutunu aynı şekilde kullanamıyorum.
şu 3 şekilde de denedim ama hiçbiri olmadı:

Workbooks("paketler_21*.xlsx").activate
Workbooks("paketler_21*xlsx").activate
Workbooks("paketler_21.*xlsx").activate

Kod kısmını nasıl düzeltmem gerekiyor yardımcı olur musunuz?

 

[PLİNT]

Merhaba
Aşağıdaki örneklerden herhangi birini kullanabilirsiniz;
1_Dosyayı kodlarla açarken dosyanın adını; sizin kodlarınızda kullandığınız\kullanmak istediğiniz ad ile değiştirmek

ChDir ThisWorkbook.Path
dosya = ThisWorkbook.Path & "\paketler_21*xls"
Name Dir(dosya) As ThisWorkbook.Path & "\" & "paketler_21" & ".xls"
Workbooks.Open Dir(dosya)
Workbooks("paketler_21.xls").Activate

İlgili adresteki "paketler_21.01.2020-14.36.xls" , dosyasının adı "paketler_21.xls" olarak değişecektir; makrolarınızda bu ismi kulanabilirsiniz


2_Kod sayfınızın başına "Public dsy As Workbook" yazarak açtığımız dosyayı "dsy" ile tanımlarız

Public dsy As Workbook

Private Sub CommandButton1_Click()
ChDir ThisWorkbook.Path
dosya = ThisWorkbook.Path & "\paketler_21*xls"
Workbooks.Open Dir(dosya)
Set dsy = ActiveWorkbook
End Sub

Private Sub CommandButton2_Click()
dsy.Activate
'veya
'Workbooks(dsy.Name).Activate
MsgBox dsy.Name
End Sub

3_Aşağıdaki şekildede dosyayı aktif etmeniz gereken makro içinde "paketler" dosyasını tanıtarak

For Each cv In Application.Workbooks
If "paketler_21*xlsx" Like cv.Name Then
Set dsy = cv
End If
Next
dsy.Activate

Not: Bu gelen dosyalar gün, gün, saat,saat birikiyorsa en son gelen dosyanın açılması için ayrı kod yazmak gereklidir.

 

[PLİNT]

yukarıdaki 3. örnekte "xlsx" "xls" olacaktı
For Each cv In Application.Workbooks
If "paketler_21*xls" Like cv.Name Then

1.örnek tede dosyayı adı değiştikten sonra; açmak için aşağıdaki kırmızı satırda kullanılabilir
ChDir ThisWorkbook.Path
dosya = ThisWorkbook.Path & "\paketler_21*xls"
Name Dir(dosya) As ThisWorkbook.Path & "\" & "paketler_21" & ".xls"
'Workbooks.Open Dir(dosya)
veya
Workbooks.Open ThisWorkbook.Path & "\" & "paketler_21.xls"
Workbooks("paketler_21.xls").Activate

 

[GursoyC]

Çok teşekkür ederim. Gayet açıklayıcı. Ellerinize sağlık.