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 Explicit
Dim a,b,c,d As Double’申明变量
申明EXCEL变量
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub command10_click()’选择数据存盘目录
Dim filename, outputfile As String
CommonDialog1.Filter = "excel(*.xls)|*.xls|rich file(*.rtf)|*.rtf|all files(*.*)|*.*"

CommonDialog1.FilterIndex = 1
CommonDialog1.ShowSave
outputfile = CommonDialog1.filename
Text36.text = outputfile
Text33.SetFocus
End Sub
Private Sub Command5_Click()’VB主程序
Set xlApp = CreateObject("Excel.Application")’ 创建EXCE对象L
xlApp.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.text
xlSheet.Cells(ww, 7) = Text9.text
xlBook.saveAs Text36.text’保存数据到Excel工作表
xlBook.Close (True)’关闭工作表
xlApp.Quit’退出工作表
Set xlApp = Nothing’释放对应用程序和电子数据表的引用
Dim inta As Double
inta = MsgBox("下一站！！！", 0, "！！！水平角！！！")
Form1.Text33.SetFocus
Form1.Text33.SelStart = 0
Form1.Text33.SelLength = Len(Text33.text)
End Sub’结束程序
EXCEL宏程序(VBA)
Public Function zh1(txt As Double) As Double '格式转化函数
Dim a1 As Double
a1 = Int((txt + 3 * 10 ^ -10) / 10000)
zh1 = a1
End Function
Private Sub CommandButton3_Click() '调入记录数据
Dim hhh,tt,lll As Double
hhh = InputBox("请输入计算表起始行数", "输入计算表开始行!!")
tt = InputBox("请输入计算表结束行数", "输入计算表结束行!!")
lll = InputBox("请输入计算表与转换表起始行数差值", "输入计算表与转换表起始行数差值!!")
For hh = hhh To tt
Sheet4.Cells(hh, 6) = zh1(Sheet5.Cells(hh - lll, 4))’不同工作表间的数据交换
Sheet4.Cells(hh, 7) = zh2(Sheet5.Cells(hh - lll, 4))
Next hh
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)’EXCEL成果表处理
h = 9
Do
h = h + 1
Loop Until Sheet1.Cells(h, 3) = ""
n = Sheet1.Cells(4, 22)
For I = 10 To h - 1
A = 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 I
Sheet2.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：=“折线图表”
.Printout
EndWith　　

[参 考 文 献]
[1]孙敬杰. 《Excel VBA入门与提高》[M]中国青年出版社
[2] 明日科技.高春艳.李俊民.刘彬彬《Visual Basic程序开发范例宝典》[M]人民邮电出版社
[3]求是科技. 《Visual Basic6.0程序设计与开发技术大全》[M] 人民邮电出版社
[4]计算机职业教育联盟. 《Visual Basic程序设计基础教程与上机指导》[M]清华大学出版社
[5]Excel帮助说明
[6]Microsoft Visual Basic 帮助说明