获取深户股市列表api_有没有获取比较全面的中国股市股票数据接口

Option Explicit

Sub a()

Dim ie1 As Object, dmt As Object, r As Object, i As Long, url(1) As String, j As Long, p%

Set ie1 = UserForm1.WebBrowser1

url(0) = "http://www.shdjt.com/sh.asp"

url(1) = "http://www.shdjt.com/sz.asp"

For p = 1 To 2

With ie1

.Navigate url(p - 1)

Do Until .ReadyState = 4 And .Busy = False

DoEvents

Loop

Set dmt = .Document

End With

With Worksheets(p)

.Select

Application.ScreenUpdating = False

.[a1].CurrentRegion.Clear

Set r = dmt.All.tags("table")(11).Rows

For i = 0 To r.Length - 1

For j = 0 To r(i).Cells.Length - 1

.Cells(i + 1, j + 1) = r(i).Cells(j).innerText

Next

Next

Set dmt = Nothing

Set r = Nothing

.Range("n1").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

.Rows("2:2").Delete Shift:=xlUp

.Range("m1").Value = "ddx10(次)"

.Range("n1").Value = "ddx10(连)"

.Columns("d").NumberFormat = "@"

.[a1].CurrentRegion.Columns.AutoFit

End With

Application.ScreenUpdating = True

Next

Set ie1 = Nothing

MsgBox "下载完毕！"

End Sub