vba導(dǎo)出數(shù)據(jù) [金字塔]
- 咨詢內(nèi)容：
請(qǐng)問(wèn)：如何在軟件中使用vbs導(dǎo)出各個(gè)周期的歷史數(shù)據(jù)到Excel中？？盼
- 金字塔客服：
//下面是vbs導(dǎo)出行情數(shù)據(jù)到Excel的例子，參照這個(gè)做吧。
buyprice:=DYNAINFO(20);
sellprice:=DYNAINFO(21);
newprice:=DYNAINFO(7);Num1:=StrToNum(STRLEFT(STRRIGHT(FORMULANAME,2),1));
Num2:=StrToNum(STRRIGHT(FORMULANAME,1));<%
vbbuyPrice1=FFL.VarData("buyprice")
vbsellPrice1=FFL.VarData("sellprice")
vbnewPrice1=FFL.VarData("newprice")
vbNum1=FFL.VarData("Num1")
vbNum2=FFL.VarData("Num2")dim objExcel,objWorkbook
[此貼子已經(jīng)被作者于2012-4-24 12:44:18編輯過(guò)]
on error resume next
Set objExcel = getObject(,"Excel.Application")
if err.number<>0 then
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("D:\guzhi\stock.xls") '打開(kāi)指定文件
end if
'objExcel.Visible = True
vbRow=CDbl(Cstr(vbNum1) & Cstr(vbNum2))+1
'msgbox vbRow
objExcel.sheets(1).Cells(vbRow,4).Value = vbnewPrice1
objExcel.sheets(1).Cells(vbRow,5).Value = vbbuyPrice1
objExcel.sheets(1).Cells(vbRow,6).Value = vbbuyPrice1
%>
如果以上指標(biāo)公式不適用于您常用的行情軟件
或者您想改編成選股公式，以便快速選出某種形態(tài)個(gè)股的話，
可以聯(lián)系我們相關(guān)技術(shù)人員 QQ: 262069696 進(jìn)行 有償 改編！
- 上一篇：自定義窗體的快捷鍵
- 下一篇：沒(méi)有了！
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)