vba導(dǎo)出數(shù)據(jù) [金字塔]
- 咨詢內(nèi)容：
請(qǐng)問：如何在軟件中使用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編輯過]
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") '打開指定文件
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
%>
- 上一篇：Demoaddin 為什么生成是adi文件
- 下一篇：沒有了！
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)