VB操作EXCEL表的常用方法Word文档格式.docx

1、 表名 设置活动工作表xlApp.Cells（row, col） = 值 给单元格（ row,col ）赋值XLApp.Cells（i, 1）.Interior.ColorIndex = i 设计单元格颜色 i=1-56xlSheet.PrintOut 打印工作表xlBook.Close （True） 关闭工作簿xlApp.Quit 结束 EXCEL对象Set xlApp = Nothing 释放 xlApp 对象1xlBook.RunAutoMacros （xlAutoOpen） 运行 EXCEL启动宏xlBook.RunAutoMacros （xlAutoClose） 运行 EXCEL关闭

2、宏自己用代码就可以获取颜色列表了Sub yansecode（）For i = 1 To 56XlApp.Cells（i, 1） = ixlapp.Cells（i, 1）.Interior.ColorIndex = iNextEnd Sub4、在运用以上 VB命令操作 EXCEL表时，除非设置 EXCEL对象不可见，否则 VB程序可继续执行其它操作，也能够关闭 EXCEL，同时也可对 EXCEL进行操作。但在 EXCEL操作过程中关闭 EXCEL对象时， VB程序无法知道，如果此时使用 EXCEL对象，则 VB程序会产生自动化错误。形成 VB程序无法完全控制 EXCEL的状况，使得 VB与 EX

3、CEL脱节。二、 EXCEL的宏功能：EXCEL提供一个 Visual Basic 编辑器，打开 Visual Basic 编辑器，其中有一工程属性窗口，点击右键菜单的 插入模块 ，则增加一个 模块 1，在此模块中可以运用 Visual Basic 语言编写函数和过程并称之为宏。其中，EXCEL有两个自动宏：一个是启动宏（ SubAuto_Open（），另一个是关闭宏（ Sub Auto_Close（） ）。它们的特性是：当用 EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过 VB的自动化功能来调用 EXCEL工作表时，启动宏和关

4、闭宏不会自动运行，而需要在 VB中通过命令 xlBook.RunAutoMacros（xlAutoOpen） 和 xlBook.RunAutoMacros （xlAutoClose）来运行启动宏和关闭宏。三、 VB 与 EXCEL的相互勾通：充分利用 EXCEL的启动宏和关闭宏，可以实现 VB与 EXCEL的相互勾通，其方法如下：在 EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。 VB程序在执行时通过判断此标志文件存在与否来判断 EXCEL是否打开，如果此标志文2件存在，表明 EXCEL对象正在运行，应该禁止其它程序的运行。如果

5、此标志文件不存在，表明 EXCEL对象已被用户关闭，此时如果要使用 EXCEL对象运行，必须重新创建 EXCEL对象。四、举例：1、在 VB中，建立一个 FORM，在其上放置两个命令按钮，将 ommand1的 Caption 属性改为 EXCEL，Command2的 Caption 属性改为 End。然后在其中输入如下程序：Dim xlApp As Excel.Application 定义 EXCEL类Dim xlBook As Excel.Workbook 定义工件簿类Dim xlsheet As Excel.Worksheet 定义工作表类Private Sub Command1_Clic

6、k（） 打开 EXCEL过程If Dir（D:tempexcel.bz） = Then 判断 EXCEL是否打开 创建 EXCEL应用类 设置 EXCEL可见tempbb.xls 打开 EXCEL工作簿Set xlsheet = xlBook.Worksheets（1） 打开 EXCEL工作表xlApp .Activate 激活工作表xlApp .Cells（1, 1） = abc 给单元格 1 行驶列赋值 运行 EXCEL中的启动宏ElseMsgBox （EXCEL已打开 ）End IfPrivate Sub Command2_Click（） 由 VB关闭 EXCEL 执行 EXCEL关闭宏

7、 关闭 EXCEL工作簿3 关闭 EXCEL 释放 EXCEL对象End2、在盘根目录上建立一个名为 Temp的子目录，在 Temp目录下建立一个名为 bb.xls 的 EXCEL文件。3、在 中打开 Visual Basic 编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘：Sub auto_open（）Open d: For Output As #1 写标志文件Close #1Sub auto_close（）Kill 删除标志文件4、运行 VB程序，点击 EXCEL按钮可以打开 EXCEL系统，打开 EXCEL系统后，VB程序和 EXCEL分别属两个不同的应用系统，均可同

