Webden Selenium ile excel dosyası indirme

Merhabalar;
Şifreli bir web sitesinden vba selenium ile giriş yapıyorum. İlgili sayfaya geliyorum excel dosyasını indiriyorum fakat indirdiğim dosya adı otomatik olarak isimli geliyor.
Ben bu indirilen excel dosyasının hep aynı isimle açılmasını istiyorum.
Konu hakkında yardımlarınızı rica ederim.
Saygılarımla


Sub Hesap_Hareketleri()
Dim x As New Selenium.WebDriver, DosyaYolu As Variant
DosyaYolu = ThisWorkbook.Path
'x.AddArgument "--headless"
x.SetPreference "download.default_directory", DosyaYolu
x.SetPreference "download.default_upgrade", True

On Error Resume Next

x.Start "Chrome"

x.Get "................................."

x.Get "..................................."
x.FindElementById("ctl00_maincontent_txtFirmCode").SendKeys "..............."
x.FindElementById("ctl00_maincontent_txtUserName").SendKeys "................"
x.FindElementById("ctl00_maincontent_txtPassword").SendKeys ".................."
x.FindElementById("ctl00_maincontent_btnLogin").Click
x.FindElementById("ctl00_ctl00_maincontent_UCFavoriteMenuV2_rptFavoriMenu_ctl00_imgMenu").Click
x.FindElementByXPath("/html/body/form/div[5]/div[2]/div/div[2]/div/div/div[2]/div/div[1]/div/div[2]/div[1]/div[4]/div[2]/div/button").Click
x.FindElementByXPath("/html/body/form/div[5]/div[2]/div/div[2]/div/div/div[2]/div/div[1]/div/div[2]/div[1]/div[4]/div[2]/div/ul/li[1]/div/input").SendKeys "gv"
Application.Wait (Now + TimeValue("0:00:03"))
x.FindElementByXPath("/html/body/form/div[5]/div[2]/div/div[2]/div/div/div[2]/div/div[1]/div/div[2]/div[1]/div[4]/div[2]/div/ul/li[2]/a/label").Click
Application.Wait (Now + TimeValue("0:00:03"))
x.FindElementByXPath("/html/body/form/div[5]/div[2]").Click
x.FindElementByXPath("/html/body/form/div[5]/div[2]/div/div[2]/div/div/div[2]/div/div[3]/input").Click
x.FindElementByXPath("/html/body/form/div[5]/div[2]/div/div[2]/div/div/div[2]/div/div[4]/div/div[2]/div[1]/a[1]/i").Click
Application.Wait (Now + TimeValue("0:00:05"))
MsgBox ("işlem tamamlandı")

End Sub