& & 浙江大学农业生物环境工程研究所 泮进明 张颖萍 Excel是微软办公软件的“大腕”之一，几乎已经成为电子表格软件的代名词。除了管理数据并对其进行一些简单的数学运算外，Excel还拥有强大的数据处理功能，尤其是其中的数理统计功能，更是那些对SAS、SPSS……
声明：该文章系网友上传分享，此内容仅代表网友个人经验或观点，不代表本网站立场和观点；若未进行原创声明，则表明该文章系转载自互联网；若该文章内容涉嫌侵权，请及时向
论文写作技巧
上一篇：下一篇：
相关经验教程用VB5可编写直接控制Excel操作的程序,方法是用VB的OLE自动化技术获取Excel 97 的控制句柄,从而直接控制Excel 97的一系列操作。与用VBA语言编写的Excel控制程序相比,两者主要有如下差异: 　　1. 实现VB5对Excel的直接控制后,可在用户所编的程序中调用Ex cel,即从控制界面直接调入Excel,且退出Excel后又回到控制界面,使人看起来就如Excel是依附于用户程序上。这给既想获取Excel的强大支持,又想编写"傻瓜"软件交给不熟悉计算机的用户使用的程序员来说,其好处是不言而喻的。VBA则必须依附于特定的Excel环境,且只有先进入确定的Excel环境后,才能运行VBA程序。 　　2. 用VB5实现Excel的控制后,所有程序可编译成完整的EXE执行文件,直接在Win 95 /NT平台上执行,运行环境更为简洁明了,程序更易加密。不会因为有多个程序指令块带来管理麻烦,也不易因用户的不小心使用而出现程序丢失,造成功能短缺。VBA编写的程序最大的不方便是不能编译成执行文件,不能脱离其主应用程序独立运行。 　　3. VBA在Excel环境中,几乎是一个万能的工具,可通过建立功能强大的宏指令来扩展或模拟Excel的全部功能。而VB的OLE自动技术目前还不能实现Excel所有功能的模拟与控制。 　　操作步骤 　　用VB5控制Excel 97的操作步骤如下: 　　1. 引用Microsoft Excel类型库: 　　*从"工程"菜单中选择"引用"栏; 　　*选择Microsoft Excel 8.0 Object L 　　*选择"确定"。 　　2. 声明显式数据类型: 　　Dim x1 as Excel.Application 　　3. 创建新实例,获取Excel的控制句柄: 　　Set x1=CreatObject("Excel.Application") 　　4. 由于Excel 97启动为不可见,调用后需使其显示出来: 　　x1.Visible=True 　　5. 交还Excel控制句柄: 　　Set x1=Nothing 　　同理,用此方法也可直接控制Word、Access等Microsoft Office 97的其他应用软件,享受其便利和支持。 　　操作程序 　　Private Sub Contral_Excel_97() 　　{ 　　Dim x1 as Excel.Application '声明显式数据类型 　　Set x1=CreateObject("Excel.Application") 　　 '创建新实例 　　x1.Workbooks.Add 　　’添加新工作簿 　　x1.Range("A1").Value=5　’A1格赋值 　　x1.Range("A2").Value=8　’A2格赋值 　　x1.Range("A3").Value=16 ’A3格赋值 　　x1.Range("A4").Value=7　’A4格赋值 　　x1.Charts.Add 　　’插入图形 　　x1.ActiveChart.ChartType=x1ColumnClustered 　　’柱状图 　　x1.ActiveChart.SetSourceData Source:=x1.Sheets("Sheet1") .Range("A1:A4") 　　PlotBy:=x1Columns 　　’图形数据来源 　　With x1.ActiveChart 　　’图标题 　　.HasTitle=False　 ’没有总标题 　　.Axes(x1Category,x1Primary).HasTitle=False 　　.Axes(x1Value,x1Primary).HasTitle=True 　　’有Y轴标题 　　.Axes(x1Value,x1Primary).AxisTitle.Characters 　　.Text="销售电视机(台)" 　　End With 　　With x1.ActiveChart.PageSetup ’图形页面设置 　　.CenterHeader="&28" & ListSTNM(Combo2. ListIndex)&"逐日电视机销售" 　　’标题 　　.CenterFooter="&12x x x 商场"　’下边落款 　　.RightFooter=Format(Now,"yyyy-m-d-h:n") 　　’右下角显示时间 　　.Orientation=x1Landscape　 ’打印纸页面横向 　　End With 　　x1.ActiveChart.PlotArea.Interior.ColorIndex=x1None 　　’无背景色 　　x1.ActiveWindow.SelectedSheets.PrintPreview 　　’打印预览 　　x1.Visible=True 　　’显示图形 　　Set x1=Nothing 　　’交还控制句柄 　　}
阅读(...) 评论() &用VB6控制Excel处理数据_中国百科网
中国百科网-实用知识供应者
您现在的位置： >
> 文章内容:
用VB6控制Excel处理数据
&&&& Excel是微软办公软件之一，几乎已经成为电子表格软件的代名词。除了治理数据并对其进行一些简单的数学运算外，Excel还拥有强大的数据处理功能，尤其是其中的数理统计功能，更是最佳选择。一、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.GridOut .Cols = FNum + 2 .Rows = 3 End With With Me.GridOut .Row = 0 .Col = 0: .Text = " 回回输出" .Col = 1: .Text = " Const" .Row = 1: .Col = 0: .Text = " 系数Ai" .Row = 2: .Col = 0: .Text = " 相关系数" For i = 1 To .Cols - 1 .ColWidth(i) = 1200 Next i .Row = 0 For i = 2 To .Cols - 1 .Col = i .Text = " 参数 X" & (i - 1) Next i End With End Sub 回回运算 Private Sub ComCalcu_Click() ' GridOut清空 With Me.GridOut For i = 1 To .Rows - 1 .Row = i For j = 1 To .Cols - 1 .Col = j .Text = "" Next j Next i End With 'LabTEV，LabTRV处于等待状态 With Me.LabTEV .BackColor = vbBlue End With With Me.LabTRV .BackColor = vbBlue End With 　& Dim SA As String, Sb$, Sc$ Set ExcelObject = CreateObject("Excel.Application") '创建新实例 'Excelobject.Visible = True '显示调用 ExcelObject.Workbooks.Add '添加新工作簿 Sb = "B" & Format$(DNum) Sc = Chr$(65 + FNum) & Format$(DNum) '表格数据送进Excel For i = 1 To DNum Me.GridIn.Row = i For j = 1 To FNum + 1 Me.GridIn.Col = j If Me.GridIn.Text = "" Then MsgBox "实验数占有空缺，请补充完整。", vbOKOnly, "警告" With Me.LabTEV .Caption = "#VALUE" .BackColor = &HC0C0C0 End With With Me.LabTRV .Caption = "#VALUE" .BackColor = &HC0C0C0 End With 'Set Excelobject = Nothing Exit Sub End If SA = Chr$(64 + j) & Format$(i) ExcelObject.Range(SA).Value = Me.GridIn.Text Next j Next i '回回运算 Dim Ip, P As String '定位回回结果显示单元格 For i = 1 To 2 Ip = Format$(i + DNum) 'i=1时在第Dnum+1行显示系数，i=2时在第Dnum+2行 显示标准误差 For j = 1 To FNum + 1 P = Chr$(64 + j) & Ip ExcelObject.Range(P).Formula="=INDEX(LINEST($A$1:$A$"& Format$(DNum)& & ",$B$1:$" & Chr$(65 + FNum) & "$" & Format$(DNum) & ",1,1)," && Format$(i) & "," & Format$(j) & ")" Next j Next i P = "A" & Format$(DNum + 3) '定位 ExcelObject.Range(P).Formula = "=INDEX(LINEST($A$1:$A$" & Format$(DNum) & ",$B$1:$" & Chr$(65 + FNum) & "$" & Format$(DNum) & ",1,1),3,1)" '相关系数 P = "B" & Format$(DNum + 3) '定位 ExcelObject.Range(P).Formula = "=INDEX(LINEST($A$1:$A$" & Format$(DNum) & ",$B$1:$" & Chr$(65 + FNum) & "$" & Format$(DNum) & ",1,1),3,2)" '总体方差 　& '显示回回结果至GridOut With Me.GridOut '显示Const系数 .Row = 1: .Col = 1 P = Chr$(64 + FNum + 1) & Format$(DNum + 1) .Text = Format$(ExcelObject.Range(P).Value, "0.0000") '显示Const标准误差 .Row = 2: .Col = 1 P = Chr$(64 + FNum + 1) & Format$(DNum + 2) .Text = Format$(ExcelObject.Range(P).Value, "0.0000") For i = 1 To FNum '显示系数 .Row = 1 P = Chr$(64 + i) & Format$(DNum + 1) .Col = FNum - i + 2 .Text = Format$(ExcelObject.Range(P).Value, "0.0000") '显示标准误差 .Row = 2 P = Chr$(64 + i) & Format$(DNum + 2) .Col = FNum - i + 2 .Text = Format$(ExcelObject.Range(P).Value, "0.0000") Next i End With '显示总体相关系数 P = "A" & Format$(DNum + 3) Me.LabTRV.Caption = Format$(ExcelObject.Range(P).Value, "0.0000") '显示总体方差 P = "B" & Format$(DNum + 3) Me.LabTEV.Caption = Format$(ExcelObject.Range(P).Value, "0.0000") 　& With Me.LabTEV .BackColor = &HC0C0C0 End With With Me.LabTRV .BackColor = &HC0C0C0 End With Set ExcelObject = Nothing End Sub 说明：Excel回回结果“矩阵”（记为A()）与一般的思维相异，以三元回回为例，A(1,1)和A(2,1)分别为X3的回回系数和标准误差，A(1,2)和A(2,2)对应X2，A(1,3)和A(2,3)对应X1，A(1,4)和A(2,4)对应常数项，A(3,1)代表回回相关系数，A(3,1)代表回回总体方差。够狡猾的吧？！其他题目还多着呢。“大腕”们原来也是能懒则懒的（同是打工仔，呵呵）。 本程序在VB6.0调试通过。
下一篇：没有了
本站所收集信息资料为网络转载 版权属各作者 并已著明作者 旨在资源共享、交流、学习之用，请勿用于商业用途,本站并不保证所有信息、文本、图形、链接及其它内容的绝对准确性和完整性，故仅供访问者参照使用。
Mail: Copyright by ；All rights reserved.