8、时进行操作，由于系统加了判断，因此在 VB程序中重复点击 EXCEL按钮时会提示 EXCEL已打开。如果在 EXCEL中关闭 EXCEL后再点 EXCEL按钮，则会重新打开 EXCEL。而无论 EXCEL打开与否，通过 VB程序均可关闭 EXCEL。这样就实现了 VB与 EXCEL的无缝连接。4范例一Option ExplicitPrivate Sub Command1_Click（）Dim xlBook As Excel.WorkbookDim xlChar As New Excel.ChartDim xlSheet As New Excel.Worksheet建立需要的对象Set xlAp

9、p = New Excel.ApplicationF:BOOK1.xlsSet xlSheet = xlBook.Worksheets（1） 建立 Chart 对象Set xlChar = xlApp.Charts.Add（）xlChar.ChartType = xlLineMarkersCall xlChar.SetSourceData（xlSheet.Range（A1:E7）, xlColumns） 原数据ActiveChart.Location Where:=xlLocationAsObject, Name:=Sheet1ActiveChart.HasLegend = TrueActiv

10、eChart.Legend.SelectSelection.Position = xlRight 选中建立的 ChartObjects 对象ActiveSheet.ChartObjects（ 图表 1）.ActivateActiveChart.PlotArea.Select删除 退出（&X） 菜单5Dim i As IntegerFor i = 1 To xlApp.CommandBars（File）.Controls.CountDebug.Print xlApp.CommandBars（）.Controls（i）.CaptionIf Left$（xlApp.CommandBars（）.Con

11、trols（i）.Caption, 2） = 关闭 ThenxlApp.CommandBars（）.Controls（i）.Visible = False DeleteExit For 显示 EXCELxlApp.Visible = True范例二RichTextBox1-然后，可以用这些变量来访问在 EXCEL应用程序中的从属对象、以及这些对象的属性和方法。例如：激活 EXCEL应用程序xlApp.Visible = False 隐藏 EXCEL应用程序窗口Set xlBook = xlApp.Workbooks.Open（strDestination）打开工作簿， strDestinati

12、on 为一个 EXCEL报表文件设定工作表6VB借助 EXCEL实现表格设计1、定义 EXCEL对象变量dim x as excel.application2、VB中，启动 EXCELset x=createobject（excel.application3、新建一个 EXCEL工作簿x.workbooks.add4、选定工作表 1set xsheet=xbook.worksheets（1）5、指定单元格，并赋值xsheet.cell（1,1）=ret.fields（0）6、指定 EXCEL列宽xsheet.column（1）.columnwidth=107、RANGE（）函数，选定单元格区域

13、range（cells（1,1）,cells（10,20）8、设置 EXCEL字体xsheet.range（cells（1,1）,cells（10,20）.font.name= 黑体9、设置 EXCEL为粗体xsheet.range（cells（1,1）,cells（10,20）.fontbold=true10、设置 EXCEL表格边框xsheet.range（cells（1,1）,cells（10,20）.borders.linestyle=xlcontinuous11、运行时，显示 EXCEL或隐藏 EXCELx.visible=true12、保存工作簿xbook save713、退出 E

14、XCELx.quit14、交还控制权给 EXCELset x=nothing15、打印 EXCEL表x.active.window.selectedsheets.printout copies=numcopies16、退出 EXCEL时，不出现保存提示。x.displayalerts=false17、怎样运用 EXCEL公式？x.range（A3）.formula= =max（A1,A2）18、EXCEL代码获取技巧打开 EXCEL中的工具 - 宏- 录制新宏，然后进行手工操作，结束后把所录的宏代码贴进你的 VB 程序就行。19、合并单元格代码A2:A5）.inergecells=true20

