VBA扩展插件集锦

技术006

           金字塔提供VBA接口，可用于实现个性化拓展功能。本帖将持续汇总并更新由资深用户分享的各类插件。

【帖子结构说明】

• 1楼：插件目录关系、插件介绍、插件文件
• 其余楼层：分别对各插件的使用方法进行详细说明
  
  
  

【重要声明】
        本帖所涉及的插件均由第三方用户开发，所有权归原作者所有。金字塔官方不对插件的适用性及使用后果承担责任。

          请用户自行测试并判断是否满足自身需求，使用过程中如出现任何异常，需由使用者自行承担。

【插件文件关系】

[C++] 复制代码

        Shared_Code.bas（公共代码文件）   
             │                                          
             ├── UserForm1.frm   
             │   功能：批量导入指定外部板块文件（仅支持文本格式，示例基于通达信板块格式）
             │   使用说明详见2楼
             │
             ├── Main_Updates.bas
             │   功能：自动更新指定板块中的品种至最新主力合约，支持多个板块同时更新
             │   使用说明详见3楼
             │
             ├── THS_ZX_AUTO.bas
             │   功能：实时同步同花顺远航版自选股至金字塔，同步结果保存在【自选】-【THS_自选】板块下
             │   使用说明详见4楼
             │
             ├── TDX_ZXG_AUTO.bas  
             │   功能：实时同步通达信自选股至金字塔，同步结果保存在【自选】-【TDX_自选】板块下
             │   使用说明详见5楼
             │
             └── Batch_Start_Charts.bas
                 功能：批量启动多个框架和图表程序化，标准版及以上版本
                 使用说明详见6楼

上述插件中，除公共代码文件1.Shared_Code.bas外，其余都可以选择性使用，使用者需要配置【Shared_Code.bas】相关选项。相关代码在Shared_Code的开始部分。如下所示：

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

技术006

导入文件：
       1.Shared_Code.bas
        2.UserForm1.frm
配置插件：
1. 配置公共代码Shared_Code中的UserForm1_flag变量开关改为1.

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

               

技术006

自动更新自建主力合约

      此示例为第三方提供，仅供学习参考，用户可以根据自身需求进行逻辑调整修改。示例中：自定义的主力板块，在【自选】--【我的主力】板块下。


导入文件：
在1楼中下载以下文件                    

       1.Shared_Code.bas
       3.Main_Updates.bas

添加板块名称：
在【Main_Updates】中，添加待自动更新板块名称，以逗号分隔。

启用插件：
1. 配置公共代码Shared_Code中的Main_Updates_flag变量开关，如下图所示：


使用插件：
自动更新：默认按照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

   

技术006

批量启动多框架以及图表程序化：        

          此插件是由第三方用户共享的插件，可以解决金字塔用户逐个启动多框架、启动多框架程序化交易的重复工作问题。

环境要求：
       1. 标准版及其以上版本
       2. 在金字塔中已经启用了多框架显示模式（工具--选项--系统界面中）
         注意：自动化启动过程中，受个人金字塔环境的影响，会有不同的提示类弹窗出现，需要手工完成确认。（请避免无人值守，完成启动后，需要确认是否都启动正常）

导入文件：
      1.Shared_Code.bas
      6.Batch_Start_Charts.bas


启用插件：     

1. 公共代码Shared_Code中的Start_Charts_flag变量开关设置为1，如下图所示：
      

使用插件:
       使用方法如下：
              1. 在菜单栏的【工具】--【C++扩展】--【批量启动图表】，执行批量开启多框架、图表程序的。(首次使用会要求填写配置，完成后，再次执行【批量启动图表】即可）
              2. 在菜单栏的【工具】--【C++扩展】--【批量启动设置】，用于打开配置文件。使用者可以通过此方式对配置文件进行调整。                         
                              
              配置文件说明：                  
                  1）配置文件存放于软件安装的根目录下，配置文件名称：StartChartFrame.ini，使用者可以直接对其进行修改。
                  2）格式要求：
                        1. 每行一个框架配置，
                        2. 框架名称=标识符  ，标识符=1，代表启用款框架、并启动图表程序化；标识符=0，代表只启动框架。                    
                       配置示例如下图所示：

                             

自启动插件:
         1. 修改公共代码Shared_Code中的自启动管理部分的代码，取消注释下图所示的部分：
         注: 1. 自启动的稳定性受使用环境的影响，请避免无人值守。使用风险由个人承担。