為了體驗金字塔VBA與excel vba區(qū)別，以及體驗vba在金子塔中的應(yīng)用，將金子塔幫助文件中的例子粘貼到模塊中運行，結(jié)果發(fā)現(xiàn)驗證Block 對象時出現(xiàn)問題：

金字塔幫助文件例子：

對象標(biāo)識 "Stock.Block"

示例

'創(chuàng)建Block外部對象，將對象實例置變量b中
Set b = CreateObject("Stock.Block")

'打開市場指定分類名稱的板塊
call b.open("上海A股",0)

'顯示已打開板塊內(nèi)部數(shù)據(jù)個數(shù)
msgbox b.count()

問題所在：1、本例運行沒有問題。

             2、把本列“上海A股”，換成：上海期貨、大連期貨、鄭州期貨，都沒有問題。但如果換成“中金所”，結(jié)果是0.

再試著換成

中國金融期貨交易所，或者英文全名China Financial Futures Exchange，或英文縮寫：CFFE，結(jié)果全是零。

希望給予回復(fù)：liudaliuda668@sohu.com

我?guī)湍戕D(zhuǎn)到高級區(qū)吧

建議仔細(xì)看看OPEN函數(shù)的參數(shù)類型

Open 方法

打開一個指定名稱和類型的板塊,將板塊中的數(shù)據(jù)裝載到對象中.若之前內(nèi)部有其他品種數(shù)據(jù),那么此操作將會清空原先的內(nèi)部數(shù)據(jù).

Open(Name, Type)

Name     板塊名稱

Type     板塊名稱的類別 0:系統(tǒng)分類名稱比如'上海A股' 1:分類板塊 2:系統(tǒng)板塊(可以在品種欄定義中進行更改)

返回值:  若打開板塊成功返回1 否則返回0