vsto2010导入其他工作簿数据

shouzhuw

vba里面我们可以用get
在vsto2010中如何操作？
我的意思是，在2010例，本地数据库啊，数据库，对我们一般办公室人员的捣鼓，完全不用考虑太多，我就想获取其他工作薄的数据，然后把他们放在一个sheet表作为数据源就行。看了一些资料，没有完全领会，要不就是要open后copy。我就想学vba里面一样，直接获取外部数据，求大神支一招。

shouzhuw

这么久了，都没人回答，还是我自问自答吧，希望对有需求的人有帮助：
先说vba，如果取数据，那真的简单ado，copy，get。。。都行~~~我本业余人，我管他啥方法，他就是我的钳子，十字改刀，型号对了（我是电工），能做出我的结果就ok，我也不去深究他具体咋回事。。。所以，我这种思想在vs吃了很大亏
如我前面所说，我也是那样做的，中间我走了很多弯路也算实现了，得出结论，要学vsto，特别是我们这种半路业余，你需要专业点。
对于工作表的数据，在vba我们放入数组，直接arr=sheet1.usedrange，就ok；vsto,对不起，sheet1.usedrange是Object，你需要的值string，原来在vba，你可以直接在arr中读出来，这里不行，（由于我只懂了些皮毛，就说皮毛），首先range中的值放入Object[i,j].value2再转成string[i,j]，否则，能不能用，能用，但你电脑要算半天，原因是接口问题（不知道这种说法正不正确，反正就说了，比不说好）。所以，你需要把app，把workbooks,worksheets,range仔细理解清楚。
真的，你要么专业一点，要么还是不要转vsto，等到vba确实不能用了再说。人家抛砖引玉，我估计我引来的是鸡蛋~~~

mjzxlmg

shouzhuw 发表于 2014-3-25 21:58
这么久了，都没人回答，还是我自问自答吧，希望对有需求的人有帮助：
先说vba，如果取数据，那真的简单ado ...

跟Vba基本上是一样的，同样可以用你上面所说的方法。


Dim FileDialog As New OpenFileDialog()
        FileDialog.Multiselect = True
        FileDialog.Title = "导入Excel数据"
        FileDialog.Filter = "Excel文件(*.xls*)|*.xls*"
        Dim FileName As String
        If FileDialog.ShowDialog() = DialogResult.OK Then
            FileName = FileDialog.FileName
        Else
            Return
        End If
        Dim Mysql As String
        Dim Fields_Name() As String
        If Len(FileName) - InStrRev(FileName, ".") = 4 Then
            Mysql = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=1';Data Source= " & FileName & ""
        Else
            Mysql = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=YES;IMEX=1';Data Source= " & FileName & ""
        End If
        Dim RST As Object = CreateObject("ADODB.Connection")
        RST.Open(Mysql)
        Dim rs As Object = RST.Execute("[Sheet1$A2:IV]")

shouzhuw

感谢你表达你的意思~~
其实我的意思是如vba那般自由的操作数组里的元素
我用的c#
这是我自己封装的，算是原创吧，呵呵，这样后，我就可以跟以前一样用string操作数组元素了
public string[,] shArr(Excel.Worksheet ws, string fistcell, int row, int col)//通用整张表返回string数组
        {
            Range temp1 = ws.Range[fistcell].Resize[row, col];
            string[,] tmp = new string[row, col];
            object[,] temp2 = new object[row, col];
            temp2 = temp1.Value2;
            for (int i = 1; i < row + 1; i++)
            {
                for (int j = 1; j < col + 1; j++)
                {
                    if (temp2[i, j] == null)
                    {
                        tmp[i - 1, j - 1] = null;
                    }
                    else
                    {
                        tmp[i - 1, j - 1] = temp2[i, j].ToString();
                    }
                }
            }
            return tmp;
        }

mjzxlmg

操作数组基本是一样的，只不过读入的数组是从1，1开始的，不是从0，0开始的。
dim arr=sheet1.cells(1,1).currentregion.value
msgbox arr(1,1)

shouzhuw

mjzxlmg 发表于 2014-3-27 10:41
操作数组基本是一样的，只不过读入的数组是从1，1开始的，不是从0，0开始的。
dim arr=sheet1.cells(1,1). ...

你可以用cells去测试一下300*300的记录
然后你会理解我。。。

mjzxlmg

shouzhuw 发表于 2014-3-27 21:04
你可以用cells去测试一下300*300的记录
然后你会理解我。。。

不明白你说的是什么，要STRING，arr(i,j).tostring就可以了，或者CSTR(ARR(I,J))