问题描述
以前有固定名称的 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”)是不变的。所以也许它可以用来代替宏中的文件名,但我不知道我该怎么做。
感谢您的帮助。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)