|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
想要从网页抓取“跟踪标的”和“基金规模”的数据,用excel打开网页真是一个大坑,速度太慢而且经常未响应。研究了CreateObject("MSXML2.XMLHTTP")一整天,不得要领,因此上来求各位大侠相助。谢谢!
Sub coll_fund_data()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim fs, i%, j%, p%, b%, k%, c%, tt$, pp%, arr(1 To 20000, 1 To 4), prr(1 To 20000, 1 To 1) As Integer, xg$, fil$, ff$, til$, zz$
Dim zt$, ut$, d%, bg$, u%
zz = "http://fund.eastmoney.com/"
std = ".html"
With ThisWorkbook
With .Worksheets(1)
pp = .[b65536].End(xlUp).Row
k = 1
For i = 2 To pp
ff = .Cells(i, 2)
zt = zz & ff & std
Workbooks.Open zt, 0
With ActiveWorkbook
With .Worksheets(1)
For irow = 110 To 122
For icol = 1 To 4
If Left(.Cells(irow, icol), 4) = "跟踪标的" Then arr(k, 1) = Mid(.Cells(irow, icol), 6, 8)
If Left(.Cells(irow, icol), 4) = "基金规模" Then arr(k, 2) = Mid(.Cells(irow, icol), 6, 6)
Next icol
Next irow
End With
.Close False
End With
k = k + 1
Next i
End With
With .Worksheets(2)
.[a1].Resize(k - 1, 2) = arr
End With
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
|
|