- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- 修改了版主代码，发出全平模块（增加下信息资源） (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=52460)
-- 发布时间：2013/5/27 11:06:36
-- 修改了版主代码，发出全平模块（增加下信息资源）
function GetHoldStr(sAccount)
dim i
dim BuyHold
dim BuyCost
dim SellHold
dim SellCost
dim CurCode
dim CurMarket
On Error resume Next
HoldingCount=Order.Holding2(sAccount)
If HoldingCount>0 then
For i=0 to HoldingCount-1
Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market,sAccount)
CurCode=Code
CurMarket=Market
BuyHold=BuyHolding
SellHold=SellHolding
HoldStr=HoldStr & CurCode
if BuyHold>0 then
call order.sell(1,BuyHold,0,0,CurCode,CurMarket,sAccount,0)
end if
if SellHold>0 then
call order.sellshort(1,SellHold,0,0,CurCode,CurMarket,sAccount,0)
end if
Next
End If
End function
[此贴子已经被作者于2013-5-27 11:07:34编辑过]
-- 发布时间：2013/5/27 11:24:29
--
说明详细一些，另外测试过了？
搞好了加精
-- 发布时间：2013/5/27 12:50:14
--
测试过了 稍后加上说明
-- 发布时间：2013/5/27 13:28:40
--
\'此模块中sAccount为传递账号，对按照某个时间(比如15:30)平全部仓位的用户可以直接调用此模块，用call语句就行。可以直接放在模块中
\'也可以复制代码到大家做需要的窗体中进行调用。
第一种:
\'创建了一个窗体，加上一个按钮来触发，导入附件后就能使用
Sub UserForm1_CommandButton1_Click()
\'输入账号
call getholdstr(803156)
End Sub
\'该模块主要用来保存宏主执行主函数,不要拿做他用
function GetHoldStr(sAccount)
\'定义所需变量
dim i
dim BuyHold
dim BuyCost
dim SellHold
dim SellCost
dim CurCode
dim CurMarket
On Error resume Next
\'索取持仓合约数
HoldingCount=Order.Holding2(sAccount)
\'遍历所有持仓，索取多空头和持仓合约
If HoldingCount>0 then
For i=0 to HoldingCount-1
Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market,sAccount)
CurCode=Code
CurMarket=Market
BuyHold=BuyHolding
SellHold=SellHolding
HoldStr=HoldStr & CurCode
\'取得多头持仓,按照事件返回的手数和相关信息进行平多
if BuyHold>0 then
call order.sell(1,BuyHold,0,0,CurCode,CurMarket,sAccount,0)
end if
\'取得空头持仓,按照事件返回的手数和相关信息进行平空
if SellHold>0 then
call order.sellshort(1,SellHold,0,0,CurCode,CurMarket,sAccount,0)
end if
Next
End If
End function
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:userform1.rar |
第二种 适合用vba做日内的，
\'大家也可把function函数直接放到大家已经编辑好的代码中加上定时器来读取时间 (定时器到收盘15：00进行全平操作)
sub application_vbastart()
\'设置定时器，每秒刷新
call application.SetTimer(1,1000)
end sub
sub application_timer(id)
application.MsgOut(right(now,8))
if id=1 then
\'输入自己要日内平仓时间 ，now函数返回的时间是有日期的 我们用right方法去掉日期。就顺利取得时分秒，^,^
if right(now,8)>="13:23:30" then
\'输入自己的账号
call GetHoldStr(888)
end if
end if
end sub
sub application_vbaend()
\'删除定时器，释放资源
call application.KillTimer(1)
end sub
\'插入模块
function GetHoldStr(sAccount)
\'定义所需变量
dim i
dim BuyHold
dim BuyCost
dim SellHold
dim SellCost
dim CurCode
dim CurMarket
On Error resume Next
\'索取持仓合约数
HoldingCount=Order.Holding2(sAccount)
\'遍历所有持仓，索取多空头和持仓合约
If HoldingCount>0 then
For i=0 to HoldingCount-1
Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market,sAccount)
CurCode=Code
CurMarket=Market
BuyHold=BuyHolding
SellHold=SellHolding
HoldStr=HoldStr & CurCode
\'取得多头持仓,按照事件返回的手数和相关信息进行平多
if BuyHold>0 then
call order.sell(1,BuyHold,0,0,CurCode,CurMarket,sAccount,0)
end if
\'取得空头持仓,按照事件返回的手数和相关信息进行平空
if SellHold>0 then
call order.sellshort(1,SellHold,0,0,CurCode,CurMarket,sAccount,0)
end if
Next
End If
End function
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:userform2.rar |
-- 发布时间：2013/5/27 16:39:23
--
看来我那个帖子已经深入人心了，还能做举一反三，进行修改了，扩展了，本人深感荣幸。希望有更多的人能熟练掌握vba开发。
-- 发布时间：2013/5/29 14:15:23
--
是啊 版主的帖子帮助了很多人了，对你的贡献表示感谢