15、、自动调整列宽代码x.column（A:I）.autofit a 到 I 列自动调整列宽21、文本自动换行代码x.rows（3）.wraptext=true22、设置字体颜色x.rows（1）.font.colorindex=423、打印预览代码x.worksheets.printpreview24、打开 EXCEL文件x.workbooks.open filename:c:my documentsmy vb lgx dy.xls8=如何用 VB控制 EXCEL生成报表做为一种简捷、系统的 Windows 应用程序开发工具， Visual Basic 6 具有强大的数据处理功能，提供了多种数据

16、访问方法，可以方便地存取 Microsoft SQL Server 、Oracle 、XBase等多种数据库，被广泛应用于建立各种信息管理系统。但是， VB 缺乏足够的、符合中文习惯的数据表格输出功能，虽然使用 CrystalReport 控件及 Crystal Reports 程序可以输出报表，但操作起来很麻烦，中文处理能力也不理想。 Excel 作为 Micorsoft 公司的表格处理软件在表格方面有着强大的功能，我们可用 VB5编写直接控制 Excel 操作的程序, 方法是用 VB的 OLE自动化技术获取 Excel 2000 的控制句柄 , 从而直接控制 Excel 2000 的一系列

17、操作。下面给出一个实例：首先建立一个窗体（ FORM1）在窗体中加入一个 DATA控件和一按钮，引用 Microsoft Excel 类型库 : 栏; 选择 Microsoft Excel 9.0 Object Library; 选择 确定然后在 FORM的 LOAD事件中加入：Private Sub Form_Load（） 数据库及表可以另选，本文以 Nwind.mdb为例Data1.DatabaseName = C:Program FilesMicrosoft Visual StudioVB98Nwind.mdbData1.RecordSource = CustomersData1.Ref

18、resh在按钮的 CLICK事件中加入Dim Irow, Icol As IntegerDim Irowcount, Icolcount As IntegerDim Fieldlen（） 存字段长度值9Set xlBook = xlApp.Workbooks.AddWith Data1.Recordset.MoveLastIf .RecordCount 1 ThenError 没有记录!Exit SubIrowcount = .RecordCount 记录总数Icolcount = .Fields.Count 字段总数ReDim Fieldlen（Icolcount）.MoveFirstFor

19、 Irow = 1 To Irowcount + 1For Icol = 1 To IcolcountSelect Case IrowCase 1 在 Excel 中的第一行加标题xlSheet.Cells（Irow, Icol）.Value = .Fields（Icol - 1）.NameCase 2 将数组 FIELDLEN（）存为第一条记录的字段长If IsNull（.Fields（Icol - 1） = True ThenFieldlen（Icol） = LenB（.Fields（Icol - 1）.Name） 如果字段值为 NULL,则将数组 Filelen（Icol） 的值设为标题

20、名的宽度Fieldlen（Icol） = LenB（.Fields（Icol - 1）10xlSheet.Columns（Icol）.ColumnWidth = Fieldlen（Icol）Excel 列宽等于字段长xlSheet.Cells（Irow, Icol）.Value = .Fields（Icol - 1） 向 Excel 的 CellS 中写入字段值Case ElseFieldlen1 = LenB（.Fields（Icol - 1）If Fieldlen（Icol） Fieldlen1 ThenxlSheet.Columns（Icol）.ColumnWidth = Fieldle

21、n1表格列宽等于较长字段长Fieldlen（Icol） = Fieldlen1 数组 Fieldlen（Icol） 中存放最大字段长度值End SelectIf Irow If Not .EOF Then .MoveNextWith xlSheet.Range（.Cells（1, 1）, .Cells（1, Icol - 1）.Font.Name = 设标题为黑体字.Range（.Cells（1, 1）, .Cells（1, Icol - 1）.Font.Bold = True11标题字体加粗.Range（.Cells（1, 1）, .Cells（Irow, Icol - 1）.Borders.LineStyle = xlContinuous设表格边框样式End With 显示表格xlBook.Save 保存 交还控制给 Excel本程序在中文 Windows98、中文 VB6下通过。12=VB5.0 调用 Office97 技巧Visual Basic 5.0 具有简单、易学等特点，深受初学者