股票行情数据vba代码

Ⅰ 如何用EXCEL表中的数据制作出股市行情走势图

通过录制“宏”获得VBA程序代码，然后编辑完善VBA程序代码，编好后运行程序即可获得股票走势图。

Ⅱ 怎样用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

Ⅲ 查看股票行情的代码是什么有什么用呢

股票代码一点都不难理解，每串代码就像一只股票的“身份证”一样，用“平安银行”来举例说明吧，它的代码就是000001。

股票代码就像车牌号，买过股票都知道，股票都有代码，这个代码是方便区分而编制的一个唯一号。

就像每个车牌号前面都有“粤”“冀”“宁”等，当股票的属于不同的板块时，它前方的数字也是不一样的，有的是002xxx、有的是900xxx、有的是601xxx，接下来就为大家做出详细的解释。

解释之前，先送给大家一波福利，点击下方链接，免费领取10本炒股书籍，帮助你实现长久的股市盈利：股市入门必读10本精选书

一、股票代码怎么区分？

目前有很多种股票代码，我大致介绍几种比较常见的：

1、A股

A股是指人民币普通股票，是由我国境内公司发行，供境内（不含港澳台）投资者交易的股市。

沪市A股的代码打头数字是600或601，深市A股的代码打头数字是000。

2、B股

B股是指人民币特种股票，以人民币标明面值，供投资者以美元或者港币交易的股市。

沪市B股的代码采用的打头数字通常是900，深市B股一般规定200是代码打头数字。

3、创业板

大家说的二板市场说的就是创业板，上市的要求会要不是那么严格，创业板，顾名思义主要是中小型和创业型公司，这类企业没有很长的成立时间、业绩也不是很好，但是成长空间比较大，那些比较机灵的股民购买真的是再合适不过了。

创业板的代码都是以300作为打头数字。

不光这些多见的板块，一些带字母的股票也不罕见，比如这几种代码：XR、XD、*ST等分别都表示什么意思呢？

1、XR

它代表这类股票目前已被除权，也就是说带有XR字样的股票，从今往后没有了分红的权利。

2、XD

这类股票是除息，说白了就是派息权利被取消了。

3、*ST

这类股票是指公司连续三年亏损，对于新手来说千万不要看有退市风险的股票。

Ps：新手炒股的话，我还是建议选择那些龙头股，发展前景好、盈利稳定，和那些刚上市的公司相比，风险相对小一些。这里我也总结了各行业的龙头股，点击链接即可免费领取：吐血整理！各大行业龙头股票一览表，建议收藏！

二、股票代码怎么查询？

股票代码可以在很多软件/网站中进行查询。

这里我再免费送大家9大炒股神器，不仅能轻松查询股票代码，还能帮助大家收集分析数据、了解行情，是我从使用过的几十种工具中总结出来的，新手用了能少走很多弯路：炒股的九大神器免费领取（附分享码）

应答时间：2021-08-16，最新业务变化以文中链接内展示的数据为准，请点击查看

Ⅳ 怎样用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

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

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

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

Ⅶ 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秒刷新一次，可以改成你想要的数值。

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

Ⅷ 用vba求股票中一分钟内的开、高、低、收

代码如下,详见附件

Private Sub CommandButton1_Click()

Dim Max!, Min!, Ro%, Rom%, T1 As Date, Tim As Date

Ro = 1: Rom = [A65536].End(3).Row + 1

Range("d2:h1441").ClearContents

For i = 2 To Rom

T1 = TimeSerial(Hour(Cells(i, 1)), Minute(Cells(i, 1)), 0)

If T1 <> Tim Then

Tim = T1

If Ro > 1 Then

Cells(Ro, 6) = Max

Cells(Ro, 7) = Min

Cells(Ro, 8) = Cells(i - 1, 2)

End If

Ro = Ro + 1

If i < Rom Then Cells(Ro, 4) = Tim

Cells(Ro, 5) = Cells(i, 2)

Max = Cells(i, 2)

Min = Max

Else

If Cells(i, 2) > Max Then Max = Cells(i, 2)

If Cells(i, 2) < Min Then Min = Cells(i, 2)

End If

Next

End Sub