您現在的位置：程序化交易>> 期貨公式>> 金字塔等>> 金字塔知識>>正文內容

金字塔增加同花順F10　[金字塔]

作者：金字塔來源：cxh99.com 發布時間：2016年07月13日點擊數：　【收藏到本網的會員中心】

咨詢內容： 同花順F10的資料比較齊全，適合炒股的朋友，因此做了一個宏，可以打開對應股票的同花順F10：
1.選擇金字塔菜單”查看“-”綜合管理“，出現設計界面，選擇”常規“-”宏“，然后點”新建“，宏名稱取名TongHuaShunF10
2.代碼改成如下：'打開同花順F10Sub TongHuaShunF10()
'得到框架名稱為"Technic"，窗格名稱為"Window1"的窗格對象 Set Grid = Technic.GetGridByName("Main") '得到該窗格所對應的動態行情對象 Set ReportData = Grid.GetReportData() Dim stk '取當前品種代碼 stk = ReportData.Label IF LEFT(stk,1)="6" OR LEFT(stk,1)="0" OR LEFT(stk,1)="3" THEN call Application.ShellExecute("open", "http://basic.10jqka.com.cn/" & stk & "/", "", "", 1) END IF
End Sub
保存，運行。
3.在個股分時圖或K線圖，按ALT+F8，選擇運行宏TongHuaShunF10，會自動打開本股票的同花順F10資料。
金字塔客服： 剛才發現有些界面下無法打開同花順F10，于是對代碼做了一些修改，以適應更多的情況：
'打開同花順F10Sub TongHuaShunF10()
Dim stk, market '取當前品種代碼 Application.GetCurrentStock stk,market IF LEFT(stk,1)="6" OR LEFT(stk,1)="0" OR LEFT(stk,1)="3" THEN call Application.ShellExecute("open", "http://basic.10jqka.com.cn/" & stk & "/", "", "", 1) END IF
End Sub

有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友

可聯系技術人員 QQ: 511411198 進行有償編寫！（不貴！點擊查看價格！）

【字體：小大】【打印文章】【查看評論】

沒有相關內容