Sub getifo()
Dim str As String
Dim t
t = Timer
For m = 2 To Sheets("URL").Range("A1048576").End(xlUp).Row
URL = Sheets("URL").Cells(m, 1)
With CreateObject("internetexplorer.application")
.Navigate URL
While .busy Or .readystate <> 4: Wend
On Error Resume Next
Sheets("数据表").Cells(m, "A") = .Document.getElementsByTagName("TD")(2405).innertext
Sheets("数据表").Cells(m, "B") = .Document.getElementsByTagName("TD")(2407).innertext
Sheets("数据表").Cells(m, "C") = .Document.getElementsByTagName("TD")(2409).innertext
Sheets("数据表").Cells(m, "D") = .Document.getElementsByTagName("TD")(2411).innertext
Sheets("数据表").Cells(m, "E") = .Document.getElementsByTagName(