主题：金字塔VBA常用对象使用范例

感谢楼主的奉献，为我们节约了大量的时间和烟草。对于初学VBA的人来说，看了 office VBA和金字塔VBA教程之后，一动手还是出错，幸好有楼主这样的好心人。我遇到了几个问题，想请教。

 

一、OFFICE vba的变量有工程级、模块级和过程级，还有公有、私有概念。请问金字塔有没有这些概念。过程级变量不说了，我知道肯定不会有冲突。如果是过程之外的变量，那么是对当前模块有效，还是对所有模块有效？是对当前VBA工程有效？还是对整个工程有效？

 

二、对于代码调试我很头痛，关于调试模式基本不知所云。我干脆用执行模式，用MSGOUT输出来调试代码。我要重新修改代码时，按SHIFT+BREAK终止执行，但是带来一个很低级的问题：每次终止执行之后，光标就自动跑到模块的顶端去了，我需要花时间找到我的代码位置。有没有办法让光标停在我指定的位置？（好笑吧）

 

三、对于marketdata.gethistorydata()对象的引用，折腾了好久，反复测试才知道这个东东不能被设置两次引用,代码能过，但结果不对，跨周期、跨品种统统不行。后来发现论坛上对此有说明并有解决办法。但是我已经发现一个解决办法了，把要引用的两个HISTORYDATA对象，一个放在过程外面设置引用，一个放在过程内设置引用。我测试了几遍，似乎可以，我想知道，我的这个方法是不是正解之一。

 

我更想知道，是不是有且仅有HISTORYDATA对象引用会出现这样的问题，至于MINUTEDATA和REPORTDATA则没有这样的问题。直接告诉我答案吧！

 

四、终于折腾出一点结果了，又出了状况。我要把我自制的数据清除，结果死机。例：

SUB DELETEDATA

      Set History1 = marketdata.GetHistoryData(“IF13","ZJ",0)
      application.MsgOut History1.Count

       for I = 0 to  History1.Count-1
           CALL History1.RemoveAt(I)
      next
       application.MsgOut History1.Count
End Sub

 

可能是由于数据有十几万个，所以死机。但后来改成for I = 0 to  1000....next，能过，但是前后application.MsgOut History1.Count

输出结果一样，说明删除没有成功啊！是什么问题？