Dosya adı değiştirme

[serif_007]

Merhabalar;

Selenium Basic ile bir internet sitesinden excel dosyası indirip başka bir excel dosyasına veri çekiyorum. Fakat siteden çekilen excel dosyası her seferinde dosya ismini tarih ve saat olarak verdiği için sabit bir ismi yok. Bu nedenle makroyu kullanamıyorum.
1- Dosya her zaman aynı klasörde ve her zaman klasörde sadece o dosya var (tek dosya)
2- Dosyanın adı sürekli değişken
Bu klasördeki dosyanın adını örneğin rapor olarak değiştirmek istiyorum.
CR_2023-06-06 10-32.xlsx dosya ismi bu şekilde ama rapor çekildiği anda ki tarih ve saati yazdığı için değişken. bu dosyanın adını rapor.xlsx olarak değişmesi gerekiyor. Yardımlarınızı rica ediyorum.

 

[serif_007]

Sub Rename_File()

Const pathName = "C:\Users\kullanıcıadı\Downloads"  '<= Change accordingly
    
    Dim oldName As String
    Dim newName As String
    
    oldName = Dir(pathName & Application.PathSeparator & "*.*")
    oldName = pathName & Application.PathSeparator & oldName
    
    newName = pathName & Application.PathSeparator & "deneme.xlsx"
    
    Name oldName As newName
    
    End Sub

bu işimi gördü. belki başkasına faydası olur diye paylaşıyorum

 

[RBozkurt]

Kullanıcı adını sistemden alır.

Const pathName = "C:\Users\" & Environ("USERNAME") & "\Downloads"