PB全面操纵Excel.docVIP

PB下全面控制Excel 红色部分未验证 Excel对象控制 创建Excel对象 OLEObject ExcelServer ExcelServer = Create OLEObject 连接Excel ExcelServer.ConnectToObject(, Excel.Application) //如果Excel还没有打开，则新建。 ExcelServer.ConnectToNewObject(Excel.Application) 返回值Integer，0正常，负值为错误码 断开连接Excel ExcelServer.DisconnectObject() 打开指定工作簿 ExcelServer.WorkBooks.Open(c:\temp\ll.xls) 添加新工作簿 ExcelServer.WorkBooks.Add 关闭工作簿 ExcelServer.WorkBooks.Close 添加新的工作表 ExcelServer.Sheets.Add 激活工作表“sheet3” ExcelServer.ActiveWorkBook.Sheets(sheet3).Select 工作表改名 ExcelServer.ActiveSheet.Name = 课程表 显示Excel窗口 ExcelServer.Application.Visible = True 更改Excel标题栏 ExcelServer.Caption=PB应用程序调用Microsoft Excel 工作表另为 ExcelServer.ActiveWorkBook.SaveAs(c:\temp\22.xls) 放弃存盘 ExcelServer.ActiveWorkBook.Saved = True 退出Excel ExcelServer.quit 单元格控制 给单元格赋值 ExcelServer.Cells(1,4).Value = XM(XM为数据库字段名) 在第2行之前插入一行 ExcelServer.ActiveSheet.Rows(2).Insert 在第2列之前插入一列 ExcelServer.ActiveSheet.Columns(2).Insert 设置指定列的宽度(单位：英文字符个数) ExcelServer.ActiveSheet.Columns(1).ColumnWidth=5 设置指定行的高度(单位：磅) (设定行高为1厘米，1磅=0.035厘米) ExcelServer.ActiveSheet.Rows(1).RowHeight=1/0.035 指定边框线宽度(Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；) ExcelServer.ActiveSheet.Range(b3:d3).Borders(2).Weight=3 a到i列自动调整列宽ExcelServer.ActiveSheet.Columns(“a:i”).AutoFit 设置四个边框线条的类型(LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线) ExcelServer.ActiveSheet.Range(b3:d3).Borders(2).LineStyle=1 合并单元格 ExcelServer.ActiveSheet.Range(A1:F1”).MergeCells = True 拷贝整个工作表 ExcelServer.ActiveSheet.UsedRange.Copy 拷贝指定区域 ExcelServer.ActiveSheet.Range(A1:E2).Copy 粘贴 ExcelServer.WorkSheet(Sheet2).Range(A1).PasteSpecial 设置字体 ExcelServer.ActiveSheet.Cells(2,1).Font.Name=黑体 设置字体大小 ExcelServer.ActiveSheet.Cells(1,1).Font.Size=25 设置字体为斜体 ExcelServer.ActiveSheet.Cells(1,1).Font.Italic = True 设置整列字体为粗体 ExcelServer.ActiveSheet.Columns(1).Font.Bold = True 设置整列水平居中 ExcelServer.ActiveSheet.Columns(1).HorizontalAlignment = 3 设置整行字体颜色 ExcelServer.ActiveSheet.Rows(1).Font.ColorIndex = 4 设置整行底色 ExcelServer.ActiveSheet.Rows(2)