求助网页文件vba下载问题

sbboo

网页网址：http://op1.titan007.com/oddslist/1557770.htm  
网页下面有一个“导出Excel”数据文件，可以导出网页中的表格数据，“导出Excel”数据文件地址为：http://op1.titan007.com/ExportExcelNew.aspx  以下程序可以执行导出Excel，但导出的数据文件打开后却不是本网页数据。请各位指教。

Dim myFolder As String，Obj As Object
myFolder = ThisWorkbook.Path & "\下载"
For Each Obj In CreateObject("Shell.Application").Windows
If InStr(Obj.LocationURL, "op1") Then
    Dim myIE As SHDocVw.InternetExplorer
    Set myIE = Obj
    Do While myIE.Busy Or myIE.ReadyState <> 4
        DoEvents
    Loop
    URLDownloadToFile 0, "http://op1.titan007.com/ExportExcelNew.aspx", myFolder & "\导出Excel.xls", 0, 0
End If
Next

剑指E

sbboo

谢！给二楼剑指E点赞

perfect131

sbboo 发表于 2023-3-19 08:42
谢！给二楼剑指E点赞

URLDownloadToFile 不稳定而且有时很慢，还是协议最好 post ,get
http://1x2d.titan007.com/1557770.js   game就是数据