Sub 上海证券交易所个股历史各月成交概况()On Error Resume NextCells.Clear[a1:aa1] = Array("名称", "代码", "年月", "月初开市价", "月末收市价", "成交价最高", "时间", "成交价最低", "时间", "月度总成交量（万股）", "最高", "时间", "最低", "时间", "月度总成金额（万元）", "最高", "时间", "最低", "时间", "成交总笔数（万笔）", "换手率", "月末平均市盈率", "涨跌幅%", "振幅%", "月末市价总值", "月末流通市值", "该月累计交易日")arr = Array("productName", "id", "txDate", "openPrice", "closePrice", "maxHighPrice", "maxHighPriceDate", "minLowPrice", "minLowPriceDate", "totalVol", "maxTrVol", "maxTrVolDate", "minTrVol", "minTrVolDate", "totalAmt", "maxTrAmt", "maxTrAmtDate", "minTrAmt", "minTrAmtDate", "totalTx", "totalExchRate", "closeProfitRate", "change", "totalChange", "closeMarketValue", "closeNegoValue", "totalTxDate")Set js = CreateObject("msscriptcontrol.scriptcontrol")js.Language = "JavaScript"With CreateObject("WinHttp.WinHttpRequest.5.1").Open "GET", "?jsonCallBack=a&productId=600765&inYear=2014&prodType=1&pageHelp.pageSize=20&_=" & js.eval("Math.round(new Date().getTime())"), True.setRequestHeader "X-HttpWatch-RID", "11777-10185".setRequestHeader "Referer", "?COMPANY_CODE=600765&inYear=2014".setRequestHeader "Connection", "Keep-Alive".sendt1 = TimerDo Until Timer > t1 + 2DoEventsLooptt = Replace(Replace(.responseText, "(", "="), ")", "")js.AddCode Replace(Replace(.responseText, "(", "="), ")", "")n = js.eval("a.result.length")For i = 0 To n – 1For j = 0 To 26Cells(i + 2, j + 1) = js.eval("a.result[" & i & "]." & arr(j))Next jNext iEnd WithEnd Sub
版权声明：本文为博主原创文章，，未经博主允许不得转载。
如果前世五百次眸回，才换来今生的擦肩而过。
