vb调用excel进行数据处理.docx

VB应用程序调用EXCEL进行数据处理摘要：从VB应用程序内部来程序化操纵Excel，利用EXCEL软件中的宏程序（VBA）功能，结合VB程序语言来进行界面化程序编制，以达到利用VB调用EXCEL进行程序化数据处理的目的。关键词：VB应用程序；EXCEL对象模型；EXCEL宏程序（VBA）；VB调用EXCEL记录和处理数据。引言Visual Basic简称(VB)是设计Windows应用程序强有力的开发工具，“全球绝大多数Windows应用程序都是用VB开发的”； 相信大家对VBA也有所耳闻，只是很多朋友没有使用过。VBA是Visual Basic for Application的简称。大家知道Visual Basic是一种编程语言，而VBA就是在Visual Basic平台中将Microsoft Office中的每个应用程序都看成一个对象。每个应用程序都由各自的Application对象代表。 Excel是目前使用最广泛的办公应用软件之一，它具有强大的数学分析与计算功能，包括很多VB没有的求值数学表达式的函数和方法。由于Excel的应用程序对象是外部可创建的对象，所以就可以从VB应用程序内部来程序化操纵Excel。本文结合自己的实践和体会，谈谈如何在VB6.0应用程序中调用Exce1，供大家参考。一、 Excel对象模型为了在VB应用程序中调用Excel，必须要了解Excel对象模型。Excel对象模型描述了Excel的理论结构，所提供的对象很多，其中最重要的对象，即涉及VB调用Excel最可能用到的对象有： 二、调用Excel在VB应用程序中调用Excel，实质是将Excel作为一个外部对象来引用，由Excel对象模型提供能从VB应用程序内部来程序化操纵的对象以及相关的属性、方法和事件。1、在VB工程中添加对Excel类型库的引用块，需要在VB工程中添加对Excel类型库的引用。注：要想在VB应用程序中调用Excel，你的计算机系统中必须安装Excel。2、引用Application对象Application对象是Excel对象模型的顶层，表示整个Excel应用程序。在VB应用程序中调用Excel，就是使用Application对象的属性、方法和事件。为此，首先要声明对象变量：Dim VBExcel As Object或直接声明为Excel对象：Dim VBExcel As Excel.Application。在声明对象变量之后，可用CreateObject函数或GetObject函数给变量赋值新的或已存在的Application对象引用。三、使用Excel应用程序如前所述，在VB应用程序中调用Excel应用程序，就是使用Application对象的属性、方法和事件。下面分类给出其中常用的属性和方法。1、使用工作薄Workbook对象代表Excel应用程序中当前打开的一个工作簿，包含在Workbooks集合中。可以通过Workbooks集合或表示当前活动工作簿的Active Workbook对象访问Workbook对象。2、使用工作表Sheets集合表示工作簿中所有的工作表。可以通过Sheets集合来访问、激活、增加、更名和删除工作表。一个Worksheet对象代表一个工作表。3、使用单元范围Range对象代表工作表的某一单元格、某一行、某一列、某一选定区域或者某一三维区域。4、使用图表Chart对象代表工作簿中的图表。该图表既可为嵌人式图表(包含于ChartObject对象中)也可为分立的图表工作表。5、使用Excel工作表函数在VB语句中可使用大部分的Excel工作表函数，可通过WorksheetFunction对象调用Excel工作表函数。四、应用实例下面是VB调用EXCEL进行外业记录和数据处理的程序界面，界面的制作方法不再叙述了，程序代码见附录。先利用VB应用程序调用EXCEL进行数据的记录，然后再利用EXCEL的宏程序(VBA) （程序代码见附录）进行数据的处理和曲线图表的生成。如下表：这样既实现了程序界面化的可操作性，同时也体现了基于面向对象的方法的实现。使VB、Excel以及ExceL宏程序（VBA）三者交互接合起来，相得益彰。五、结论以上简要介绍了Excel对象模型中部分对象及其属性和方法。通过使用这些方法，就能很好地把VB和Excel接合起来，充分利用Excel的强大的数学分析、计算和图表功能。把它们有机地挂接在一起，从而实现二者的无缝连接。为日常工作中一些复杂的数据处理带来极大的便利。更详细的信息可参阅Excel帮助中的内容。实际上，Microsoft Office家族的Word、PowerPoint、Access和Project等应用程序都可以在VB应用程序中调用，其原理和步骤完全相同，只是其对象模型有所不同而已。附录：程序代码：Option ExplicitDim a,b,c,d As Double申明变量申明EXCEL变量Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetPrivate Sub command10_click()选择数据存盘目录Dim filename, outputfile As StringCommonDialog1.Filter = excel(*.xls)|*.xls|rich file(*.rtf)|*.rtf|all files(*.*)|*.*CommonDialog1.FilterIndex = 1CommonDialog1.ShowSaveoutputfile = CommonDialog1.filenameText36.text = outputfileText33.SetFocusEnd SubPrivate Sub Command5_Click()VB主程序Set xlApp = CreateObject(Excel.Application) 创建EXCE对象LxlApp.Visible = False设置Excel对象不可见（或可见）Set xlBook = xlApp.Workbooks.Open(c:program files temp水平角记录表.xls)打开Excel工作表Set xlSheet = xlBook.Worksheets(sheet1)设置活动工作表xlSheet.Cells(ww, 4) = Format(aaa, 00 00 00)记录数据到EXCEL工作表xlSheet.Cells(ww, 5) = Format(bbb, 00 00 00)xlSheet.Cells(ww, 6) = Text7.textxlSheet.Cells(ww, 7) = Text9.textxlBook.saveAs Text36.text保存数据到Excel工作表xlBook.Close (True)关闭工作表xlApp.Quit退出工作表Set xlApp = Nothing释放对应用程序和电子数据表的引用Dim inta As Doubleinta = MsgBox(下一站！, 0, ！水平角！)Form1.Text33.SetFocusForm1.Text33.SelStart = 0Form1.Text33.SelLength = Len(Text33.text)End Sub结束程序EXCEL宏程序(VBA)Public Function zh1(txt As Double) As Double 格式转化函数Dim a1 As Doublea1 = Int(txt + 3 * 10 -10) / 10000)zh1 = a1End FunctionPrivate Sub CommandButton3_Click() 调入记录数据Dim hhh,tt,lll As Doublehhh = InputBox(请输入计算表起始行数, 输入计算表开始行!)tt = InputBox(请输入计算表结束行数, 输入计算表结束行!)lll = InputBox(请输入计算表与转换表起始行数差值, 输入计算表与转换表起始行数差值!)For hh = hhh To ttSheet4.Cells(hh, 6) = zh1(Sheet5.Cells(hh - lll, 4)不同工作表间的数据交换Sheet4.Cells(hh, 7) = zh2(Sheet5.Cells(hh - lll, 4)Next hhEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)EXCEL成果表处理h = 9Doh = h + 1Loop Until Sheet1.Cells(h, 3) = n = Sheet1.Cells(4, 22)For I = 10 To h - 1A = Sheet1.Cells(I, 5)Call HAN(A, c)Sheet2.Cells(c, 2 * n) = Sheet1.Cells(I, 26)Sheet2.Cells(c, 2 * n + 1) = Sheet1.Cells(I, 27)Next ISheet2.Cells(2, 2 * n) = Sheet1.Cells(5, 7)Sheet2.Cells(3, 2 * n) = 变化量Sheet2.Cells(3, 2 * n + 1) = 累计变化量End Sub基于工作表“Sheetl”中单元格区域“A1：A20”中的数据生成新的折线图并打印。WithCharts.Add.ChartWizardsource：=Worksheets(sheet1).Range(a1：a20),gallery：=xlLine,title：=“折线图表”.PrintoutEndWith 参 考 文 献1孙敬杰. Excel VBA入门与提高M中国青年出版社2 明日科技.高春艳.李俊民.刘彬彬Visual Basic程序开发范例宝典M人民邮电出版社3求是科技. Visual Basic6.0程序设计与开发技术大全M 人民邮电出版社4计算机职业教育联盟. Visual Basic程序设计基础教程与上机指导M清华大学出版社 5Excel帮助说明6Microsoft Visual Basic 帮助说明