VB操作Excel的类模块DIYExcel类.docVIP

VB 操作Excel的类模块DIYExcel类 前言： VB自带的Excel操作功能十分强大，但一般使用起来既要引用又要声明的，还是不太方便的，由于我们只是要使用它的一小部分功能，所以我把这部分常用的功能封装起来，制作了一个类模块，叫做DIYExcel类，使用起来十分方便。 DIYExcel类的主要属性、方法及使用示例 1、属性 Visible 布尔值,工作簿是否可见(须在工作簿打开后才能设置此属性) CellsForeColor 颜色值,当前单元格的前景色 CellsBackColor 颜色值,当前单元格的背景色 CellsValue 变体型,当前单元格的内容 RowsNum 长整型,只读属性,当前工作表的有效行数 ColsNum 长整型,只读属性,当前工作表的有效列数 2、方法 BookOpen(sPath As String) 打开工作簿 (如果文件不存在就创建之并打开) BookClose() 关闭工作簿 CreateBook(sPath As String) 创建Excel文件 SheetsGoto(sSheet As String) 跳转到工作表 CellsGoto(sRow As Long, sCol As Long) 跳转到单元格 3、使用示例(九九乘法表) Dim Myxls As New DiyExce l’定义一个新的DIYExcel类的实例 Private Sub Command1_Click() Dim sPath As String sPath = d:\abc.xls ’Excel文件路径 Myxls.BookOpen sPath ’打开Excel文件，如果文件不存在会自动创建之 Myxls.Visible = True ’使打开的Excel可见 Myxls.SheetsGoto sheet1 ’跳转到工作表“sheet1” Dim i, j As Integer ’下面使用循环来打印九九乘法表 For i = 1 To 9 For j = 1 To i Myxls.CellsGoto i, j ’跳转到单元格（i,j）即第i行j列的单元格， ’如B6就是（6,2）第6行第2列 Myxls.CellsValue = i * j = i * j Next Next End Sub Private Sub Command2_Click() Myxls.BookClose ’关闭Excel End Sub DIYExcel类完整代码 提示：可以在vb里添加一个类模块并修改Name属性为DIYExcel，然后把下面的代码粘贴进去(部分注释在word里被分为两行，第二行前面没有单引号，粘贴到vb里可能会报错，请自行修改为一行) Option Explicit DIYExcel类 Dim xlsApp As Object EXcel对象 Dim xlsBooK As Object Excel工作簿 Dim xlsSheet As Object Excel工作表 Dim xlsRng As Object 用来获得工作表的有效行列数 Dim CurrentRow As Long 当前单元格的行 Dim CurrentCol As Long 当前单元格的列 跳转到工作表 Public Sub SheetsGoto(sSheet As String) Set xlsSheet = xlsBooK.Sheets(sSheet) End Sub 跳转到单元格 Public Sub CellsGoto(sRow, sCol) CurrentRow = sRow CurrentCol = sCol End Sub 有效行列数 Public Property Get RowsNum() As Long Set