vba写股票板块行情数据

1. 1、如何将财经类网上股票历年分红数据提取到EXCEL表里，并获取股票实时价格

回答此类问题的描述会被网络知道判违规。

请在“数据”选项下的“自网站”进行相应的操作，然后设置数据更新频率，即可。

2. EXCEL如何用VBA自动获取每个股票近几天的涨幅

excel大量获取数据是比较慢的 你这种得用vb写dll多线程刷新数据才行 私聊

3. 求高手帮我编一个同花顺k线界面加入该股板块和概念题材显示的公式。

公式:DRAWTEXT_FIX(CURRBARSCOUNT=1，0，0，0，BLOCK(0，0)+BLOCK(1，0)+BLOCK(2，0)+BLOCK(3，0))同花顺股票软件是一个提供行情显示、行情分析和行情交易的股票软件，它分为免费PC产品，付费PC产品，电脑平板产品，手机产品等适用性强的多个版本。同花顺股票软件注重各大证券机构、广大股民的需求和使用习惯，同花顺股票软件全新版免注册。全新版同花顺股票软件新增强大功能：自主研发的搜牛财经及自定义选股，新增通达信模式。2015年8月18日，收到证监会《调查通知书》，因公司涉嫌违反证券期货法律法规，根据有关规定，证监会决定对公司进行立案调查。操作环境:版本:v2.9.6安卓版
拓展资料
同花顺业务分类:
1、证券信息服务软件
证券信息服务软件，具体来说，是指向股民提供通过互联网炒股的软件、软件涵盖大量的信息和数据。同花顺软件全部可以通过公司网站和其他网站下载方式免费获取，基本行情数据也是免费向广大投资者提供，并通过提供增值证券服务收取费用。公司注册用户数已经超过7，200多万人，每日使用同花顺网上行情免费终端的客户约300多万人。
2、手机证券软件
手机证券软件，最典型的产品就是手机炒股。手机移动通讯和互联网经过几年的高速发展，均已经积累了庞大的客户群。两网的相互融合，已经成为未来发展的趋势。随着无线网络技术的发展，尤其是3G网络的推出，手机财经信息服务必将是继网上交易之后的最重要的服务方式之一，也必将成为公司业绩增长的主要动力。同花顺拥有400万的手机财经用户，每天通过移动网络，向手机用户提供数据、信息、行情和交易通道服务。
3、交易系统软件
交易系统销售和维护是公司的传统业务，主要向券商等机构提供证券交易平台等系统，以及收取相应的维护费收入。

4. 跪求高手帮我写VBA程序，把所有股票（上证和深证等）当日和前5日收盘价、成交量和流通股列出来

这个功能在一般的股票软件上自带，不需要额外编写程序或公式，我用的是通达信，操作步骤如下：打开软件，进入板块行情---点版面上方的“报表分析”---选择“阶段排行”---设置“起始日期”等---点“确定”---然后在板块行情页面，在上方任一显示栏目上点右键，换成你想关注的基本栏目，如收盘价、成交量、流通盘、流通市值，即可。

股票公式专家团为你解答，希望能帮到你，祝投资顺利。

5. excel股票自动刷新，VBA代码如何写啊

我测试了下发现是鼠标放上去悬停才能触发刷新数据的动作。。。

sheet1里写：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

宏2

End Sub

模块1里写：

Sub 宏2()

'

' 宏2 宏

ActiveWorkbook.RefreshAll

If Sheet1.[G1] <> "停止刷新" Then Application.OnTime (Now + TimeSerial(0, 0, 2)), "宏2"

End Sub

亲测OK。

TimeSerial(0, 0, 2) 里面的2就是每2秒刷新一次，可以改成你想要的数值。

这个是我录制宏，再稍微修改下，几分钟完成的。

6. 如何用Excel制作股票实时行情图

制作实时股票行情图，应包含如下内容：1.股票数据表，2.股价图，3.实时从网上下载数据的功能
第一步：制作数据表，数据-导入外部数-新建WEB查询 写入该数据来源地址
第二步：制作股价图，先用公式按股价图要求的顺序引用到当前表，再插入图表-选股价图（第4种）调整图表
第三步：编写程序以实现实时刷新功能，可将以下程序按其要求的位置复制过去

'在模块中编写如下程序段用于刷新行情表，"00:00:10"表示刷新时间间隔，可根据需要进行调整

Dim 结束标记
Sub 刷新行情()

Sheets("日线数据").Range("A1").QueryTable.Refresh
BackgroundQuery:=False

Sheets("分笔数据").Range("A1").QueryTable.Refresh
BackgroundQuery:=False
If 结束标记
<> 1 Then Application.OnTime Now +
TimeValue("00:00:10"), "刷新行情"
End Sub
Sub 开始刷新()
结束标记 = 0
刷新行情
End Sub
Sub 结束刷新()
结束标记 = 1
End Sub

'在thisworkbook中编写如下代码用于打开该表时就启动行情刷新

Private Sub Workbook_Open()
刷新行情
End Sub

以上制作完成，保存后打开该表，可得到实用的股票行情图，并可得到实时数据用于数据分析

7. 在EXCEL里用VBA编程，对选择的数据作股票图

EXCEL折线图根本就不可能有这么复杂，VBA画图取点与表格实际坐标之间对应又不确定和关系复杂，所以EXCEL不适合做这类工作。

8. 用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(',');
}

9. 求VBA代码运算得到行业指数数据

10. 怎样用excel 实时读取 股票日线数据

定量分析的第一步，是获取数据。
获取股票历史行情数据最方便的途径，就是直接读取股票行情软件留在你电脑中的日线数据文件。
但如果不是程序员，电脑里一般不会有VB、VC之类的编程语言。
其实，大家的电脑中一般都有OFFICE。OFFICE中的EXCEL自带了一个VBA语言的编程环境。功能也很强大。
我用EXCEL里的VBA编写了一段代码，读取通达信股票行情软件的日线文件。已经测试通过。
代码如下。与爱好定量分析的朋友分享。
TypeMyType
a1AsLong'标示码
a2AsLong'日期
a3AsSingle'开盘价
a4AsSingle'最高价
a5AsSingle'最低价
a6AsSingle'收盘价
a7AsSingle'成交金额
a8AsLong'成交量
EndType
Sub按钮1_Click()
DimFile2AsInteger
DimbAsMyType
File1=FreeFile
Opensh600000.dayForBinaryAccessReadAs#File1i=1DoWhileNotEOF(File1)
Get#File1,,b
Cells(i,1)=b.a1
Cells(i,2)=b.a2
Cells(i,3)=b.a3
Cells(i,4)=b.a4
Cells(i,5)=b.a5
Cells(i,6)=b.a6