我在下载文件时遇到问题

如何解决我在下载文件时遇到问题

以前有固定名称的 excel 文件现在每次打开网站时都会显示不同的名称。所以我不能再下载文件了。

这里是我之前下载excel文件时使用的代码，

Dim oXMLHTTP As Object,i As Long,vFF As Long,oResp() As Byte,vLocalFile As String,vWebFile As String
    'You can also set a ref. to Microsoft XML,and Dim oXMLHTTP as MSXML2.XMLHTTP
   
vLocalFile = Application.ActiveWorkbook.Path & "\Tuik Endeksler.xls"
vWebFile = "https://data.tuik.gov.tr/Bulten/DownloadistatistikselTablo?p=sMXVysuuaedLY7jqIqTRPTJjtNaSSk4bjfCMOy/B20bPEhOl94J1FV9NxZxg3phH"
   
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET",vWebFile,False 'Open socket to get the website
oXMLHTTP.Send 'send request

    'Wait for request to finish
do while oXMLHTTP.readyState <> 4
    DoEvents
Loop

oResp = oXMLHTTP.responseBody 'Returns the results as a byte array

    'Create local file and save results to it
vFF = FreeFile
If Dir(vLocalFile) <> "" Then Kill vLocalFile
Open vLocalFile For Binary As #vFF
Put #vFF,oResp
Close #vFF

有没有办法在不引用文件名的情况下下载该文件。我不擅长 html 控件。

这里是excel文件的链接 https://data.tuik.gov.tr/Kategori/GetKategori?p=Enflasyon-ve-Fiyat-106

在该页面的右侧有一个标题“İstatistiksel Tablolar” 该文件位于名为“Yeni Yurt İçi Üretici Fiyat Endeksi-Bölümlerin Toplam Endeks Değişimine Etkisi (2003=100) NACE Rev.2”的行中

这个标题（“Yeni Yurt İçi Üretici Fiyat Endeksi-Bölümlerin Toplam Endeks Değişimine Etkisi (2003=100) NACE Rev.2”）是不变的。所以也许它可以用来代替宏中的文件名，但我不知道我该怎么做。

感谢您的帮助。