众所周知，上班是不能炒股的，也不能玩手机，那么如何看行情呢。很简单，用VBA写个宏在excel表格里面自动读取数据就好
有了这个东西，excel表格中分析概率计算各种指标，那不是信手拈来。Excel的数据分析功能非常强大，你可以利用它进行概率分析、风险评估等。例如，通过蒙特卡洛模拟，可以预测股票价格的波动范围，从而制定相应的投资策略。
图例：按照这样复制粘贴到VBA宏
excel自动化vba读取通达信源代码
Public Const 通达信目录 = "D:\tdx\"
Public Const 期货日线目录 = 通达信目录 & "vipdoc\ds\lday\"
Public Const 期货5分钟目录 = 通达信目录 & "vipdoc\ds\fzline\"
Public Const 通达信期货分类文件 = 通达信目录 & "T0002\hq_cache\code2name.ini"
Public Const 上海股票日线目录 = 通达信目录 & "vipdoc\sh\lday\"
Public Const 上海股票5分钟目录 = 通达信目录 & "vipdoc\sh\fzline\"
Public Const 深圳股票日线目录 = 通达信目录 & "vipdoc\sz\lday\"
Public Const 深圳股票5分钟目录 = 通达信目录 & "vipdoc\sz\fzline\"
Type MyType
a1 As Long '日期
a2 As Long '开盘价
a3 As Long '最高价
a4 As Long '最低价
a5 As Long '收盘价
a6 As Single '成交金额
a7 As Long '成交量
a8 As Long '李津
End Type
Sub Update()
Dim temp As MyType, Irow&, File1%, hy$, t As Single, Rarr(), Karr(), kcount%, i%, x%
t = Timer
hy = 上海股票日线目录 & "sh999999.Day "
File1 = FreeFile
Open hy For Binary Access Read As #File1
Irow = 1
Do While Not EOF(File1)
ReDim Preserve Rarr(1 To 13, 1 To Irow)
Get #File1, , temp
Rarr(1, Irow) = Format(temp.a1, "0000-00-00")
Rarr(2, Irow) = temp.a2 / 100
Rarr(3, Irow) = temp.a3 / 100
Rarr(4, Irow) = temp.a4 / 100
Rarr(5, Irow) = temp.a5 / 100
Rarr(6, Irow) = temp.a6
Rarr(7, Irow) = temp.a7
Irow = Irow + 1
Loop
Close #File1
Karr = Application.Transpose(Rarr)
With Sheet2
.Range("A2:G" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
.Cells(2, 1).Resize(Irow - 2, 13) = Karr
End With
End Sub
excel自动化成品效果：
