用VBA创建自定义序列数据（附源码）

通达信在公式系统中，提供了用户自定义序列数据，自定义序列数据和O,C,L,H一样，可以在主图或副图中画出来，也可以用在选股公式中，但创建自定义数据非常麻烦，你需要整理一个标准格式文本一个一个导入进去，由通达信转换为一个一个序列数据文件，这种作业简直让人崩溃。
有没有一种方案来批量处理这种作业？肯定有，一种简单的方法就是用EXCEL VBA来处理，作业很简单，序列数据就两个数据“日期，值”，将你收集到的序列数据写入一个按股票代码命名的2进制即可，数据文件命名规则：
1）深市：0_xxxxxx.dat
2）沪市：1_xxxxxx.dat

处理函数如下：

'写入自定义序列数据，供TDX读取
Sub write_ext_data(FileName As String, thedate As Long, Amount As Single)
    Dim FileNumber
    FileNumber = FreeFile()
    Open FileName For Binary As #FileNumber
    Put #FileNumber, LOF(FileNumber) + 1, thedate
    Put #FileNumber, LOF(FileNumber) + 1, Amount
    Close #FileNumber
End Sub

比如序列数据号为100，000516的序列数据文件 E:\TdxData\T0002\signals\signals_user_100\0_000516.dat
调用：

FileName=E:\TdxData\T0002\signals\signals_user_100\0_000516.dat ,文件目录参照自己的机器目录
thedate=20190604
Amount=21.34
call write_ext_data(FileName,thedate,Amount)

本来想上传几张图，让大家看的明白点，改版后连图片都上不了了。