标题：关于 array 的用法问题

 运行的时候总会 在 next i 的地方出现
编译器错我1025
expected end of statement。

请问是什么原因？ 都是跟随  VBA 的语法，看不出问题。

function test( ticker, market, cycle, period )
    
    dim a
    dim d
    set d = createobject("Stock.Array")
    dim i
    dim x
    
    set History = marketdata.GetHistoryData( ticker, market,cycle )
    
    for i = 0 to period - 1 step 1
        x = History.close( History.count - i )    
        d.addback( x )
    next i
    

end function

 next i有误，去掉i

金字塔使用的是VBS语法

 纠正了 function 的错误。

在 macro 里面 call 这个test function 的时候出现

编译器错误 '429'
ActiveX component can't create object :'Stock.Array'

我的 sub 是

Sub testF()
    
     a = test( 10 )
    
     msgbox( a )
    
End Sub

****************************
sub test( period )
   
    'set d = CreateObject("Stock.Array")
    set MinuteData = marketdata.GetMinuteData( "CF01", "ZQ" )
    dim d
    Set d = CreateObject("Stock.Array")
   
    dim i
    dim x
   
    set History = marketdata.GetHistoryData( ticker, market,cycle )
   
    if MinuteData.count > period then
        for i = 0 to period - 1 step 1
            x = minutedata.newprice(i)
            d.addback( x )
        next
    end if
   
    test = d.forecast

end sub


谢谢了。

那说明你可能是没有正确的安装金字塔，建议用Setup重新安装

 

也有可能是你当前登陆的用户权限不够

 那能否提供一个足够的权限登录哪？
谢谢

你试试用ADMINISTRATOR登陆，并且INTERNET安全选项调到中低以下试试