根据你的语句，上下标是确定的，所以定义语句修改为：
创新互联网站建设公司是一家服务多年做网站建设策划设计制作的公司,为广大用户提供了做网站、成都网站制作，成都网站设计，广告投放，成都做网站选创新互联，贴合企业需求，高性价比，满足客户不同层次的需求一站式服务欢迎致电。
Dim ary(UBound(temp), 1) As String '声明二维数组
OPCItemIDsData(j,其中一维）即可。
如果前面方法有规定，不能用二维数组的格式，那么你可以自己定义一个一维数组，将二维数组的某一维度的全部数值赋值给这个数组，在引用这个数组：
dim OPCItemIDsDataBuf(x) as ...
for i = 1 to x
OPCItemIDsDataBuf(j）=OPCItemIDsData(j,其中一维）
next i
其中x是数组的最大下标
第一句是定义了一个不定长的数组的数组，这个数组里的每个元素都是一个长度为7的整数型数组（跟二维数组是有区别的）。
第二句是把刚定义的数组的数组重新分配内存。由原先的不定长改成了长度为1，而数组中的每个元素由原先的长度为7的数组变成了长度为2的数组。
