用VB导入Excel中的数据

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