Sub 融资融券交易明细()Range(Cells(1, 1), Cells(1, 13)) = Array("代码", "", "简称", "融资融券余额差(元)", "交易日期", "融券卖出量(股)", "融券卖出量(股)", "融券余额(元)", "融券余量(股)", "还款额(元)", "融资买入额(元)", "融资融券总额(元)", "融资余额(元)")With CreateObject("WinHttp.WinHttpRequest.5.1").Open "GET", "?type=FD&sty=MTE&mkt=2&code=002106&st=0&sr=1&p=1&ps=50000&js=var a={pages:(pc),data:[(x)]}", False '深证'.Open "GET", "?type=FD&sty=MTE&mkt=1&code=600111&st=0&sr=1&p=1&ps=50000&js=var a={pages:(pc),data:[(x)]}", False'上证.sends = .ResponseTextWith CreateObject("scriptcontrol").Language = "jscript".addcode sFor i = 0 To .Eval("a.data.length") – 1For j = 0 To 12Range(Cells(i + 2, 1), Cells(i + 2, 13)) = Split(.Eval("a.data[" & i & "]"), ",")Next jNext iEnd WithEnd WithCells.Columns.AutoFitEnd Sub
，见所未见，闻所未闻。
