Excel属性及方法使用.doc

未完成工作错误列表: 1、Style.DiagLineTopRightToBottomLeft Long 整型赋值错误 Class GMU 创建的全局成员 公共CreateExcelCellStyle 创建单元格样式 CreateExcelFont 创建字体 CreateExcelFooter 创建打印页脚 CreateExcelHeader 创建打印页眉 CreateExcelFormat 创建 格式字符串 CreateExcelPrintSetup 创建打印设置对象 CreateExcelWorkbook 创建Excel 表 Function CreateExcelCellStyle() As ExcelCellStyle Function CreateExcelFont() As ExcelFont Function CreateExcelFooter() As ExcelFooter Function CreateExcelFormat() As ExcelFormat Function CreateExcelHeader() As ExcelHeader Function CreateExcelPrintSetup() As ExcelPrintSetup Function CreateExcelWorkbook() As ExcelWorkbook 二、类ExcelWorkbook Excel表处理类 公共属性password 设置Excel保护密码 Getsheet(index) 返回Excel页对象ExcelSheet OpenExcelInstance 打开对应的Excel 进程（如office中Excel.exe）Property password As String 设置Excel保护密码 wbook.password = “123456” Property GetSheet(sheet) As ExcelWorksheet 获取页面 Dim wsheet As ExcelWorksheet Set wsheet =wbook.GetSheet(“sheet1”) Set wsheet =wbook.GetSheet(0) Property OpenExcelInstance As Boolean wbook.OpenExcelInstance = True Property helper As ExcelHelper 只读 工具类，帮助行列的转换 wbook.helper.ConvertColRowToAreaRef(2, 2, 5, 5) wbook.helper.ConvertColRowToRef(2, 2, 2) 公共方法 CreateSheetSave 保存Excel 文件 SetActiveSheet(sheet) 设置Excel Sheet的激活页面 SetDefaultFont 设置Excel 中默认字体,字号 Function CreateSheet([sSheetName As String], [bVisible As Boolean = True]) As ExcelWorksheet 创建sheet页面 [sSheetName]: 页签名 [bVisible] : 是否显示本页 Call wbook.CreateSheet(firstsheet) Set wsheet = wbook.CreateSheet(Sheet5) Sub Save(fname As String) 保存Excel 文件名 Fname: excel 文件名 call Wbook.save(“D:\excelfile\test.xls”) Sub SetDefaultFont(Name As String, Size As Long) Name : 字体名称 Size ：字号 wbook.SetDefaultFont 黑体, 12 Sub SetActiveSheet(sheet) Sheet : 页面名称或者页面序号 三、ExcelWorksheet Excel 页 公共属性 Footer 设置页脚 GridlineColour 表格线的颜色 Gridlines 是否显示表格线 Header 设置页眉 PrintSetup 打印设置 ScaleFactor 打印比率 Selected 设置选中页面 sheetHeaders 是否显示页顶部的列标签（如：A B C D E）