vba導(dǎo)出數(shù)據(jù)　[金字塔]

//下面是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
 
 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
%>