VBA获取基金净值

whfkxl

求助用VBA获取基金净值
网页  http://jingzhi.funds.hexun.com/database/jzzs.aspx?fundcode=519962

获取网页中的基金净值

whfkxl

请多路高手帮帮忙啊

cn6181

没有太明白你的意思？这个基金净值指的是？？？得说明清楚了，大家才能帮忙解决

whfkxl

就是网页中哪个基金历史净值

whfkxl

帮帮忙，大侠们

fxl447098457

whfkxl 发表于 2017-11-11 13:36
帮帮忙，大侠们

Sub zq()
    Dim url As String, tt As String
    If Not IsEmpty(ActiveSheet.UsedRange) Then ActiveSheet.UsedRange.Clear
      With CreateObject("msxml2.xmlhttp")
        url = "http://jingzhi.funds.hexun.com/database/jzzs.aspx?fundcode=519962"
            .Open "POST", url, False
            .send
            tt = .responsetext
        tt = "<table class=""n_table m_table" & Split(Split(tt, "n_table m_table")(1), "</table>")(0) & "</table>"
            With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
                .SetText tt
                .PutInClipboard
            End With
        [A1].Select: ActiveSheet.Paste
    End With
    MsgBox "获取完毕"
End Sub

whfkxl

fxl447098457 发表于 2017-11-11 13:49
Sub zq()
    Dim url As String, tt As String
    If Not IsEmpty(ActiveSheet.UsedRange) Then Acti ...

谢谢!试了试，完全没问题。

majia13

感谢分享，大神

majia13

前辈不知能加个自己输入代码后提取吗已经非常感谢

myhyday

fxl447098457 发表于 2017-11-11 13:49
Sub zq()
    Dim url As String, tt As String
    If Not IsEmpty(ActiveSheet.UsedRange) Then Acti ...

感谢分享，这个有用！