股票网页数据抓取VBA

莫悠悠

Private Function getData()
    Dim xml_http, url$, res$
    Set xml_http = CreateObject("msxml2.xmlhttp")
    url = "http://quotes.money.163.com/service/chddata.html?code=0601857&start=20071105&end=20200306"
    'url = "http://quotes.money.163.com/service/chddata.html?code=0" & Range("r1") & "&start=" & Range("r2") & "&end=" & Range("r3") & " ' code=0<股票代码>&start=<开始日期>&end=<结束日期>"---这段是我想实现的目的，发现运行不起作用
    With xml_http
        .Open "get", url, False
        .send
        res = .responseText
    End With
   Call write_text_to_cell(res)
End Function

Sub write_text_to_cell(res)
    Dim arr, i%, j%
    arr = Split(res, vbCrLf)
    For i = 1 To UBound(arr)
        j = 0
        For Each fd In Split(arr(i), ",")
            Cells(i + 1, j + 1) = fd
            j = j + 1
        Next
    Next
End Sub

'代码来自本站yxbaju：http://club.excelhome.net/?4056106，本脚本代码运行部分不完善，股票名称出来的格式是：口口口，换股票代码出现数据错列。代码不能与表里按钮关联。
我想实现能灵活根据表sheet1里以下参数变化抓取数据：股票代码、开始日期、结束日期、数据来源网址（详见附件）
因为不同的股票有不同的上市时间，数据有不同网址
历史交易数据        http://quotes.money.163.com/trade/lsjysj_601857.html#06f01
历史资金流向        http://quotes.money.163.com/trade/lszjlx_601857.html#01b08
以上两个网址希望能用同一脚本实现数据抓取，
="http://quotes.money.163.com/trade/lsjysj_"&$R$1&".html#06f01"（股票代码已经与单元格R1关联）
="http://quotes.money.163.com/trade/lszjlx_"&$R$1&".html#01b08"（股票代码已经与单元格R1关联）
请各位大神不吝赐教出手搭救按网友jokklx：http://club.excelhome.net/?1176405录制宏的方法又只能抓一页的数据，有局限性
在此对以上两位大神深表感谢

duquancai

又是股票！