sub tst()

\'创建一个Array数组对象并排序
Dim dm \'创建一个变量
\'创建Array对象，将对象实例置变量d中
Set dm = CreateObject("Stock.Array")
\'创建完Array对象后往其内部插入两个数据
dm.Add(3.25)
dm.Add(4.33)
dm.Add(2.02)
\'按正序排列数组数据
dm.Sort(0)
\'依次显示数组对象数据
For is = 0 To 2
MsgBox dm.GetAt(is)
Next

end sub

Sub UserForm2_CommandButton1_Click()

call tst

end sub

提示对象不支持此属性和方法 dm

什么错误

另外如何调用分笔的qt Openint ？

你的函数有问题,这样改写就好了

sub tst()

\'创建一个Array数组对象并排序
Dim dmm \'创建一个变量
\'创建Array对象，将对象实例置变量d中
Set dmm = CreateObject("Stock.Array")
\'创建完Array对象后往其内部插入两个数据
dmm.AddBack(3.25)
dmm.AddBack(4.33)
dmm.AddBack(2.02)
\'按正序排列数组数据
dmm.Sort(0)
\'依次显示数组对象数据

For iss = 0 To 2
MsgBox dmm.GetAt(iss)
Next

end sub

\'调用分笔数据示例

set ReportData = marketdata.GetReportData("rb05","sq")

MsgBox ReportData.qt

MinuteData 对象

证券分时数据对象，对象表示该证券当日每笔的成交记录。

数据在该对象中以数组形式存放，默认按日期从小到大排序，通过一个基于0零的索引取得。

具体示例请参见HistoryData对象。

属性

Count            数据区数据个数

OpenInt          读取或设置基于0零指定序号的持仓量

NewPrice         读取或设置基于0零指定序号的最新价

Volume           读取或设置基于0零指定序号的成交量(手)

Amount           读取或设置基于0零指定序号的成交额(元)

Date             读取或设置基于0零指定序号的日期

IsBuy            读取或设置基于0零指定序号的分笔成交方向,若该笔交易为外盘则为1,否则为0