Question

以前有固定名称的 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”）是不变的。所以也许它可以用来代替宏中的文件名，但我不知道我该怎么做。

感谢您的帮助。

我在下载文件时遇到问题

0 个答案: