㈠ VB 修改一个股票行情监测脚本 到了预定的股价就启动程序a.exe
Dim file1, file2 As String
Private Sub Command1_Click()
If Val(Text1.Text) > Val(Text2.Text) Then Shell (file1)
'text2.text为大于这个值时 执行
If Val(Text1.Text) < Val(Text3.Text) Then Shell (file2)
'text3.text为小于这个值时 执行
End Sub
Private Sub Command2_Click()
WebBrowser1.Navigate "http://.hexun.com/stock/q.php?code=" & Text4.Text
End Sub
Private Sub Command3_Click()
CommonDialog1.DialogTitle = "选择路径"
CommonDialog1.ShowOpen
file1 = CommonDialog1.FileName
End Sub
Private Sub Command4_Click()
CommonDialog1.DialogTitle = "选择路径"
CommonDialog1.ShowOpen
file2 = CommonDialog1.FileName
End Sub
Private Sub Form_Load()
Timer1.Interval = 6000
End Sub
Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser1.object) Then Exit Sub
Dim wenben As String
Dim a() As String
wenben = Me.WebBrowser1.Document.Body.innerText
a = Split(wenben, vbCrLf)
Text1.Text = wenben
For i = 0 To UBound(a)
If InStr(a(i), "代码:") > 0 And InStr(a(i), ".s") > 0 Then
Text1.Text = Right(a(i), (Len(a(i)) - InStr(a(i), ".s")) - 2)
Text5.Text = Mid(a(i), InStr(a(i), ".s") + 1, 2)
Exit For
End If
Next i
End Sub
㈡ 用VB 读取通达信实时股票数据(现价，涨幅)
关键是接口
我估计现在没有免费的接口了！！！
所以你想自己编程获取实时数据，几乎不可能了！！！
总之，没有有效的网络实时数据支持，这是开源股软的最致命的地方！！！
㈢ 求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%的天数比例大的股票，说明股票涨幅多，但是不能确定跌幅，所以以后的课程还会介绍分析涨幅和跌幅的比例，分析股票的波动性。
㈣ 如何查询股票实时价格啊.
我用过不少股票软件,大智慧,指南针,分析家等等.都不错,还是看个人用的习惯,
给你个股票软件下载地址.我说的股票软件都有了.
http://www.guminjia.com
㈤ EXCEL如何用VBA自动获取每个股票近几天的涨幅
一般网页上的数据都可以通过VBA进行抓取，应用得好，可以实现对很很多资料的动态监测。
涨幅就是指目前这只股票的上涨幅度。
涨幅的计算公式：涨幅=(现价-上一个交易日收盘价）/上一个交易日收盘价*100%
例如：某只股票价格上一个交易日收盘价100，次日现价为110.01，就是股价涨幅为（110.01-100 ）/100*100%=10.01%.一般对于股票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌，价格和前一个交易日持平。如果涨幅为负则称为跌幅。
比如:一支股票的涨幅是：10%、-5%等 。
㈥ 我如何在网上查询目前某个股票的价格,谢谢
有很多软件可以在网上下载，不下载软件想在网上看到一只股票的行情也不难。找到一个网站比如和讯，点击后出现首页，再点股票代码，会找到这只股票行情的。
㈦ VB如何读取股票大盘数据，20秒更新一次，并动态的显示到文本框中，请高手帮忙
这个要连接数据库的。。
㈧ 求vb高手 做一个软件实现股票自动买卖 我会通过另一个软件计算买卖时间和价格，用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(',');
}