VBA扩展插件集合

技术006

      金字塔提供VBA接口，可以有效帮助我们实现个性化的拓展功能，本帖将持续性更新汇总资深用户分享的各类插件。
在本帖的结构中，1楼作为插件目录以及插件文件的关系介绍。其余楼层则针对各个插件的使用进行说明介绍。
插件关系：
      |------1.Shared_Code.bas            公共代码部分，当使用使用以下任意插件时，必须包含此代码文件。它包含各个插件的自定义菜单、定时器等功能类型的代码，用户可以根据实际使用情况调整。
          |------2.UserForm1.frm           批量导入指定的外部板块文件，（只支持文本格式的板块文件），此示例是基于通达信板块导入的，其他同类型的板块文件格式均可导入。使用方法见2楼
          |------3.Main_Updates.bas       自动更新自建主力合约板块，示例中：自定义的主力板块，在【自选】--【我的主力】板块下（【我的主力】需要手工完成创建）。使用方法见3楼
          |------4.THS_ZX_AUTO.bas      实时同步【同花顺远航版】的自选股到金字塔中，同步的品种代码保存在【自选】--【THS_自选】板块下。使用方法说明见4楼
          |------5.TDX_ZXG_AUTO.bas      实时同步【通达信】的自选股到金字塔中，同步的品种代码保存在【自选】--【TDX_自选】板块下。使用方法说明见5楼
上述插件中，除公共代码文件1.Shared_Code.bas外，其余都可以选择性使用，但是使用者必须配置【Shared_Code.bas】相关选项。调整的代码Shared_Code代码的顶部。如下所示：

[Visual Basic] 复制代码

'**********************使用者控制功能是否启用部分*************************************************
'0代表不启用，1代表启用，使用者根据导入的插件进行配置，未安装的插件应该配置为0，以避免运行时报错。
'插件1：板块批量导入功能【2.UserForm1.frm】，例如：UserForm1_flag=1时表示开启，UserForm1_flag=0表示关闭。
'开启【板块批量导入功能】
UserForm1_flag=1

'插件2：自动更新自建主力合约【3.Main_Updates.bas】，为1时表示开启，为0表示关闭
Main_Updates_flag=0

'插件3：实时同步同花顺板块到金字塔【4.THS_ZX_AUTO.bas】，为1时表示开启，为0表示关闭
THS_ZX_AUTO_flag=0

'......省略
'*************************************************************************************************

注：VBA插件会存在修改调整的情况，使用者可以将鼠标悬浮在待下载的VBA插件上，即可看到更新时间，以此自行判断是否进行更新。

技术006

板块批量导入插件:                     
       此插件是以通达信的板块数据文件为蓝本设计，只要符合以下2种板块文件格式的数据均可导入。
           1. 文件名称作为分类名称，文件中包含【板块名称】和【股票代码】两个有效字段。（对应下图中的模式1）
           2. 文件名称作为板块名称，文件中含有【股票代码】字段。（对应下图中模式2）

               

技术006

自动更新自建主力合约:

此示例为第三方提供，仅供学习参考，用户可以根据自身需求进行逻辑调整修改。示例中：自定义的主力板块，在【自选】--【我的主力】板块下。
自动更新：默认按照60秒自动更新一次，可以根据需要自行调整，修改1.Shared_Code.bas中的：Application.SetTimer(0, 毫秒数值)
手工更新：在菜单栏的【工具】--【C++扩展】--【切换新主力】

技术006

实时更新同花顺远航版自选板块：

此示例为第三方提供，仅供学习参考，示例仅同步自选股中的A股、科创、创业板品种,用户可以根据自身需求进行修改，涉及以下重点内容：
    1.实时更新时间间隔：默认采用定时器每隔5秒检测判断是否发生更新，可以根据需要自行调整，修改1.Shared_Code.bas中的：Application.SetTimer(1, 毫秒数值)，但是不建议时间间隔过短
    2.读取板块文件路径：同花顺远航版中的板块文件路径。其中"D:\同花顺远航版\bin\users\user_name\SelfStockCache.json"，其中的user_name为使用者本地的用户目录名称
    3.板块数据存储位置：更新到金字塔的自选分类下的【THS_自选】。
上述内容涉及到的代码内容：

内容1:在1.Shared_Code.bas公共目录下，用户控制监测同花顺板块文件更新的频率。

[Visual Basic] 复制代码

'每隔5秒检测同花顺板块是否发生过更新
CAll Application.SetTimer(1, 5000)
Sub APPLICATION_Timer(ID)
    If id=1 and THS_ZXG_AUTO_flag=1 then
       THS_ZX_AUTO
    End If
End Sub

内容2：在THS_ZX_AUTO文件下，使用者根据实际同花顺的安装目录进行修改【"D:\同花顺远航版\bin\users\user_name\SelfStockCache.json"】即可：

[Visual Basic] 复制代码

' 指定要检查的文件路径,其中的user_name为自己同花顺的个人用户目录的名称
Dim THS_BK_PATH
THS_BK_PATH = "D:\同花顺远航版\bin\users\user_name\SelfStockCache.json"

内容3：在THS_ZX_AUTO文件中的第59行位置，用于将读取的板块品种保存到金字塔指定板块下，使用者根据需要修改【call Block.ToSave("自选","THS_自选")】：

[Visual Basic] 复制代码

                '更新同花顺自选板块
                call Block.ToSave("自选","THS_自选")
                Report.InitAllGrid

   

技术006

实时更新【通达信】远航版自选板块：
此示例为第三方提供，仅供学习参考，示例仅同步自选股中的A股、科创、创业板品种,用户可以根据自身需求进行修改调整，涉及以下重点内容：
    1.实时更新时间间隔：默认采用定时器每隔5秒检测判断是否发生更新，可以根据需要自行调整，修改1.Shared_Code.bas中的：Application.SetTimer(1, 毫秒数值)，但是不建议时间间隔过短
    2.读取板块文件路径：通达信的安装路径中自选股板块文件。其中"D:\new_tdx\T0002\blocknew\ZXG.blk"，
    3.板块数据存储位置：更新到金字塔的自选分类下的【TDX_自选】。内容1:在1.Shared_Code.bas公共目录下，用户控制监测同花顺板块文件更新的频率。

[Visual Basic] 复制代码

'每隔5秒检测通达信板块文件是否发生过更新
CAll Application.SetTimer(1, 5000)
Sub APPLICATION_Timer(ID)
    If id=1 and TDX_ZXG_AUTO_flag=1 then
       TDX_ZXG_AUTO
    End If
End Sub

内容2：在TDX_ZXG_AUTO文件下，使用者根据实际通达信的安装目录进行修改【"D:\new_tdx\T0002\blocknew\ZXG.blk"】即可：

[Visual Basic] 复制代码

' 指定读取的文件路径以及文件名称
Dim TDX_BK_PATH
TDX_BK_PATH =  "D:\new_tdx\T0002\blocknew\ZXG.blk"

内容3：在TDX_ZXG_AUTO文件中的第47行位置，用于将读取的板块品种保存到金字塔指定板块下，使用者根据需要修改【call Block.ToSave("自选","TDX_自选")】：

[Visual Basic] 复制代码

                '更新通达信自选板块
                call Block.ToSave("自选","TDX_自选")
                Report.InitAllGrid