VSTO里面的单元格数据如何循环

ghostjiao

请教一下大家如何像VBA一样把单元格数据写入数组，然后循环？
还是只能够一个单元格一个单元格循环？
多谢！

excelhomesnake

与vba大同小异
定义一个object的二维数组变量,然后直接把单元格区域用等式赋值给该变量就可以

ghostjiao

excelhomesnake 发表于 2015-12-14 20:47
与vba大同小异
定义一个object的二维数组变量,然后直接把单元格区域用等式赋值给该变量就可以

你好，我定义的object  然后单元格有数值型数据，提示错误 不能转换为object
请问改怎么解决呢，多谢！

excelhomesnake

ghostjiao 发表于 2015-12-18 12:36
你好，我定义的object  然后单元格有数值型数据，提示错误 不能转换为object
请问改怎么解决呢，多谢！

示例如下:注意,所有的数值类型都为double,int类型的,是由于公式引起的错误类型.

1.             //与vba一样,直接赋值给一个二维数组变量即可.得到的是行列维度都是1基的数组
   
2.             object[,] array = wrk.get_Range("A1").CurrentRegion.Value;
   
3. 
   
4.             //定义一个同样是二维1基的数组 ,来存放结果
   
5.             //使用Array的静态方法CreateInstance来创建,参数1指定数组元素类型,参数2指定每个维度的可容纳元素个数,参数3,指定对应参数2每个维度的最小下标
   
6.             object[,] resultArray = (object[,]) Array.CreateInstance(typeof(object), new int[] { array.GetUpperBound(0), array.GetUpperBound(1) }, new int[] { 1, 1 });
   
7. 
   
8.             int inputRowIndex = 0;
   
9. 
   
10. 
    
11.             for (int irow = 2; irow <= array.GetUpperBound(0); irow++)
    
12.             {
    
13. 
    
14.                 //级次为4的行取出
    
15.                 int value = Convert.ToInt32(array[irow, 4]);//由于数组是object类型,因此最好是先做类型转换
    
16. 
    
17.                 if (value == 4)
    
18.                 {
    
19.                     inputRowIndex++;
    
20. 
    
21.                     for (int icol = 1; icol <= array.GetUpperBound(1); icol++)
    
22.                     {
    
23.                         resultArray[inputRowIndex, icol] = array[irow, icol];
    
24.                     }
    
25. 
    
26.                 }
    
27. 
    
28.             }

复制代码

ghostjiao

excelhomesnake 发表于 2015-12-18 13:49
示例如下:注意,所有的数值类型都为double,int类型的,是由于公式引起的错误类型.

我研究一下，多谢指导！

mjzxlmg

ghostjiao 发表于 2015-12-18 17:18
我研究一下，多谢指导！

Dim Array(,) As Object = CType（.Range("A1").CurrentRegion.Value， Object(,))
此数组行列均是从1开始的，不是从0开始的.
相当于VBA中的Array(1 to ?,1 to ?)


也可以这样： Dim Array As Object =.Range("A1").CurrentRegion.Value

循环数组：
for i as integer=1 to ubound(array)
for j as integer=1 to ubound(array,2)
.......
next
next