pel公式調用VB自定義函數，傳遞字符串的問題　[金字塔]

好吧，之前對字符串的問題，在論壇搜索過的，但沒有找到解決辦法。

王管應說的是這個帖子的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('字符串','開多信號:'+numtostr(close,0));    //這里的‘字符串’是你自己取的變量名

      VQQM:=QQMSSG(close,open);

   end

end; 

在VBA的自定義函數中這樣寫：

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

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

但根據這個方法，重新試了一下，還是不對，彈出窗口依然顯示的是數字？

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

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

End Function

字符串的操作要用

EXTGBSTRING( )
EXTGBSTRINGSET( , )

這2個函數

感謝回復！

EXTGBSTRING( )和EXTGBSTRINGSET( , ) 是試過的，但是沒有得到預期的結果，

是下面的代碼有問題嗎？

運行后，依然提示不對？郁悶！

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

Function QQMSSG(Formula)
    '系統會在逐K線模式解釋公式時的每個周期都會調用此函數一遍，因此設計時應該注重程序的執行效率，不要重復的執行一些沒必要的代碼
    QQMSSG=0
    QQMSG=document.GetExtString("買入信號")              '獲取公式中設置的變量值
    MsgBox QQMSG

End Function