pel公式調(diào)用VB自定義函數(shù)，傳遞字符串的問(wèn)題　[金字塔]

好吧，之前對(duì)字符串的問(wèn)題，在論壇搜索過(guò)的，但沒有找到解決辦法。

王管應(yīng)說(shuō)的是這個(gè)帖子的10樓吧：http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=9511

if VBuy then

begin

  buy(1,1,limitr,VOP);       {開多}

  if islastbar and bb<>barpos then

   begin

      bb:= barpos;

      extgbdataSet('字符串','開多信號(hào):'+numtostr(close,0));    //這里的‘字符串’是你自己取的變量名

      VQQM:=QQMSSG(close,open);

   end

end; 

在VBA的自定義函數(shù)中這樣寫：

   QQMSG=document.getextData("字符串")              '獲取公式中設(shè)置的變量值

   Set obj = CreateObject("WWSCommon.TCGroup")
   call obj.TransMessage(QQNum, QQMSG)
   Set obj = Nothing

但根據(jù)這個(gè)方法，重新試了一下，還是不對(duì)，彈出窗口依然顯示的是數(shù)字？

  if islastbar then
   begin
      extgbdataSet('買入信號(hào)','開多信號(hào):'+numtostr(close,0));    //這里的‘字符串’是你自己取的變量名
      VQQM:=QQMSSG();
   end
   bb:1;

Function QQMSSG(Formula)
    '系統(tǒng)會(huì)在逐K線模式解釋公式時(shí)的每個(gè)周期都會(huì)調(diào)用此函數(shù)一遍，因此設(shè)計(jì)時(shí)應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒必要的代碼
    QQMSSG=0
    QQMSG=document.getextData("字符串")              '獲取公式中設(shè)置的變量值
    MsgBox QQMSG

End Function

字符串的操作要用

EXTGBSTRING( )
EXTGBSTRINGSET( , )

這2個(gè)函數(shù)

感謝回復(fù)！

EXTGBSTRING( )和EXTGBSTRINGSET( , ) 是試過(guò)的，但是沒有得到預(yù)期的結(jié)果，

是下面的代碼有問(wèn)題嗎？

運(yùn)行后，依然提示不對(duì)？郁悶！

  if islastbar then
   begin
      EXTGBSTRINGSET('買入信號(hào)','開多信號(hào):'+numtostr(close,0));    //這里的‘字符串’是你自己取的變量名
      VQQM:=QQMSSG();
   end
   bb:1;

Function QQMSSG(Formula)
    '系統(tǒng)會(huì)在逐K線模式解釋公式時(shí)的每個(gè)周期都會(huì)調(diào)用此函數(shù)一遍，因此設(shè)計(jì)時(shí)應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒必要的代碼
    QQMSSG=0
    QQMSG=document.GetExtString("買入信號(hào)")              '獲取公式中設(shè)置的變量值
    MsgBox QQMSG

End Function