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

这个VBA的应用很少，大家都不知道怎么用啊。我看了半天，好像真的没有几个人会用。

不过还是要顶一下。大师能否用VBA编写一个网格交易的例子？我试过好像用普通语言编写不了。

网格交易法使用vba开发是很好的，我给人家做了一个，但不便于在这个公开。

使用后台策略也是可以实现的，代码量相对vba后台要少的多，但灵活性不够vba后台。

 

对39楼的Document对象的补充

 

2.93版对document对象进行了很有实战用途的增强

 

1、增加了ExtDataNum和ExtDataStringNum两个属性，分别返回数值型和字符型全局变量的个数，就可以实现遍历了。

2、增加了GetExtDataByIndex和GetExtStringByIndex两个方法获取指定索引位置的变量的键值和键名了。

3、增加了RemoveExtData和RemoveExtString来分别删除指定索引位置的全局变量了。

经过这样的增强，你就可以大量使用全局变量来记录策略运行中的各种变量了。

 

下面给个例子吧：

sub DeleteGlobal() '删除0值的全局变量
 iGlobal=document.ExtDataNum
 for i=iGlobal to 0 step -1
  iKeyValue=document.GetExtDataByIndex(i,sKeyName)
  if iKeyValue=0 then
   call document.RemoveExtData(i)
  end if
 next
end sub

 

sub DeleteStringGlobal() '删除O-开头字符串的全局变量
 iGlobal=document.ExtDataStringNum
 for i=iGlobal to 0 step -1
  iKeyValue=document.GetExtStringByIndex(i,sKeyName)
  if left(sKeyName,2)="O-" then
   call document.RemoveExtString(i)
  end if 
 next
end sub

 

 

不便公开就算了，就给我一个人吧。呵呵！

vba功能是越来越强大了。只是数据质量，系统稳定实在是。。。。。。

边顶边学，边做边犯错

犯错误，才能提高。

支持GUOTX   多发点VBA范例

首先感谢楼主的无私贡献，鄙人也受益匪浅。
提醒一下，楼主提供Document对象关于遍历全局变量的例句中的一个小bug需要修正：

"iGlobal=document.ExtDataNum"
“for i=iGlobal to 0 step -1”或者“for i=0 to iGlobal step 1”

下面那句for循环应该修正为：
“for i=iGlobal-1 to 0 step -1”或者“for i=0 to iGlobal-1 step 1”