用VB 导入Excel 中的数据，或将VB中算出的数据导入Excel （附图）
作者：朱（晴）琴
当我用VB画了图放在毕业论文中，要求把数据导出到Excel 中，用Excel 画图，说这样图比较清晰。首先，在ＶＢ中不能直接与Excel 联系。点“工程”、“引用”
选中“Microsoft Excel 12.0 Object Library” 项选中后点“确定”
完成这个工作后，就可以写代码，导入Excel中的数据，或导出数据到Excel。
在窗体代码窗口，定义
（1）将Excel中的数据导入到VB的数组中
1、点“工程”、“部件”，选中
在窗体上画一个CommonDialog
2、建立一个打开Excel表的响应事件，简单点可以建一个命令按钮响应事件。
3、定义
然后写一个For 循环，把Excel 里的数导入VB，在导入前当然需要定义一个数组，来存放导入的数据。
xlsheet.cells (i , j )，里面i 表示第i 行，j 表示第j 列
例如：要导入数据的Excel表中的数据如下
则需要定义一个数组，如Data（1 to 15，1 to 2）
For j = 1 to 2
For i=1 to 15
Data(i,j)=xlsheet.cells(i,j)
next i
next j
将Excel 中的数据赋给数组后，需要将Excel 关闭，关闭代码如下
（2）将VB 数组中的数据导出到Excel 中保存
除了For 循环处稍修改下，其余同前面一样。
将数组中的数据赋给Excel 后，需要将Excel 关闭，关闭代码如下
