网页网址：http://op1.  
网页下面有一个“导出Excel”数据文件，可以导出网页中的表格数据，数据文件地址为：http://op1.  以下程序可以执行导出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., myFolder & "\导出Excel.xls", 0, 0
 End If
Next