如果你沒有編程基礎的話，就在論壇上隨便找個VBA程序，就可以學會。

然后，你在order對象里 有下面的一個方法，可以找到你要的信息

Account2 方法

得到指定的國內期貨帳戶信息

Account2(Type，Account)

Type    指定帳戶信息類型。Type可以使用下列數值：

Account 可缺省，登陸的帳戶名稱，若不填寫則表示當前默認的帳戶

2 返回指定交易帳戶的類型：0盈透 1CTP綜合平臺 2金仕達平臺 255 無效登錄賬戶
3 返回指定交易帳戶中的現金余額
4 返回指定交易帳戶中的浮動盈虧
6 返回指定交易帳戶中的動態權益
12 返回當前交易帳戶中的現金總結余
19 返回當前交易帳戶中的當前可用資金
20 返回當前交易帳戶中的當前流動資產
26 返回當前交易帳戶中的上次結算準備金
27 返回當前交易帳戶中的期貨結算準備金
28 返回當前交易帳戶中的占用保證金
29 返回當前交易帳戶中的可取資金數量
30 返回當前交易帳戶中的平倉盈虧數額
31 返回當前交易帳戶中的手續費
32 返回當前交易帳戶中的入金金額
33 返回當前交易帳戶中的出金金額
34 返回當前交易帳戶中的上次信用額度
35 返回當前交易帳戶中的上次質壓
36 返回當前交易帳戶中的質壓金額
37 返回當前交易帳戶中的信用額度
35 返回當前交易帳戶中的凍結保證金
36 返回當前交易帳戶中的凍結手續費
37 返回當前交易帳戶中的保底資金
41 返回指定或當前交易賬戶的登錄網關名稱

用Order.Account2(6,賬號)分別檢測每一個賬號的動態權益，如果為零說明沒有登錄或者真的沒有錢，不管哪種情況，反正不能交易的。

Function zhanghu(Formula)
        Dim szhhu
        szhhu=Order.CTPAccountName(0)

End Function

這樣編寫調取活動帳戶名稱怎么就不對了？