Sub-listed company announcement query () with CreateObject ("winhttp.winhttprequest.5.1"). Open "GET", "Http://www.cninfo.com.cn/disclosure/fulltext/stocks/fulltext1y/cninfo/002106.js", False. Send S = Bytestobstr (. Responsebody, "GB2312") with CreateObject ("ScriptControl"). Language = "JScript". Addcode s for i = 0 to. Eval ("Szzbaffiches.length")-1 Cells (i + 1, 1) = "http://www.cninfo.com.cn/" &. Eval ("szzbaffiches[" & I & "][1]") Cells (i + 1, 2) =. Eval ("szzbaffiches[" & I & "][2]") Cells (i + 1, 3) =. Eval ("szzbaffiches[" & I & "][5]") Next I End With End with Cells.Columns.AutoFitEnd Subfu Nction bytestobstr (strbody, CodeBase) Dim objstream Set objstream = CreateObject ("ADODB.stream") with objstream . Type = 1. Mode = 3. Open. Write strbody. Position = 0. Type = 2. CharSet = CodeBase ByteStobstr =. ReadText End with objstream.close Set objstream = NothingEnd Function
Public company Announcement Inquiry