Uri = "http://hq.sinajs.cn/func=list=s_sh000001,s_sz399001,s_sh000300,s_sh000043,s_sh000011,s_sz399305,s_sz399903"
Sheet5.Cells(100, 100).Value = Uri
Inet1.Protocol = icHTTP
mystr = Inet1.OpenURL(Sheet5.Cells(100, 100).Value)
Sheet5.Cells(100, 100).Value = ""
'开始分析返回结果
x = 32
y = 3
ss = 0
For i = 1 To 7
' ss = InStr(ss, mystr, ",")
en = InStr(ss + 1, mystr, ",")
en1 = InStr(en + 1, mystr, ",")
en2 = InStr(en1 + 1, mystr, ",")
'str1 为现价
str1 = Mid(mystr, ss + 1, en - ss - 1)
'str2 为变动价
str2 = Mid(mystr, en + 1, en1 - en - 1)
'str3 为变动百分比
str3 = Mid(mystr, en1 + 1, en2 - en1 - 1)
Sheet2.Cells(x, y).Value = str2
Sheet2.Cells(x, y + 1).Value = str3 / (str2 - str3)
If x = 32 Then
x = 33
Else
x = 32
y = y + 3
End If
ss = InStr(en2, mystr, ";")
Next i
分享到:
相关推荐
20210723-方正证券-基金研究系列8:汇添富中证电池主题指数基金,电动化浪潮已至,动力电池市场前景广阔.pdf
指数基金产品研究系列报告之六十:申万菱信中证申万指数基金投资价值分析
三大国防指数-军工龙头、中证军工、中证国防历史数据、当前成分股和指数基金
20210308-申万宏源-指数基金产品研究系列报告之六十:申万菱信中证申万证券指数基金投资价值分析.pdf
富国中证移动互联网指数分级证券投资基金.pptx
20210414-国信证券-中证国信价值指数及富国中证价值ETF投资价值分析:拥抱稳健成长收益.pdf
泰达宏利中证财富大盘指数证券投资基金托管协议.doc
20210207-中证指数-债券指数化投资发展报告(2020).pdf
20210220-中证指数-债券指数化投资发展报告(2020).pdf
20210207-中证指数-债券指数化投资发展报告.pdf
:选取上市公司的股票在沪深300指数和中证500指数中的变动作为工具变量。具体地 ,设置了2个虚拟变量:若股票由非中证500升入中证500,则变量In500为1, 否则为0;若股票上一期由中证500升入沪深300,则变量In300为1,...
中证指数-当ESG遇上Smart Beta-2020.pdf
中证指数-公募基金参与转融券业务_的分析报告10页.pdf
中证指数-债券指数化投资之利率债指数-2020.5-12页精品报告.pdf
中证指数-中证国开债指数与时俱进,资产配置正当时-2020.7-9页精品报告2020.pdf
20210222-申万宏源-指数基金产品研究系列报告之五十五:南方中证申万有色金属ETF投资价值分析.pdf
中证指数-债券指数化投资发展报告-2021.01-22页.rar
中证指数-债券指数化投资发展报告-2021.01-22页.pdf
中证报私募基金走进江西实用教案.pptx