用 VB 导入Excel 中的数据

用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 关闭，关闭代码如下