vb调用excel进行数据处理

VB应用程序调用EXCEL进行数据处理摘要：从VB应用程序内部来程序化操纵Excel，利用EXCEL软件中的宏程序（VBA）功能，结合VB程序语言来进行界面化程序编制，以达到利用VB调用EXCEL进行程序化数据处理的目的。关键词：VB应用程序；EXCEL对象模型；EXCEL宏程序（VBA）；VB调用EXCEL记录和处理数据。引言VisualBasic简称(VB)是设计Windows应用程序强有力的开发工具，“全球绝大多数Windows应用程序都是用VB开发的”；相信大家对VBA也有所耳闻，只是很多朋友没有使用过。VBA是VisualBasicforApplication的简称。大家知道VisualBasic是一种编程语言，而VBA就是在VisualBasic平台中将MicrosoftOffice中的每个应用程序都看成一个对象。每个应用程序都由各自的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对象的属性、方法和事件。为此，首先要声明对象变量：DimVBExcelAsO或直接声明为Excel对象：DimVBExcelAsExcel.Application。在声明对象变量之后，可用CreateObject函数或GetObject函数给变量赋值新的或已存在的Application对象引用。三、使用Excel应用程序

如前所述，在VB应用程序中调用Excel应用程序，就是使用Application对象的属性、方法和事件。下面分类给出其中常用的属性和方法。1、使用工作薄

Workbook对象代表Excel应用程序中当前打开的一个工作簿，包含在Workbooks集合中。可以通过Workbooks集合或表示当前活动工作簿的ActiveWorkbook对象访问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帮助中的内容。实际上，MicrosoftOffice家族的Word、PowerPoint、Access和Project等应用程序都可以在VB应用程序中调用，其原理和步骤完全相同，只是其对象模型有所不同而已。附录：程序代码：OptionExplicitDima,b,c,dAsDouble’申明变量申明EXCEL变量DimxlAppAsExcel.ApplicationDimxlBookAsExcel.WorkbookDimxlSheetAsExcel.WorksheetPrivateSubcommand10_click()’选择数据存盘目录Dimfilename,outputfileAsStringCommonDialog1.Filter="excel(*.xls)|*.xls|richfile(*.rtf)|*.rtf|allfiles(*.*)|*.*"CommonDialog1.FilterIndex=1CommonDialog1.ShowSaveoutputfile=CommonDialog1.filenameText36.text=outputfileText33.SetFocusEndSubPrivateSubCommand5_Click()’VB主程序SetxlApp=CreateObject("Excel.Application")’创建EXCE对象LxlApp.Visible=False’设置Excel对象不可见（或可见）SetxlBook=xlApp.Workbooks.Open("c:\programfiles\temp\水平角记录表.xls")’打开Excel工作表SetxlSheet=xlBook.Worksheets("sheet1")’设置活动工作表xlSheet.Cells(ww,4)=Format(aaa,"000000")’记录数据到EXCEL工作表xlSheet.Cells(ww,5)=Format(bbb,"000000")xlSheet.Cells(ww,6)=Text7.textxlSheet.Cells(ww,7)=Text9.textxlBook.saveAsText36.text’保存数据到Excel工作表xlBook.Close(True)’关闭工作表xlApp.Quit’退出工作表SetxlApp=Nothing’释放对应用程序和电子数据表的引用DimintaAsDoubleinta=MsgBox("下一站！！！",0,"！！！水平角！！！")Form1.Text33.SetFocusForm1.Text33.SelStart=0Form1.Text33.SelLength=Len(Text33.text)EndSub’结束程序EXCEL宏程序(VBA)PublicFunctionzh1(txtAsDouble)AsDouble'格式转化函数Dima1AsDoublea1=Int((txt+3*10^-10)/10000)zh1=a1EndFunctionPrivateSubCommandButton3_Click()'调入记录数据Dimhhh,tt,lllAsDoublehhh=InputBox("请输入计算表起始行数","输入计算表开始行!!")tt=InputBox("请输入计算表结束行数","输入计算表结束行!!")lll=InputBox("请输入计算表与转换表起始行数差值","输入计算表与转换表起始行数差值!!")Forhh=hhhTottSheet4.Cells(hh,6)=zh1(Sheet5.Cells(hh-lll,4))’不同工作表间的数据交换Sheet4.Cells(hh,7)=zh2(Sheet5.Cells(hh-lll,4))NexthhEndSPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)’EXCEL成果表处理h=9Doh=h+1LoopUntilSheet1.Cells(h,3)=""n=Sheet1.Cells(4,22)ForI=10Toh-1A=Sheet1.Cells(I,5)CallHAN(A,c)Sheet2.Cells(c,2*n)=Sheet1.Cells(I,26)Sheet2.Cells(c,2*n+1)=Sheet1.Cells(I,27)NextISheet2.Cells(2,2*n)=Sheet1.Cells(5,7)Sheet2.Cells(3,2*n)="变化量"Sheet2.Cells(3,2*n+1)="累计变化量"EndSub基于工作表“Sheetl”中单元格区域“A1：A20”中的数据生成新的折线图并打印。WithCharts.Add.ChartWizardsource：=Worksheets("sheet1").Range("a1：a20"),gallery：=xlLine,title：=“折线图表”.PrintoutEndWith[参考文献][1]孙