金字塔增加同花順F10
作者：金字塔 來源：cxh99.com 發(fā)布時(shí)間：2016年07月13日
- 咨詢內(nèi)容：
同花順F10的資料比較齊全，適合炒股的朋友，因此做了一個(gè)宏，可以打開對(duì)應(yīng)股票的同花順F10：
1.選擇金字塔菜單”查看“-”綜合管理“，出現(xiàn)設(shè)計(jì)界面，選擇”常規(guī)“-”宏“，然后點(diǎn)”新建“，宏名稱取名TongHuaShunF10
2.代碼改成如下：'打開同花順F10Sub TongHuaShunF10()
'得到框架名稱為"Technic"，窗格名稱為"Window1"的窗格對(duì)象
Set Grid = Technic.GetGridByName("Main")
'得到該窗格所對(duì)應(yīng)的動(dòng)態(tài)行情對(duì)象
Set ReportData = Grid.GetReportData()
Dim stk
'取當(dāng)前品種代碼
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
保存，運(yùn)行。
3.在個(gè)股分時(shí)圖或K線圖，按ALT+F8，選擇運(yùn)行宏TongHuaShunF10，會(huì)自動(dòng)打開本股票的同花順F10資料。
- 金字塔客服：
剛才發(fā)現(xiàn)有些界面下無法打開同花順F10，于是對(duì)代碼做了一些修改，以適應(yīng)更多的情況：
'打開同花順F10Sub TongHuaShunF10()
Dim stk, market
'取當(dāng)前品種代碼
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
打印本文
關(guān)閉窗口