当前位置:首页 » 代码百科 » VB快速获取股票代码列表
扩展阅读
股票交易依据分析报告 2025-06-22 18:29:17
股票几没有交易预示什么 2025-06-22 16:43:45

VB快速获取股票代码列表

发布时间: 2021-07-29 20:43:16

① 用VB 读取通达信实时股票数据(现价,涨幅)

关键是接口

我估计现在没有免费的接口了!!!

所以你想自己编程获取实时数据,几乎不可能了!!!

总之,没有有效的网络实时数据支持,这是开源股软的最致命的地方!!!

② 用VB如何直接获取股票实时数据

可以通过调用ChinaStockWebService的服务来实现获取股票的实时数据,代码如下:

publicstring[]getStockInfo(stringstockcode)
{

//stringurl="http://hq.sinajs.cn/list="+stockcode;
//stockcode某只股票的代码
stringurl="http://hq.sinajs.cn/list=sh600683";
WebClientclient=newWebClient();
client.Headers.Add("Content-Type","text/html;charset=gb2312");
Streamdata=client.OpenRead(url);
StreamReaderreader=newStreamReader(data,Encoding.GetEncoding("gb2312"));
strings=reader.ReadToEnd();
reader.Close();
data.Close();
returns.Split(',');
}

③ 如何找到A股的所有股票的代码比如网址或URL等

要找到完整的所有股票代码、以及其它交易品种、以及公开信息,最完整莫过于在交易所的网站上,并且是随着上市公司的增加、交易品种的增加,会不断的更新。
比如:
上海证券交易所
http://www.sse.com.cn/
上市公司代码列表
http://www.sse.com.cn/assortment/stock/list/name/
信息披露
http://www.sse.com.cn/disclosure/

深圳证券交易所
http://www.szse.cn/
股票交易品种
http://www.szse.cn/main/marketdata/jypz/colist/
信息披露
http://www.szse.cn/main/disclosure/

④ 求VB代码自动计算好,每个excel文件内涨幅,涨幅是等于(收盘-开盘)/开盘

一、数据准备阶段
1
先打开同花顺股票软件电脑版,点击进入任意一只你打算分析的股票。

2
点击左上角的“分析”选择“历史成交”。

3
这时我们就可以看到这只股票从发行到今天的所有历史基本交易数据。

4
在任意一行数据上点击鼠标右键,点击“导出数据”,选择“导出所有数据”。

5
如图,
1)点击浏览,选择好文件保存的位置。
2)修改文件名为股票名称和股票代码,方便日后查看,以免出现分析完不知道数据属于哪只股票的情况。
3)连续点击下一步,直到完成。

END
二、数据处理阶段
1
用excel电子表格打开刚才导出保存的表格。我这里使用的是WPS,用Excel软件界面略有不同,但是方法一样,所以这里不赘述。

先把表格右边的滚动条拖到最底下,我们看到这表格代码有3483行。扣除顶部的一行标题,说明这只股票已经上市交易了3482个交易日。3482这个数据等下我们要使用。

2
在表格L1处输入“涨幅超过5%”。具体操作如图所示。

3
在L2处输入代码“=IF((E2-B2)/B2>=0.05,1,"")”代码的意思是:
=如果((收盘价-开盘价)/开盘价>或=5%,那么输入1,否则不输入)
“(收盘价-开盘价)/开盘价” 的意思就是“首日涨幅”。

其实也可以写成 =IF(F2>=5%,1,"") 但是表格中有时候会显示一些错误的代码,这个时候计算结果还是会大于5%,造成统计不精确。而且有的股票软件导出的表格具体的涨幅的位置和同花顺的不一定一样,所以解释给大家看。

使用同花顺的用户直接复制我的代码就可以了。

常见错误:1)括号,引号,逗号没有用英文半角。
2)计算公式错误比如把(E2-B2)/B2写成E2-B2/B2。
3)等号没写。

写这个公式的目的就是在涨幅超过5%的交易日后面都计数1,这样等下我们可以直接用求和公式算出涨幅超过5%的交易日总数,方便计算这只股票历史大涨的概率。

4
这时我们看到,第一个交易日,后面已经显示1了。绝大多数股票首日涨幅都是超过5%的。所以第一个数据可以验证我们公式和表格设置是否有错。

如果没有显示1,而是显示公式的话,请修改一下excel设置。

5
然后点击L3, 输入公式:“=IF((E3-E2)/E2>=0.05,1,"")”

代码的意思是:
=如果((收盘价-昨天的收盘价)/昨天的收盘价>或=5%,那么输入1,否则不输入)
“(收盘价-昨天的收盘价)/昨天的收盘价” 的意思就是“涨幅”。

6
然后单击L3,然后鼠标移动到L3框框右下角的小方块上,使鼠标变成一个十字。然后按住鼠标左键,向下拖动到最后一行。

