建议：HistoryData类返回的是数组　[金字塔]

大家都知道，当运算量大时，VB比C代码的运行速度要慢得多。而金字塔是对VBA开放的对象。这样，如果大量数据操作时，会造成软件当机的现象。

我不清楚具体的Histordata,ReportData,Table等等等等对象工作原理，但我想它大约是一个函数，以HistoryData为例

Set History = marketdata.GetHistoryData("rb00","sq",5)

For i=1 to 10
    x=History.Close(i)'这里我感觉是每读一个数，都需要运行一下金字塔的HistoryData函数。

'这个函数里大约对某个文件要打开，计算，再关闭文件,本身效率已经很低了，这个函数。

'如果是再用VB来反复打开这个函数。速度更慢。如果运行10000次，可能这个金字塔就要当机了。

Next

以EXCEL为例吧，如果是一个单元格一个单元的格的给数组赋值，读几万个数字，就要几秒种了。但EXCEL提供了直接将单元格赋值给数组的功能。比如x=range("A1:A65536")

这样读6万个数字，几乎就不需要时间了。

不知道金字塔的底层函数到底如何。但我想，如果HistoryData等对象，返回的直接是数组的话。整体的金字塔VBA代码，运行速度会飞一样的快。

建议：History = marketdata.GetHistoryData("rb00","sq",5)

是直接将("rb00","sq",5)它的所有数据，以数组的形式返回。

其它对象，涉及到数据的，同理。

这样就能真正发挥金字塔的VBA功能了。

还有，不清楚为什么金字塔的Array函数，速度为什么这么慢，读入几千个数据，可能就需要几秒钟。比VBA的数组函数赋值要慢许多。

它的搜索的函数FIND，效率也极低。也不如直接用VBA循环查找得快。

这类的函数，建议做次升级。提高金字塔整体的VBA代码运行效率

EXCEL下测试的代码，及结果

Sub 逐个读单元格的效率()
    Dim x(65536)
    t = Time
    For j = 1 To 5
        For i = 1 To 65536
            x(i) = Cells(i, 1)
        Next
    Next
    Debug.Print Time & "|" & t
End Sub
Sub 整体赋值给数组的效率()
    t = Time
    For j = 1 To 200
        x = [a1:a65536]
    Next
    Debug.Print Time & "|" & t
End Sub
'大约可以提速50倍
Sub Array对象的效率()
    t = Time
    Set d = CreateObject("Stock.Array")
    For i = 1 To 1000
        d.AddBack (Cells(i, 1))
    Next
    Debug.Print Time & "|" & t
End Sub
Sub 直接读入数组的效率()
    Dim x(1000)
    t = Time
    For j = 1 To 200
        For i = 1 To 1000
            x(i) = (Cells(i, 1))
        Next
    Next
    Debug.Print Time & "|" & t
End Sub
'大约可以提速200倍以上

结论：如果金字塔的各对象返回的直接是数组的话，会提高金字塔整体效率的50倍以上，甚至更多。

是滴，是滴。

金字塔的ARRRAY函数是摆设