用VB操作Excel（VB6.0）（整理）.doc

使用 VB 操作 Excel（VB6.0） VB（Visual Basic）是微软公司开发的一种编程语言，Excel 是微软公司开发的一种电子表格软件。VB 可以通过自动化功能来操作 Excel，实现对 Excel 的读写、控制和处理。本资源摘要信息将对 VB 操作 Excel 的方法进行详细介绍。 一、VB 读写 EXCEL 表 VB 自身具备自动化功能，可以读写 EXCEL 表。要实现此功能，需要在工程中引用 Microsoft Excel 类型库，然后定义 EXCEL 对象，最后通过命令来操作 EXCEL 表。 在工程中引用 Microsoft Excel 类型库。选择“工程”菜单，点击“引用”，然后选择“Microsoft Excel 9.0 Object Library”，最后点击“确定”。这样就在工程中引用了 EXCEL 类型库。 定义 EXCEL 对象。 Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet 然后，在程序中操作 EXCEL 表。可以使用以下命令： Set xlApp = CreateObject("Excel.Application") '创建 EXCEL 对象 Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的 EXCEL 工件簿文件 xlApp.Visible = True '设置 EXCEL 对象可见（或不可见） Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 xlSheet.Cells(row, col) = 值 '给单元格（row,col）赋值 xlSheet.PrintOut '打印工作表 xlBook.Close (True) '关闭工作簿 xlApp.Quit '结束 EXCEL 对象 Set xlApp = Nothing '释放 xlApp 对象 二、EXCEL 的宏功能 EXCEL 提供了一个 Visual Basic 编辑器，可以编写宏函数和过程。EXCEL 有两个自动宏：启动宏（Sub Auto_Open()）和关闭宏（Sub Auto_Close()）。这些宏可以在 EXCEL 打开或关闭时自动运行。 在 VB 中，可以使用命令 xlBook.RunAutoMacros (xlAutoOpen) 和 xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。 三、VB 与 EXCEL 的相互勾通 通过 EXCEL 的启动宏和关闭宏，可以实现 VB 与 EXCEL 的相互勾通。方法是：在 EXCEL 的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。VB 程序在执行时通过判断此标志文件存在与否来判断 EXCEL 是否打开。 四、举例 在 VB 中，建立一个 FORM，在其上放置两个命令按钮，将 Command1 的 Caption 属性改为 EXCEL，Command2 的 Caption 属性改为 End。然后在其中输入如下程序： Dim xlApp As Excel.Application '定义 EXCEL 类 Dim xlBook As Excel.Workbook '定义工件簿类 Dim xlsheet As Excel.Worksheet '定义工作表类 Private Sub Command1_Click() '打开 EXCEL 过程 If Dir("D:\temp\excel.bz") = "" Then '判断 EXCEL 是否打开 Set xlApp = CreateObject("Excel.Application") '创建 EXCEL 对象 ... End If End Sub