用VB6控制Excel处理数据.docVIP

用VB6控制Excel处理数据 所属类别：VB推荐指数：文档人气：568本周人气：2发布日期：2007-5-28 浙江大学农业生物环境工程研究所 泮进明 张颖萍??Excel是微软办公软件的“大腕”之一，几乎已经成为电子表格软件的代名词。除了管理数据并对其进行一些简单的数学运算外，Excel还拥有强大的数据处理功能，尤其是其中的数理统计功能，更是那些对SAS、SPSS望而生畏的“软脚蟹”们的最佳选择;但Excel并非真是如此那么简单，要随心所欲运用之并非易事，本大虾周围总有人被Excel的INDEX结果显示整得云里雾里（还有很多问题哦！）。最近本大虾潜入海底闭关修炼了一阵，试着打造“VB+Excel”，期望推出“傻瓜型”数据处理“小件”，已有所小成。现以调用Excel中的LINEST（多元线性回归函数）为例，和各位大虾煮酒论剑，望指正。 一、VB控制界面组成 数据输入控件：TextDataNum（数据组数输入TextBox），TextFacNum（参数个数输入TextBox），TextInput（实验数据输入中介TextBox），GridIn（实验数据表格MSFlexGrid）; 结果输出控件：LabTRV（回归相关系数显示Label），LabTEV（回归总体方差显示Label），GridOut（各参数回归系数、标准误差显示表格MSFlexGrid）; 程序控制控件：ComCalcu（程序执行按钮CommandButton）; 其它控件从略。 二、操作步骤 操作步骤简述如下： 1、引用Microsoft Excel类型库 “工程”-“引用”-选择“Microsoft Excel 8.0 Object Library”-“确定” 2、声明显式数据类型，创建新实例并获取Excel的控制句柄 Dim ExcelObject As Excel.Application Set ExcelObject = CreateObject(Excel.Application) 3、调用并显示Excel Excelobject.Visible = True 由于Excel启动为不可见，在编程调试过程中，需要监测之，完工后最好Rem。 4、将GridIn中的数据送入Excel 5、Excel对数据进行多元回归 6、将Excel运算结果输入GridOut，LabTRV 和LabTEV 7、最后交还Excel控制句柄 Set ExcelObject = Nothing 此方法也可直接控制其他大量应用软件，可从你的Object Library略知一二。 三、操作程序 部分源程序代码如下： 通用声明 Dim DNum As Integer DNum数据组数 Dim FNum As Integer FNum参数个数 Dim ExcelObject As Excel.Application 表格初始化 --DataGRidMK GridIn制作模块 Sub DataGRidMK()??DNum = Val(Me.TextDataNum.Text) FNum = Val(Me.TextFacNum.Text) With Me.GridIn .Cols = FNum + 2 .Rows = DNum + 1 End With With Me.GridIn .Row = 0 .Col = 0: .Text = 实验数据 .Col = 1: .Text = 测值Y For i = 1 To .Cols - 1 .ColWidth(i) = 1200 Next i For i = 2 To .Cols - 1 .Col = i .Text = 参数 X (i - 1) Next i For i = 1 To .Rows - 1 .Col = 0 .Row = i: .Text = i Next i End With End Sub --DataInitial 随机产生GridIn数据模块 Sub DataInitial() 随机产生表格数据 Randomize Timer With Me.GridIn For i = 1 To .Rows - 1 .Row = i For j = 1 To .Cols - 1 .Col = j .Text = Rnd * 500 \ 1 Next j Next i End With End Sub??为方便程序调式，实验数据采用随机产生;也可自行修改/输入，从略 --GridOutMK GridOut制作模块 Sub GridOutMK() With Me.GridOu