這段代碼簡(jiǎn)單，怎么沒(méi)法執(zhí)行？ [金字塔]
- 咨詢(xún)內(nèi)容：
Sub getcontinuouscontracts()
Dim block
Dim market
Set block = CreateObject("stock.block")
block.Open "自選股", 1
For i = 0 To block.Count - 1
block.removeat (0)
Next
market = Array("SQ", "DQ", "ZQ", "ZJ")
For i = 0 To UBound(market)
n = marketdata.GetReportCount(market(i))
For j = 0 To n - 1
Set report1 = marketdata.GetReportDataByIndex(market(i), j)
If Right(report1.Label, 2) = "00" Then
block.addstock market(i), report1.Label
End If
Next
Next
block.tosave "自選", "自選股"
MsgBox "成功篩選連續(xù)合約"
End Sub
- 金字塔客服：
觸發(fā)了嗎
- 用戶(hù)回復(fù)：
這個(gè)只是一個(gè)過(guò)程，你要去調(diào)用它，它才能給你干活的。
如：
sub application_vbastart()
getcontinuouscontracts
end sub
就可以在vba一起動(dòng)就執(zhí)行你的這個(gè)過(guò)程。
有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫(xiě)！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)