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