如果行数很多,觉得拖动很累,也可以 单击L3,然后 :
1)"Shift+Ctrl+方向下按钮"
2) “Ctrl + D”
可以快速填充公式。

7
随机检查一下数据,发现没有错,然后进入下一步。

8
选择整列,可以像刚才一样手动拖动,也可以"Shift+Ctrl+方向下按钮" (推荐)

然后如图依次点击,“公式”,“自动求和”

于是我们就看到右下方出现一个数字,这个数字就是这只股票历史上涨超过5%的次数了。

9
接下来,我们只要把这个数字,除以总交易日的数目3482,就可以知道这只股票历史上大涨超过5%的概率是:4.77%

10
依同样方法,我们来随机计算另一只股票上涨超5%的概率

得到结果:5.86%

11
再用同样方法,我们来计算一下深圳指数上涨超过3%的概率,因为大盘指数波动没有那么大,所以我们设置为3%。

所以之前的公式变成:“=IF((E3-E2)/E2>=0.03,1,"")”

得到的概率是:7.59%
END
三、数据分析阶段
1
我们横向比较数据,根据历史数据发现第二只股票上涨>5%大概率更大,所以这只股票更好。超过大盘上涨概率的股票可以跑赢大盘。
2
为了精确,我们可以把2015年以前的数据全选删除,再比较一下哪个概率大。
3
数据相比大盘指数上涨偏离过高,超过20%的股票,一般最好不要选,因为说明一年内涨幅已经非常大。建议选择略高于大盘涨幅概率股票。
4
涨幅超过5%的天数比例大的股票,说明股票涨幅多,但是不能确定跌幅,所以以后的课程还会介绍分析涨幅和跌幅的比例,分析股票的波动性。

⑤ vb如何通过网络获得combobox列表

用ADO控件连接数据库举例:
在工程里找到 Microsoft ADO Control 6.0 ,拖到窗体上,默认名称是Adodc1,把他VISIBLE属性改成False不让他显示。然后在窗体加载事件里写代码,代码是:
Private Sub Form_load()
Adodc1.ConnectionString="Driver={SQL Server};Server=服务器IP;UID=数据库用户名;Pwd=数据库密码;DataBase=数据库名称"
'-----------------------------连接网络SQL数据库
Adodc1.RecordSource="Select Distinct 字段名 From 表名"
'-----------------------------查询数据表记录集合,要排除重复项
Adodc1.Refresh

'-----------------------------激活数据集合
While Not Adodc1.RecordSet.EOF
'-----------------------------给数据源做异常处理
组合框名称.AddItem Adodc1.RecordSet.Fields("字段名称")
'-----------------------------给下拉列表字段
Adodc1.RecordSet.MoveNext
'-----------------------------让列表顺序读取
Wend
'-----------------------------结束 While
End Sub
这样就算是给组合框网络数据库列表了

⑥ 如何通过excel获取股票列表

1这里以获取中国石油(601857)的行情为例,打开提供股市行情的网站,在页面的“个股查询”区域输入该股票代码,选择“实时行情”,单击“行情”按钮之后就可以查询中国石油的行情数据,接下来复制地址栏中网址。

2运行Excel,新建一个空白工作簿,选择“数据”选项卡中“获取外部数据”选项组中“导入外部数据一自网站”命令。

3弹出“新建Web查询’对话框,在地址栏中输入刚刚复制的地址,单击“转到”按钮,此时在下面的文本框中打开网站,单击“导入”按钮。

4弹出“导入数据”对话框,选择要插入的工作表,单击“确定”按钮即可。此时在工作表中导入了网站的数据。

⑦ VB如何读取股票大盘数据,20秒更新一次,并动态的显示到文本框中,请高手帮忙

这个要连接数据库的。。

⑧ 哪位哥们用VB开发过股票软件

采用vb中的浏览器控件。然后自己弄个空间弄个网站,然后弄个空白页,插入股票的代码,然后在用浏览器控件链接到上面就可以了。

⑨ 如何用VB做股票数据接收系的源代码

报价方,在开盘时共同商定价位,再实时的价位是因市场交易,自动变化的

⑩ 求vb高手 做一个软件实现股票自动买卖 我会通过另一个软件计算买卖时间和价格,用vb实现买卖过程

这个说复杂也容易,说容易也复杂。
容易就在于算法大家都知道,只要能实现查询,然后根据设计需要进行交易就是了。
复杂就在于凡属于金融领域的,不管是杀毒软件还是防火墙,都是重点监控种类。尤其是证券公司和银行,对于客户没有使用它们的终端而发生资金变动的话,那岂不是银行或证券公司的漏洞了?
要获得银行的访问权限,你看现在的银行主页,一输入密码就需要加载什么控件,那就是保护措施啊。然后证券公司的访问权限。当然,如果你的钱全部转到了证券公司,那只要证券公司的权限就可以了。

所以现在能够实现自动买卖的软件,都是证券公司自己写的程序。你现在应该知道其原因了。证券公司可不会随便让你查询它的档案的。